set surfacesmenu_items {
GuidoMenuItem item1 {
-label "Create DTM from Layer"
-icon "icons/16/graphics_create_dtm.png"
-command server "GRAPHICS CREATE DTM"
}
GuidoScript scripts/menus/dtmintersect.tcl
GuidoScript scripts/menus/s_cn_dtmfilefuncs.tcl
GuidoSeparator sep1 {
}
GuidoMenuItem item2 {
-label "Create sections from DTM"
-icon "icons/16/graphics_section_dtm.png"
-command server "GRAPHICS SECTION DTM"
}
GuidoMenuItem item3 {
-label "Create sections with centre line"
-icon "icons/16/graphics_cl_section_dtm.png"
-command server "GRAPHICS CL SECTION DTM"
}
GuidoSeparator sep2 {
}
GuidoMenuItem item4 {
-label "Drape string over DTM"
-icon "icons/16/string_over_dtm.png"
-command server "STRING OVER DTM"
}
GuidoMenuItem item5 {
-label "Drape segment over DTM"
-icon "icons/16/segment_over_dtm.png"
-command server "SEGMENT OVER DTM"
}
GuidoMenuItem item6 {
-label "Drape string range over DTM"
-icon "icons/16/string_range_over_dtm.png"
-command server "STRING RANGE OVER DTM"
}
GuidoSeparator sep3 {
}
GuidoScript scripts/menus/dtmvalidate.tcl
GuidoScript scripts/menus/s_cn_volumes.tcl
GuidoScript scripts/menus/s_cn_dtmfaults.tcl
GuidoScript scripts/menus/s_cn_dtmadvanced.tcl
GuidoSeparator sep4 {
}
GuidoScript scripts/menus/contouring.tcl
GuidoSeparator space {
}
GuidoMenuItem item7 {
-label "Object renumber"
-icon "icons/16/object_renumber.png"
-command server "OBJECT RENUMBER"
}
}
GuidoMenu surfacesmenu {
-label "Surfaces"
-delayed_script $surfacesmenu_items
}
