Das Beispiel aus GTAC kennst Du ?
ENTITY/ objs(1000)
STRING/ op(132)
NUMBER/ mx(12)
mx = MATRIX/ TRANSL, 0,0,0
op = PARTOP/ ASK, DSPLAY
A05: IDENT/'Select objects to export', objs, cnt, n, resp
IFTHEN/ resp > 2
objs = TRANSF/ mx, objs(1..n)
CPATT/UPDATE, 'x', objs(1..n)
DELETE/ objs(1..n)
PRINT/'Exported ' + ISTR(n) + ' objects'
FETCH/ PART, 'x'
LAYER/ACTIVE,REST
INEXTE/ALL
ii = 0
A10: objs(ii = ii + 1) = NEXTE/IFEND, A20:
JUMP/ A10:
A20: PRINT/'Found ' + ISTR(ii-1) + ' objects in exported part'
FTERM/PART, ALWAYS
PARTOP/SET, DSPLAY, op
JUMP/ A05:
ENDIF
HALT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP