LightTools中VBA宏的编程入门

（1）Excel和LightTools的链接

---

前言

在Lighttools的使用中往往需要多次增加或者减少一个值（很小的量）然后获取一些图像和数据，此时可使用宏或者借助外部的 EXCEL\VB\c++\MATLAB或者其它，现以EXCEL中的VB语言编程实现二者之间的链接，后续更新一些小技术完成数据和图像的输出(matlab如果可以的话，再抽时间完成)。本次目标完成二者之间的通讯，并完成LT说明中的例子：
1 打开excel，并再如下图中将 开发工具 勾选上，并点击确认，回到excel页面。

一、如何打开Excel中的宏工具并创建宏

（1）打开excel，并再如下图中将 开发工具 勾选上，并点击确认，回到excel页面，如下图所示：

（2）点击开发工具------->Visual Basic，进入VB编辑界面，如果第一次进来是没有我图中的前两项文件；然后点击 选中的project并点击工具------->引用，找到LightTools 4.0 Type Libary（尽量选择高版本），点击确定。


（3）打开一个LT文件（新），如下

4 回到VB界面，点击 运行-------> 宏，新建test宏，然后输入如下代码（保证只有一个LT在运行不然会报错？），点击运行（要保存一下Excel），
最后LT中实现了创建一个立方体。

二、代码如下

Sub test()
Dim lt As LTAPI
Set lt = New LTAPI
lt.Begin
If lt.Cmd("\V3D")<>0 Then
lt.Cmd "\VConsole"
lt.Cmd "New3DDesign"
lt.Cmd "\V3D"
END If

lt.Cmd "Block3Pt" & lt.Coord3(0,0,0)_
& lt.Coord3(0,1,0) & lt.Coord3(0,0,2)
lt.End
End Sub

输出结果

至此已完成excel和LT的通讯，后续实现LT光学仿真，并输出数据到excel中。