Tabelle Einsatzpunkt VBA Koordinaten

[KATERYNA]

Guten Morgen.
Ich müsste aus der Zeichnung mit vba die Koordinaten des Einführpunktes der Tabelle entnehmen, zuvor mit getpoint eingefügt und anschließend bewegt.
Gibt es die Möglichkeit, die Koordinaten der Tabelle zu finden?
Ich fand den Befehl, Polylinea-Koordinaten und andere Autocad-Objekte zu haben, aber es funktioniert nicht mit der Tabelle.
Kann mir jemand helfen?
Danke!

 

[rpor66]

Privat Sub selecttabella()

dim tabella als acadtable
dim pt als Variante
dim ssetobj als acadselectionset

auf Fehlerwiederaufnahme
thisdrawing.selectionsets.item("sset"). Löschen
auf fehler 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"). Löschen

Endteil

Bitte.

 

[rpor66]

Wenn Sie die Liste der Eigenschaften eines Objekts wünschen, verwenden Sie diesen Befehl:
(vlax-dump-object (vlax-ename->vla-object (Auto)))

für Bequemlichkeit, erstellt eine Taste mit relativem Befehl, ist sehr nützlich bei vielen Gelegenheiten.

 

[KATERYNA]

Privat Sub selecttabella()

dim tabella als acadtable
dim pt als Variante
dim ssetobj als acadselectionset

auf Fehlerwiederaufnahme
thisdrawing.selectionsets.item("sset"). Löschen
auf fehler 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"). Löschen

Endteil

Bitte.

Vielen Dank! Sehr freundlich!

 

[KATERYNA]

Wenn Sie die Liste der Eigenschaften eines Objekts wünschen, verwenden Sie diesen Befehl:
(vlax-dump-object (vlax-ename->vla-object (Auto)))

für Bequemlichkeit, erstellt eine Taste mit relativem Befehl, ist sehr nützlich bei vielen Gelegenheiten.

Ich hatte schon mit Ihrer ersten Antwort gelöst. Jetzt studiere ich diesen Befehl. Danke noch mal!