vba coordinates of the insertion point table

[KATERYNA]

Good morning to all,
I would need to extract from the drawing with vba the coordinates of the insertion point of the table, previously inserted with getpoint and subsequently moved.
is there a possibility to find the coordinates of the table?
I found the command to have polylinea coordinates and other autocad objects, but it doesn't work with the table.
Could someone help me?
Thank you!

 

[rpor66]

private sub selecttabella()
    
    dim tabella as acadtable
    dim pt as variant
    dim ssetobj as acadselectionset
    
    on error resume next
    thisdrawing.selectionsets.item("sset").delete
    on error goto 0
    
    set ssetobj = thisdrawing.selectionsets.add("sset")
    ssetobj.selectonscreen
    
    set tabella = ssetobj.item(0)
    pt = tabella.insertionpoint
    
    msgbox "x: " & pt(0) & "  -  y: " & pt(1)
    
    thisdrawing.selectionsets.item("sset").delete
    
end sub

Please.

 

[rpor66]

If you want the list of properties of an object use this command:
(vlax-dump-object (vlax-ename->vla-object (car (entsel "\nsel ent: "))))

for convenience, created a button with relative command, is very useful on many occasions.

 

[KATERYNA]

private sub selecttabella()
   
    dim tabella as acadtable
    dim pt as variant
    dim ssetobj as acadselectionset
   
    on error resume next
    thisdrawing.selectionsets.item("sset").delete
    on error goto 0
   
    set ssetobj = thisdrawing.selectionsets.add("sset")
    ssetobj.selectonscreen
   
    set tabella = ssetobj.item(0)
    pt = tabella.insertionpoint
   
    msgbox "x: " & pt(0) & "  -  y: " & pt(1)
   
    thisdrawing.selectionsets.item("sset").delete
   
end sub

Please.

Thank you very much! Very kind!

 

[KATERYNA]

If you want the list of properties of an object use this command:
(vlax-dump-object (vlax-ename->vla-object (car (entsel "\nsel ent: "))))

for convenience, created a button with relative command, is very useful on many occasions.

I had already solved with your first answer. Now I'm studying this command. Thank you again!