图像的输出(粘贴图像)
仿真图像后输出至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的字体,当然也建议大家用英文版,代码不会乱码):