該文檔討論設置表面光學特性(如coatings, importance samples, materials, raytrace controls, scatter等)的最簡易的方式,它利用基于腳本語言的結構化(或分層次)模塊,等價于在圖形化的交互式用戶接口中的拖拉方式。 #y}@FG
首先參考一個樹狀結構目標,如下所示: tkV:kh< L~
-Geometry JL2IVENWc
-Subassembly 1 (Optical components) D-A#{e _
-Custom Element 2 m7^a4
-Surface 3 Lm:O
vVVB
-Surface 4 GAtK1%nPD
+Custom Element 3 u\&oiwSIP
+Subassembly 2 (Mechanical components) $*8c0.{U
+Subassembly 3 (Auxiliary components) Af
^6
-Custom Element 1 (Detector components) qmOGsj`#
-Surface 1 mkrvWZjZX
編程思想是,用戶已把目標樹整理成包含相似功能特征的小組,然后想通過腳本編程語言容易地修改任一組的所有表面的光學特性,即Subassembly 1中的Optical components。形如SetAll___的一組命令能實現(xiàn)這一功能,它運行用戶指定根節(jié)點ID#及期望的特性值。現(xiàn)在考慮下面的例子,我們想為分層次結構中Subassembly 1下面的所有表面設置Transmit coating,相應的命令為: HSp*lHU
Dim idNode As Long, coatNode As Long, count As Long !);}zW!
idNode = FindFullName(“Geometry.Subassembly 1 (Optical components)”) E)H8jBm6w
coatNode = FindCoating(“Transmit”)
`k_5Pz\
count = SetAllCoatingProp( idNode, coatNode ) $:/y5zi
在這個腳本中,Custom Element 2和Custom Element 3中的所有表面將被指定為Transmit coating。 dFo9O!YX[f