Tableau Coordonnées VBA

[KATERYNA]

Bonjour à tous,
J'aurais besoin d'extraire du dessin avec vba les coordonnées du point d'insertion de la table, précédemment inséré avec getpoint et ensuite déplacé.
Y a-t-il une possibilité de trouver les coordonnées de la table ?
J'ai trouvé la commande d'avoir des coordonnées de polylinea et d'autres objets autocad, mais cela ne fonctionne pas avec la table.
Quelqu'un peut m'aider ?
Je vous remercie !

 

[rpor66]

sous-sélecteur privé()

Dim tabella comme acadtable
dim pt comme variante
dim ssetobj comme acadselectionset

suite de l'erreur
cedrawing.selectionsets.item("set"). supprimer
en cas d'erreur aller à 0

setobj = thisdrawing.selectionsets.add("sset")
ssetobj.sectonscreen

définir tabella = ssetobj.item(0)
pt = tabella.point d'insertion

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

cedrawing.selectionsets.item("set"). supprimer

fin sous

S'il vous plaît.

 

[rpor66]

Si vous voulez que la liste des propriétés d'un objet utilise cette commande :
(vlax-dump-object (vlax-ename->vla-object (car (entsel "\inselent: "))))

pour la commodité, créé un bouton avec la commande relative, est très utile à de nombreuses occasions.

 

[KATERYNA]

sous-sélecteur privé()

Dim tabella comme acadtable
dim pt comme variante
dim ssetobj comme acadselectionset

suite de l'erreur
cedrawing.selectionsets.item("set"). supprimer
en cas d'erreur aller à 0

setobj = thisdrawing.selectionsets.add("sset")
ssetobj.sectonscreen

définir tabella = ssetobj.item(0)
pt = tabella.point d'insertion

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

cedrawing.selectionsets.item("set"). supprimer

fin sous

S'il vous plaît.

Merci beaucoup ! Très gentil !

 

[KATERYNA]

Si vous voulez que la liste des propriétés d'un objet utilise cette commande :
(vlax-dump-object (vlax-ename->vla-object (car (entsel "\inselent: "))))

pour la commodité, créé un bouton avec la commande relative, est très utile à de nombreuses occasions.

J'avais déjà résolu votre première réponse. Maintenant j'étudie ce commandement. Encore merci !