LightTools中VBA宏的编写入门（3）

yinlovetian

上次完成了数据的输出，此次完成图像的输出。
首先，随意打开一个你最近的工作文档LightTools，然后再打开一个EXCEL文件，并打开 开发工具-----> visual basic 进入到宏编辑界面，并添加需要引用的库

最后是代码部分：
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）讲中的数据）：

如果想知道杂散光的仿真，后续我再更新，比如要选择不同的路径，然后粘贴在不同的sheet中，请大家给一个反馈，麻烦，不知道对大家有没有帮助。
忘记说，如果大家的代码中的中文出现乱码，请讲VBA中的字体改下，（因为LT8.4中文版，不知道在哪里改成英文设置，所以只能改VBA的字体，当然也建议大家用英文版，代码不会乱码）：



补充内容 (2024-1-27 22:56):
Operation:=xlPasteAll
前面一句注释删除

kaikaikill90

大神问一下，LT能不能导出按照网格划分的分辨率的原始图像？不是这种截图的，比如网格是600*800，导出的图像就只有600*800个像素且是照度分布的位置，没有其他的范围

yinlovetian

kaikaikill90 发表于 2024-1-8 17:16
大神问一下，LT能不能导出按照网格划分的分辨率的原始图像？不是这种截图的，比如网格是600*800，导出的图 ...

LT中的meshdata可以直接输出，但是图像好像真不能输出，可能我还没接触过。类似于这种（PS：图片输出的是光线数量，也可以选择成强度数据，5*5）：

zqw334455

大佬可以继续写关于杂散光仿真的内容吗

yinlovetian

zqw334455 发表于 2024-1-12 08:16
大佬可以继续写关于杂散光仿真的内容吗

后续会再写相关情况，请记得关注，因为工作原因，不能一直更新

zqw334455

yinlovetian 发表于 2024-1-15 09:33
后续会再写相关情况，请记得关注，因为工作原因，不能一直更新

好的，感谢

amaru610

请问 VBA说Operation:=xlPasteAll语法错误 是为什吗

amaru610

请问VBA可以写出当LIGHTTOOLS用参数分析程式一度一度跑时的图贴上EXCEL吗

yinlovetian

amaru610 发表于 2024-1-19 15:57
请问 VBA说Operation:=xlPasteAll语法错误 是为什吗

库是否勾选对

yinlovetian

amaru610 发表于 2024-1-19 16:23
请问VBA可以写出当LIGHTTOOLS用参数分析程式一度一度跑时的图贴上EXCEL吗

你可以写出方程式让vba计算 输出，然后将值输入至LT仿真