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

yinlovetian

上次只实现了LT和VBA的交互，这次实现用VBA让LT自动光线追迹，并将数据存储至相应的表格列表中。
这次以LED准直为例子演示：
1 打开一个空的LT文件，并且去欧司朗官方网站下载一个简单的光线模型（后面附件会提供，有时间的小伙伴可以思考下这个文件是怎么产生，以及这个文件中每一行都代表什么意思），将欧司朗的光源文件导入，如下图

后续将光发射角度改到90°即可，然后建立一个5mm直径，厚度2.5mm的透镜，将其置于z=5mm位置（光源发射面位于0点），并修改系统中的单位

透镜材料不需要修改，就用NBK7就好，建立一个探测器，并添加准直的评价函数，探测器尺寸50*50，位置z=100mm,完成后如下


本次主要更改透镜的R值并获取最大位置的发散角度，具体代码如下 ：
Sub SETPARM()
'建立接口
Dim lt As LightTools.LTAPI
Set lt = New LightTools.LTAPI

k = 2
For i = 2.7 To 5 Step 0.1
'设置R值，此处的
'LENS_MANAGER[1].COMPONENTS[Components].SOLID[Lens_4].CIRC_LENS_PRIMITIVE[LP_1].SPHERICAL_LENS_SURFACE[LensRearSurface]
'是R值存储的地址，具体找到其位置，一般使用“复制其访问链接”，后面用图演示
LENSR = lt.DbSet("LENS_MANAGER[1].COMPONENTS[Components].SOLID[Lens_4].CIRC_LENS_PRIMITIVE[LP_1].SPHERICAL_LENS_SURFACE[LensRearSurface]", "Radius", i)
'再输入框中输入开始模拟
lt.Cmd "BeginAllSimulation"

' get到具体最大位置的发散角
MAXCOLANGLE = lt.DbGet("LENS_MANAGER[1].OPT_MANAGER[Optimization_Manager].OPT_MERITFUNCTIONS[Merit_Function].OPT_COLLIMATEMERITFUNCTION[COL]", "ValueAt", "1", "11")

' R将结果放至sheet1，B2-B25列
Worksheets("Sheet1").Range(Cells(k, 2), Cells(k, 2)) = MAXCOLANGLE
k = k + 1
Next i

l = 2
For j = 2.7 To 5 Step 0.1
' R值仿真从2.7到5 ，放至sheet1，A2-A25列
Worksheets("Sheet1").Range(Cells(l, 1), Cells(l, 1)) = j
l = l + 1
Next j


End Sub


数据链接的方式：

至此数据链接完成。

hhhddd

前辈，链接文本去作图也是挺好的，我有一个步骤正好是要输出一行文本然后作图。另外，在做鬼像的时候LT多角度分析有时候也需要贴各个杂散光在接收器的位置和路径，那这个时候的输出图片，有啥好方法吗?这个您了解不？

yinlovetian

hhhddd 发表于 2023-12-25 15:01
前辈，链接文本去作图也是挺好的，我有一个步骤正好是要输出一行文本然后作图。另外，在做鬼像的时候LT多角 ...

LT可以输出图片到EXCEL，函数具体要查一下，多看下说明书