Collect all item choosen id @ on screen

Dear all,

i write a sort code which collect all elbow on screen like hereafter:

DO
var !ARR IDEN ELBOW @
$!ARR
ENHANCE CE COL RED
ENDDO

can you help me collect what i have choosen to an array?

I think it seem like this sample...

!ITEM = ARRAY()
DO
On id@
ENHANCE CE COL RED
!ITEM.APPEND(!!ce.nam)
ENDDO
Q VAR !ITEM

*not tested yet

as your code


!ITEM = ARRAY()
DO
var !ARR IDEN ELBOW @
HANDLE (61,528)
BREAK
ENDHANDLE
$!ARR
ENHANCE CE COL RED
!ITEM.APPEND(!ARR)
ENDDO

check this PML too

--By Han_BFY

Setup form !!fsjtest size 10 4
!this.formtitle = ''
member .item is array

button .btn1 'TEST PICK' callback |!this.pick()|
path d
textpane .txt1 |List of element| width 30 height 10
exit

define method .pick()
unenhance all
!this.item.clear()
!packet = object EDGPACKET()
!packet.elementPick(|Pick Element

oh, thanks all of you so much :)

Try this another type of picking item



Setup form !!fsjpick size 10 4
!this.formtitle = 'pick on screen'
member .item is array


button .btn1 'PICK' callback |!this.pick()|
path d
textpane .txt1 |List of element| width 30 height 10
exit


define method .pick()
unenhance all
do
var !pick pick
handle(61,528)
break
endhandle
enhance $!pick[1] col red
$!pick[1]
!this.item.append(!!ce.spref.nam)
!this.txt1.val = !this.item
enddo
endmethod

oh, thanks all of you so much :)

Welcome........

 

Synthax like var !pick pick id@ ...will be allowed for short time. In E3D I believe it should be not allowed to use it. EDGPACKET should used instead

BR
N