Programming Statements

Function

Statement Format

CHOOSE OPTIONS

CHOOSE/string list,[DEFLT,n,]
[ALTACT,'message',] response

WRITE TO SCREEN

CRTWRT/'message',x,y,z

INDICATE GENERIC POINT

GPOS/'message',x-coord,y-coord,z-coord
,response

SELECT OBJECTS

IDENT/'message'[,SCOPE,{WORK|ASSY|REF}]
,obj list[,CNT,count]
[,CURSOR,x-coord,y-coord,z-coord]
[,MEMBER,{ON|OFF}],response

CHOOSE MULTIPLE OPTIONS

MCHOOS/primary string
,menu options
,response array
[,ALTACT,'message']
,response variable

WRITE TO MESSAGE MONITOR

MESSG/[TEMP,]string list

ENTER PARAMETERS

PARAM/'message'{,'option'[,INT],variable}+
[,ALTACT,'message'],response

INDICATE SCREEN POSITION POINT

POS/'message',x-coord,y-coord,z-coord
,response

ENTER TEXT

TEXT/'message',string-variable
[,ALTACT,'message']
,response[,DEFLT]

CALL SUB-ROUTINE

CALL/'subprogram name'[,actual argument list]

PROGRAM LOOP

DO/label:,index variable,start,end[,increment]

STOP PROGRAM EXECUTION

HALT

ARITHMETIC IF

IF/numerical expression,[label1:],[label2:],[label3:]

LOGICAL IF

IF/logical expression,statement

BLOCK IF

IFTHEN/e1
block1
[ELSEIF/e2
block2] . . .
[ELSE
block3]
ENDIF

UNCONDITIONAL BRANCHING

JUMP/label:

CONDITIONAL BRANCHING

JUMP/label:+,[expression]

PROGRAM LABEL

LABEL:statement

SUB ROUTINE HEADER

PROC[/dummy argument list]

RETURN TO MAIN PROGRAM

RETURN

CHAIN SELECT

CHAIN/START,obj1[,{"PMOD3"|point}]
[,END,obj2], obj array[,CNT,count]
[,IFERR,label:]

INITIALIZE DATA BASE CYCLING

INEXTE[/ALL]

INITIALIZE DATA BASE NON-GEOMETRIC OBJECT CYCLING

INEXTN/{type no.|type GPA}[,subtype]
[,IFERR,label:]

CLASS SELECTION

MASK/{ALL|NONE|[OMIT,],ent type list}

CYCLE OBJECTS IN A COMPONENT

obj = CNEXT/component_obj_id,current_object
[,IFERR,label:]

CYCLE TO NEXT OBJECT

obj = NEXTE/IFEND,label:

CYCLE TO NEXT NON-GEOMETRIC OBJECT

string = NEXTN/IFEND,label1:[,IFERR,label2:]

QUERY PART LOAD STATUS

num = PARTST/'part_name'

COUNT REFERENCE SET MEMBERS

num = REFCNT/[PART,'part_name',]
'reference_set_name'[,IFERR,label:]

CYCLE MEMBERS OF A REFERENCE SET

obj = REFMEM/[PART,'part_name',]
'reference_set_name'
,index[,IFERR,label:]

USER FUNCTION ARGUMENTS

UFARGS/parameter list,[,IFERR,label:]

GRIP ARGUMENTS

GRARGS/parameter list,[,IFERR,label:]