Point de coordonnées en VBA

[pierredudu]

Bonjour,

Voici mon petit problème du jour

J'insère un bloc en vba en x et y et j'aimerais avoir un texte qui me donne ses coordonnées

Si quelqu'un peux m'aider

par avance merci

[lili2006]

Bonjour,

 

En utilisant les champs ??!

[pierredudu]

bonjour

 

non sans utiliser les champs, ça serait trop facile

en vba

merci

[patmargis]

Salut pierredudu

 

Moi ce que je ferais c'est que je récupererais les coordonées dans un variable "ptinsertion(1)" et comme cela par la méthode item (0),(1), je peux afficher les valeurs via une msgbox .

 

Qu'est ce que tu en penses ???

 

Tiens moi au courant ... A+

[sechanbask]

Voici un bout de l'aide d'autocad : si ça peut t'aider :

 

Sub Example_GetPoint()
   'cet exemple recupère les coordonnées du point choisi
   
   Dim returnPnt As Variant
   
   ' Return a point using a prompt
   returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ")
   Debug.Print returnPnt(0), returnPnt(1), returnPnt(2)
           MsgBox "Les coordonnées du point choisi sont  X : " & returnPnt(0) & " Y : " & returnPnt(1) & " Z : " & returnPnt(2) & ". Ces données sont inscrites dans la fenêtre d'éxecution de VBA avec la méthode debug.print ."
  
   
End Sub
 

[pierredudu]

Bonjour

excusez moi pour ne pas avoir répondu plus tot mais vacances oblige !

merci à patmargis et sechanbask

 

je vais essayer d'etre plus clair

j'ai crée un lisp qui m'insere des blocs "toto"

 

j'aimerais trouver un moyen qui me cherche tous les blocs "toto" et me donne en extraction d'attribut le numéro du blocs "toto" et son point d'insertion

je suis preneur aussi si c'est du lisp

 

merci

[Quena]

Bonjour,

Avec AutoCad Map, il sufffit d'une requête de type rapport pour éditer un tableau contenant pour chacun des blocs ses XY(Z) et ses attributs...