DrawOrder et VBA

[Pako]

Hé les ceintures noirs !

 

Je suis buggé ! Je veux faire un petit programme VBA qui prend tous les hachures d'un dessin et applique la commande DRAWORDER (back) à tous ces hachures.

 

Voici mon code:

 

Public Sub SelectHatch()

 

Dim objObject As Object

Dim objSelectSet As AcadSelectionSet

Dim dataCodeDxf(0) As Variant

Dim nCodeDxf(0) As Integer

 

On Error Resume Next

 

nCodeDxf(0) = 0: dataCodeDxf(0) = "HATCH"

 

Set objSelectSet = ThisDrawing.SelectionSets.Add("GroupeSelect")

If Err.Number <> 0 Then

Set objSelectSet = ThisDrawing.SelectionSets("GroupeSelect")

objSelectSet.Clear

 

Err.Clear

End If

objSelectSet.Select acSelectionSetAll, , , nCodeDxf, dataCodeDxf

 

For Each objObject In objSelectSet

 

ThisDrawing.SendCommand "_draworder" & vbCr & objObject & vbCr & "b" & vbCr

Next

 

objSelectSet.Delete

End Sub

 

 

Merci ! les mecs !

[Pako]

Merci pareil la gang de ceintures noirs !

 

J'ai fini pas trouver ma réponse dans le groupe de discussion sur http://discussion.autodesk.com

 

.......et Merci à Pat pour ma nouvelle ceinture bleue ! Je me sens plus fort ! ;)

[tamu]

Bonjour,

 

J'ai en gros la même question...et j'ai pas trouvé mon bonheur sur autodesk (surement à cause de mon anglais primaire)

 

y a t-il une piste en VBA !?

 

j'ai déjà chargé dans une "Collection" mes objets (il y a que des block) mais je ne sais pas comment continuer. (j'ai essayé plusieurs piste mais j'ai que des bugs)

 

Un grand merci d'avance!

 

For Each Objekt In ThisDrawing.ModelSpace
   If TypeName(Objekt) = "IAcadBlockReference" Then
       If Mid(Objekt.name, 1, 4) = "CAD_" Then
           BlockCol.Add Objekt
       End If
   End If
Next

BlockCol.???

 

[Edité le 14/4/2008 par tamu]