Récup. info sur entité d'un bloc Autocad

LeonnaejJCN Messages postés 2 Date d'inscription mercredi 3 novembre 2010 Statut Membre Dernière intervention 3 novembre 2010 - 3 nov. 2010 à 18:00
Number7 Messages postés 23 Date d'inscription vendredi 1 février 2002 Statut Membre Dernière intervention 27 décembre 2010 - 15 nov. 2010 à 00:28
Bonjour,


Voilà, je cherche à récupérer (codé en VBA) le centre d'un cercle se trouvant dans un bloc (Autocad), ce bloc ayant été, au préalable, sélectionné par l'utilisateur.
J'arrive bien (Normal! me direz-vous...c'est simple) à récupérer le nom de ce bloc, à contrôler qu'il s'agit bien d'un bloc, mais ne peux obtenir d'info sur les entités le composant.

Dois-je exploser le bloc, passer par un jeu de sélection...?

Je débute en VBA...Dur!

Je vous remercie d'avance de votre collaboration.

Cordialement.

1 réponse

Number7 Messages postés 23 Date d'inscription vendredi 1 février 2002 Statut Membre Dernière intervention 27 décembre 2010 1
15 nov. 2010 à 00:28
Essais Ca (Pour ce qui est d'avoir le centre, je n'ai pas trouver comment) :

Dim Bloque As AcadBlock
Dim Entite As AcadEntity
Dim Cercle As AcadCircle
Dim Centre As Variant


For Each Bloque In ThisDrawing.Blocks
If Bloque.Name = "BLOCK_X" Then
For Each Entite In Bloque
If TypeOf Entite Is AcadCircle Then
Set Cercle = Entite

MsgBox Cercle.Diameter
End If
Next Entite
End If
Next Bloque
0
Rejoignez-nous