該文檔討論設(shè)置表面
光學(xué)特性(如coatings, importance samples, materials, raytrace controls, scatter等)的最簡(jiǎn)易的方式,它利用基于腳本語言的
結(jié)構(gòu)化(或分層次)
模塊,等價(jià)于在圖形化的交互式用戶接口中的拖拉方式。
"p;tj74O9 首先參考一個(gè)樹狀結(jié)構(gòu)目標(biāo),如下所示:
u=v-,Tw -Geometry
5m0lk|` -Subassembly 1 (Optical components)
2 G*uv+= -Custom Element 2
pQ0*)}l, -Surface 3
.|go$}Fk -Surface 4
YQHpW>z +Custom Element 3
^Ld5< +Subassembly 2 (Mechanical components)
_^(1Qb[ +Subassembly 3 (Auxiliary components)
3ddw'b'aQ -Custom Element 1 (Detector components)
FA{Q6fi:2 -Surface 1
\WC,iA%Y 編程思想是,用戶已把目標(biāo)樹整理成包含相似功能特征的小組,然后想通過腳本編程語言容易地修改任一組的所有表面的光學(xué)特性,即Subassembly 1中的Optical components。形如SetAll___的一組命令能實(shí)現(xiàn)這一功能,它運(yùn)行用戶指定根節(jié)點(diǎn)ID#及期望的特性值。現(xiàn)在考慮下面的例子,我們想為分層次結(jié)構(gòu)中Subassembly 1下面的所有表面設(shè)置Transmit coating,相應(yīng)的命令為:
VPT?z Dim idNode As Long, coatNode As Long, count As Long
.4"BN<9 idNode = FindFullName(“Geometry.Subassembly 1 (Optical components)”)
v