Description This function adds a catalog lens with the surfaces of the lens elements constructed in reverse order relative to their catalog definitions. This reversal in the construction of the lens surfaces is optically equivalent to rotating an imported lens by 180 degrees about an axis orthogonal to the optical axis.
Syntax n = AddCatalogLensReversed ( parent, name, catalog )
Parameters n (Long) Node number of the newly added lens, or -1 if there is a problem.
parent As Long Node number of the element to which the newly added lens will be parented on the tree.
name As String The name of the lens as specified in the corresponding lens catalog.
catalog As String The name of the catalog that holds the lens. Catalog names are: Archer CVI Laser Optics Ealing Edmund Newport OptoSigma Ross ThorLabsAchromats ThorLabsRectangularCylinder ThorLabsRoundCylinder ThorLabsSinglets
Example The script below adds lens 30976 from the Edmund catalog as a child of node 2 (the Geometry folder) with surfaces ordered in reverse of their specification in the catalog.
Sub Main
Dim lNode As Long lNode = AddCatalogLensReversed( 2, "30976", "Edmund" ) Update
End Sub
See Also
|