Récupérerle point d\'insertion d\'un bloc

[Marc Blancher]

Salut,

 

je poursuis ma liste de questions :

 

comment récupérer les coordonnées du point d'insertion d'un bloc ?

 

merci de l'aide

 

A+

[winfield]

Bonjour,

Comment va Robinson Crusoé ?

 

Sub XYBloc()
   Dim ObjBloc As AcadBlockReference
   Dim StrNomBloc As String
   StrNomBloc = "popo"
   For Each ObjBloc In ThisDrawing.ModelSpace
       If ObjBloc.Name = StrNomBloc Then
           XY = ObjBloc.insertionPoint
           MsgBox XY(0) & " , " & XY(1) & " , " & XY(2)
       End If
   Next
End Sub 

 

Bonne continuation

[Marc Blancher]

Salut Winfield,

 

merci pour l'info, je commençais à tourner en rond sur mon île, faute de pouvoir avancer ;).

 

En fait, j'ai personnaliser la macro disponible d'extraction d'attributs.

 

A partir d'excel, je voulais avoir le nom bu bloc ainsi que les coordonnées d'insertion du bloc avec les attributs.

 

C'est chose faite maintenant.

 

merci encore

 

A+

 

Au fait as tu regardé la macro que j'ai faites sur le post suivant ?

 

http://www.cadxp.com/sujetXForum-7310.htm

 

As tu des commentaires ou des optimisations du code ou des erreurs ?

 

remerci

[winfield]

Non , pas de commentaire ou quoi que ce soit en bien ou en mal, je n'ai pas eu le temps d'étudier ton code faute de temps (mais peut-être ce WE...j'espère, car ça m'interresse).

Mais je pense que pour ma part je serais passé par AutoCAD à la place d'excel, c'est juste une histoire de goût.

Mais en tout cas ça marche bien.

Félicitation, ça va m'aider pour plus tard.

Merci à toi

[tyrese69_]

Ce code marche bien pour l'espace objet mais en remplacant Model par Paper

le fonctionnment n'est pas le même.

Comment obtient on la couche du bloc "Cartouche" dans l'espace papier ?

 

Daniel

 

Sub coucheBloc()

Dim ObjBloc As AcadBlockReference

Dim StrNomBloc As String

StrNomBloc = "Cartouche"

For Each ObjBloc In ThisDrawing.ModelSpace

If ObjBloc.Name = StrNomBloc Then

couche = ObjBloc.Layer

MsgBox couche

End If

Next

End Sub

[tyrese69_]

D'abord bonjour à tous désolé, j'ai envoyé mon message un peu vite !

 

Encore toutes mes excuses !

 

Daniel