# Macro Name    : mod.cmd
#
# Version       : surpac2000 V3.1-F 
#
# Creation Date : Wed Sep 02 12:38:40 1998
#
# Description   : 
#
# ----------------------------------------------------------------------
#
#
# CREATE 3DM MENU
#
#@menu("00062")
@range(lev="1400,1700,20")
@FUNCTION TRIANGULATE MANY SEGMENTS,error=abort,mismatch=display
#
# DEFINE THE TRISOLATION TO BE CREATED FORM
#
@FORM frm00459,action=apply,pause=2.000000,error=abort,mismatch=display\
  |iobj=@(lev)\
  |itrisol=1
#
# TRIANGULATE MANY SEGMENTS OPTIONS FORM
#
@FORM frm00651,action=apply,pause=2.000000,error=abort,mismatch=display\
  |theopt1=N\
  |theopt2=R
#
# RANGE DEFINITION FORM
#
@FORM frm00655,action=apply,pause=2.000000,error=abort,mismatch=display\
  |str_seg=SEG\
  |str_no=@(lev)\
  |seg_rg=1,2
@endrange
