Description This function adds a lens assembly from a specific vendor catalog and returns the node number of the newly added element.
Syntax n = AddCatalogLens ( 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 object tree.
name As String The name of the lens as specified in the corresponding 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 example below adds lens 30976 from the Edmund catalog and to the Geometry folder (node number 2) and returns the node number of the newly added element.
Sub Main
Dim lNode As Long lNode = AddCatalogLens( 2, "30976", "Edmund" ) Update
End Sub
See Also
|