(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中。