set createpointmenu_items {
GuidoButtonGroup language {
-status_item "point mode"
GuidoRadioButtonMenuItem item1 {
-selected_value "Add"
-label "Add point mode"
-icon "icons/16/mode_add.png"
-command server "MODE ADD"
}
GuidoRadioButtonMenuItem item3 {
-selected_value "Insert"
-label "Insert point mode"
-icon "icons/16/mode_insert.png"
-command server "MODE INSERT"
}
GuidoRadioButtonMenuItem item5 {
-selected_value "Change"
-label "Change point mode"
-icon "icons/16/mode_change.png"
-command server "MODE CHANGE"
}
}
GuidoSeparator sep1 {
}
GuidoMenuItem create_point {
-label "By coordinates"
-icon "icons/16/create_point.png"
-command server "CREATE POINT"
}
GuidoMenuItem locate_angle {
-label "By angle"
-icon "icons/16/locate_angle.png"
-command server "LOCATE ANGLE"
}
GuidoMenuItem locate_bearing {
-label "By bearing"
-icon "icons/16/locate_bearing.png"
-command server "LOCATE BEARING"
}
GuidoMenuItem locate_along_vector {
-label "Along vector"
-icon "icons/16/locate_along_vector.png"
-command server "LOCATE ALONG VECTOR"
}
GuidoSeparator sep1 {
}
GuidoMenuItem point_insert {
-label "Insert after an existing point"
-icon "icons/16/point_insert.png"
-command server "POINT INSERT"
}
GuidoMenuItem insert_points {
-label "Multiple points by subdividing"
-icon "icons/16/subdivide_string.png"
-command server "SUBDIVIDE STRING"
}
GuidoMenuItem locate_in_line {
-label "In line between adjacent points"
-icon "icons/16/locate_in_line.png"
-command server "LOCATE IN LINE"
}
GuidoMenuItem locate_on_line {
-label "On line between any points"
-icon "icons/16/locate_on_line.png"
-command server "LOCATE ON LINE"
}
GuidoSeparator sep2 {
}
GuidoMenuItem traverse_angle {
-label "By angle traverse"
-icon "icons/16/traverse_angle.png"
-command server "TRAVERSE ANGLE"
}
GuidoMenuItem traverse_bearing {
-label "By bearing traverse"
-icon "icons/16/traverse_bearing.png"
-command server "TRAVERSE BEARING"
}
GuidoSeparator sep3 {
}
GuidoMenuItem arc_arc_intersect {
-label "At intersection of two arcs"
-icon "icons/16/arc_arc_intersect.png"
-command server "ARC ARC INTERSECT"
}
GuidoMenuItem intersect_lines {
-label "At intersection of two lines"
-icon "icons/16/intersect_lines.png"
-command server "INTERSECT LINES"
}
GuidoMenuItem intersect_horizontal {
-label "At intersection with horizontal plane"
-icon "icons/16/intersect_horizontal.png"
-command server "INTERSECT HORIZONTAL"
}
GuidoMenuItem intersect_vertical {
-label "At intersection with vertical plane"
-icon "icons/16/intersect_vertical.png"
-command server "INTERSECT VERTICAL"
}
}
GuidoMenu createpointmenu {
-label "Points"
-delayed_script $createpointmenu_items
}
