LightTools中VBA宏的编写入门

图像的输出（粘贴图像）

---

仿真图像后输出至Excel

因为在很多情况下，并不知道仿真过程中出现的图像变化，主要还是出于对杂散光的影像的仿真考虑才推出该博文，之前的数据输出是理性的分析，图像的输出是为了感性的分析。

一、创建一个LightTools文档，以及引用库的变化

随意打开一个你最近的工作文档LightTools，然后再打开一个EXCEL文件，并打开 开发工具-----> visual basic 进入到宏编辑界面，并添加需要引用的库。

二、代码部分

1.主代码

代码如下（示例）：

Sub GETPARM()
'循环将每次仿真的结果粘贴入excel
'****************************
'定义接口
Dim lt As LightTools.LTAPI
Set lt = New LightTools.LTAPI
For l = 1 To 28 Step 7
'开始仿真光线
lt.Cmd "BeginAllSimulation"
'在命令行输入 需要观察的视图，此处需要注意将正向照度提前打开（不然会报错），如果需要光栅图表，可以
'自行尝试，因为光栅图标没有粘贴到剪切板这一个命令
lt.Cmd "\VChart_Receiver_7_正向_照度 "
'粘贴至剪切板
lt.Cmd "CopyToClipboard "

' with 语句 VBA特有？不再需要写前面的worksheets对象
With Worksheets("Sheet1")
' range（D1,D1）开始，excel需要xy两个方向定位到一个单元格和matlab类似，并执行选择性粘贴
.Range(Cells(l, 4), Cells(l, 4)).PasteSpecial _
' 选择粘贴所有
  Operation:=xlPasteAll
End With
'选中图片并更改图片的 高度和宽度
Selection.ShapeRange.Height = 160
Selection.ShapeRange.Width = 128
'这一句主要防止错误对话框弹出
Application.DisplayAlerts = False

Next l

End Sub

2. 关于字体的变化

如果大家的代码中的中文出现乱码，请讲VBA中的字体改下，（因为LT8.4中文版，不知道在哪里改成英文设置，所以只能改VBA的字体，当然也建议大家用英文版，代码不会乱码）：

---

输出结果