Masa Ekle Point VBA koordinatları

[KATERYNA]

İyi sabaha,
Çizimten vba ile çıkarma noktasının koordinatlarından, daha önce nokta ile eklenmiş ve daha sonra taşındım.
Masanın koordinatlarını bulma imkanı var mı?
Polilinea koordinatları ve diğer otocad nesnelere sahip olmanın komutunu buldum, ancak masa ile çalışmıyor.
Birisi bana yardım edebilir mi?
Teşekkür ederim!

 

[rpor66]

Özel sub selecttabella()

dim tabella as acadtable
dim pt olarak pt
dim ssetobj as acadselectionset

Hatada bir sonraki sefere devam ediyor
Budrawing.selectionsets.item("sset). silinir
Hata goto 0

Set ssetobj = budrawing.selectionsets.add("sset")
ssetobj.selectonscreen

Set tabella = ssetobj.item ****
pt = tabella.insertionpoint

msgbox "x: " & pt **** & " - y: " & pt(1)

Budrawing.selectionsets.item("sset). silinir

Sonunda alt alt

Lütfen.

 

[rpor66]

Bir nesnenin özelliklerini listesini istiyorsanız bu komutu kullanın:
(vlax-dump-object (vlax-ename->vla-object (car (entsel "\nsel ent: "))))

rahatlık için, göreceli komutla bir düğme yarattı, birçok durumda çok kullanışlıdır.

 

[KATERYNA]

Özel sub selecttabella()

dim tabella as acadtable
dim pt olarak pt
dim ssetobj as acadselectionset

Hatada bir sonraki sefere devam ediyor
Budrawing.selectionsets.item("sset). silinir
Hata goto 0

Set ssetobj = budrawing.selectionsets.add("sset")
ssetobj.selectonscreen

Set tabella = ssetobj.item ****
pt = tabella.insertionpoint

msgbox "x: " & pt **** & " - y: " & pt(1)

Budrawing.selectionsets.item("sset). silinir

Sonunda alt alt

Lütfen.

Çok teşekkür ederim! Çok nazik!

 

[KATERYNA]

Bir nesnenin özelliklerini listesini istiyorsanız bu komutu kullanın:
(vlax-dump-object (vlax-ename->vla-object (car (entsel "\nsel ent: "))))

rahatlık için, göreceli komutla bir düğme yarattı, birçok durumda çok kullanışlıdır.

Ben zaten ilk cevabınızla çözdüm. Şimdi bu komutu okuyorum. Tekrar teşekkür ederim!