|
<p>for example, I define glass of surface 3 to be model glass </p><p>with index 1.6 and Abbe to be 40</p><p>than the following code will get me the abbe of glass of all surface:</p><p>GETVARDATA 1<br/>nvar = VEC1(0)<br/>PRINT "There are ",nvar," varibles defined in system"<br/>FOR i = 1,nvar,1<br/>type_slot = 5*i- 4<br/>surf_slot = 5*i- 3<br/>!See if it is Abbe Vd varible type<br/> IF VEC1(type_slot) == 5 <br/> PRINT "Abbe of Surface",VEC1(surf_slot), " = ",VEC1(5*i)<br/> ENDIF<br/>NEXT<br/>PRINT ""<br/>PRINT "All done!"</p><p></p><p>HERE is the result:</p><p>Executing D:\ZEMAX\MACROS\GETABBE.ZPL.<br/>There are 12.0000 variables defined in system<br/>Abbe of Surface3.0000 = 35.3400</p><p>All done!</p><p>but there is a constraint that you must define the abbe to be variable</p><p></p><p><br/></p>
|
|