AVEVA E3D - SWAP BEND ELBOW AUTOMATICALLY

Download Macro: --Created by [email protected] Setup form !!SWAP size 10 4 !this.formtitle = 'swap elbow bend' member .item is array button .btn1 'PICK' callback |!this.pick()| path d textpane .txt1 |List of element. Press Esc to finish| width 30 height 10 exit !ce = !!CE IF (!ce.type NEQ 'BEND' and !ce.type NEQ 'ELBO' ) THEN !!Alert.Message('Please select BEND or ELBOW for references') Return ENDIF var !a spref var !b lstube var !c radius var !d type $P $!a $!b $!c define method .pick() unenhance all do var !pick pick handle(61,528) break endhandle enhance $!pick[1] col red $!pick[1] var !name name var !type type IF (!type NEQ 'BEND' and !type NEQ 'ELBO' ) THEN $P Item $!name is not correct type !!Alert.Message('Please select BEND or ELBOW') Return ENDIF spref $!a lstube $!b radius $!c changetype to $!d --!this.item.append(!!ce.spref.nam) --!this.txt1.val = !this.item $P $!name SPREF $!a LSTUBE $!b RADIUS $!c enddo endmethod