Laser Tracker Macros

[jrayself]

Has anyone out there written any Laser Tracker specific macro scripts?

[Admin]

No experience with laser trackers here.

[jrayself]

This macro will get the XYZ coordinates of a selected point feature in the tree views and aim the measurement device (laser tracker) to it.

Code Select Expand

version "4.0"

MACRO END_ON_ERROR ( "On" )

DECLARE i 1
DECLARE nb_selected 0
DECLARE nb_features 0
DECLARE status "Off"
DECLARE index 0
DECLARE contents
DECLARE x
DECLARE y
DECLARE z

TREEVIEW FEATURE GET_NB_SELECTED ( nb_selected )
IF $nb_selected != 1
    MACRO END
ENDIF

TREEVIEW FEATURE GET_NB ( nb_features )

WHILE $i <= $nb_features
    TREEVIEW FEATURE GET_SELECTION_STATUS ( $i, status )
    IF $status == "On"
        IF $index == 0
            SET index $i
            SET i $nb_features
        ENDIF
    ENDIF
    ++ i
ENDWHILE

TREEVIEW FEATURE PROPERTIES CONTENTS GET ( contents )

IF $contents == "Empty"
    MACRO END
ENDIF

IF $contents == "Measured"
    TREEVIEW FEATURE MEASURED SELECT ( $index, "On"  )
    TREEVIEW PRIMITIVE POINT PROPERTIES POINT GET (x,y,z)
    PROBE DEVICE GO_XYZ ( $x,$y,$z)
    TREEVIEW FEATURE COLLAPSE
ENDIF

IF $contents == "Nominal"
    TREEVIEW FEATURE NOMINAL SELECT ( $index, "On"  )
    TREEVIEW PRIMITIVE POINT PROPERTIES POINT GET (x,y,z)
    PROBE DEVICE GO_XYZ ( $x,$y,$z)
    TREEVIEW FEATURE COLLAPSE
ENDIF

IF $contents == "Nominal and Measured"
    TREEVIEW FEATURE MEASURED SELECT ( $index, "On"  )
    TREEVIEW PRIMITIVE POINT PROPERTIES POINT GET (x,y,z)
    PROBE DEVICE GO_XYZ ( $x,$y,$z)
    TREEVIEW FEATURE COLLAPSE
ENDIF