Les codes DXF : J\'pige\'kdal

[winfield]

Quelqu'un pourrait m'expliquer comment on se sert des codes DXF ?

Je veux mettre un filtre pour selectionner que les textes et les MTextes mais :

 

Textmult : code de groupe =100

Text : code de groupe =100

Line :code de groupe =100

:(

 

et que fait-on quand il y a plusieurs codes ?

 

(MText) 71 Point d'attache :

 

1 = En haut à gauche ; 2 = En haut au centre ; 3 = En haut à droite

4 = Au milieu à gauche ; 5 = Au milieu au centre ; 6 = Au milieu à droite

7 = En bas à gauche ; 8 = En bas au centre ; 9 = En bas à droite

 

On les additionne ?

 

 

 

[Tramber]

C'est le groupe 0 qui contient le type d'entité et no le code 100.

 

Mais en VBA, il n'y a pas d'interet à expliter le DXF, sachant qu'on est en programmation objet.

 

Enfin, à mon sens, je ne connais pas le VBA, sinon par le Vlisp.

[JFTxJ]

En fait, en VBA, l'objet SelectionSet peut utiliser les GroupCodes. Comme Winfield a dit, le code à utiliser est le 0.

 

Voici une exemple qui recherche dans le dessin toutes les Layers utilisé...

 

Dim collCurrentLayers As New Dictionary

 

Dim LayerObj As IAcadLayer2

Dim SSet As AcadSelectionSet

 

Dim gpCode(0) As Integer

Dim dataValue(0) As Variant

 

Dim groupCode As Variant, dataCode As Variant

'-----------------------Code qui évite le problème du SelectionSet déjà existant.

For Each SSet In ThisDrawing.SelectionSets

If SSet.Name = "PerLayer" Then Exit For

Next SSet

If SSet Is Nothing Then

Set SSet = ThisDrawing.SelectionSets.Add("PerLayer")

End If

'-----------------------Code qui évite le problème du SelectionSet déjà existant.

 

collCurrentLayers.RemoveAll

Dim x As AcadObject

'-------------Building the dictionary of collCurrentLayers

For Each LayerObj In ThisDrawing.Layers

SSet.Clear

 

gpCode(0) = 8

dataValue(0) = LayerObj.Name

 

groupCode = gpCode

dataCode = dataValue

 

SSet.Select acSelectionSetAll, , , groupCode, dataCode

If SSet.COUNT > 0 Then

collCurrentLayers.Add LayerObj.Name, LayerObj

End If

Next LayerObj

SSet.Delete

'------------------------------------------------------

'------------Building the dictionary of StandardLayers

 

Donc ici, la variable "gpCode(0)" devrais avoir une valeur de "0",

et "dataValue(0)" devrais être le nom DXF des objects que tu cherche.

 

Malheureusement, je crois que tu devras faire un sélection pour chaque type d'objets que tu recherche. Je crois pas que tu puisses le faire en un coup....

 

J'espère que ça l'aide.

[winfield]

Merci pour tes explications.

 

........t'es sûr de n'être qu' "apprentis-expert" ? :P