Discussion :

[Asdorve]

Bonjour,

Lorsque je dessine des plans sur Autocad, je trace des cables de longueurs variables, et j'insère à côté de ces câbles des zones de texte avec la longueur correspondante.

Mais dès fois je me retrouve avec des centaines de cables, donc pas évident de retrouver toutes les longueurs.

Ce que je voudrais faire, c'est créer une routine qui lit mon fichier Autocad, et qui recherche par exemple toutes les zones de texte qui contiennent la longueur spécifiée. (comme par exemple Ctrl+F sur la page Web pour faire une recherche.).

Est-ce que c'est possible à faire?

Je ne trouve pas.

Merci de votre aide.

[Theocourant]

Salut,

Aurais-tu un exemple de fichier Autocad pour voir ce que l'on peut faire.

Merci d'avance

Théo

[Asdorve]

je peux t'en créer un pour l'exemple, mais as-tu autocad? Quelle version?

Si tu n'a pas Autocad installé, tu n'auras pas les références...

Tu dis, si c'est ok je balance un fichier dwg

[Theocourant]

Je n'ai pas Autocad ...

Donc le fichier dwg sera le bienvenu

+

Théo

[Asdorve]

Voici un fichier Autocad contenant en fait seulement des zones de texte.

Il faut que j'arrive à savoir pour le calque courant combien il y a de "5m", de "8m", etc...

[SfJ5Rpw8]

qu'elle version d'autocad utilise tu ... ? LT..? .

[Asdorve]

Autocad 2006 LT

[SfJ5Rpw8]

tiens un script VBA Autocad qui permet de lister les textes présent dans classeur actif.. tu devrai pouvoir t'en inspirer..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub ChercheTexte()
  Dim elem As Object
    For Each elem In ThisDrawing.ModelSpace
        With elem
            If (.EntityName = "AcDbMText") Then
              Debug.Print .TextString
            End If
        End With
        Set elem = Nothing
    Next elem
 
End Sub

[Asdorve]

Merci!
tu l'a récup où?

[SfJ5Rpw8]

Merci!
tu l'a récup où?

.. ben j'ai du écrire cela à partir de l'aide en ligne VBA d'autocad (j'ai accés à la version 2004 au boulot.. avec VBA..)

[Asdorve]

mais tu sélectionnes comment le fichier autocad que tu veux ouvrir?

[SfJ5Rpw8]

ben un peu comme quand tu pilote excel depuis VB6 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub Command1_Click()
Dim AcApp As New AcadApplication
Dim MonDoc As AcadDocument
Dim elem As Object
 
AcApp.Visible = True
Set MonDoc = AcApp.Documents.Open(App.Path & "\testlong.dwg")
If Not MonDoc Is Nothing Then
    For Each elem In MonDoc.ModelSpace
        With elem
            If (.EntityName = "AcDbMText") Then
              Debug.Print .TextString
            End If
        End With
        Set elem = Nothing
    Next elem
  MonDoc.Close False
End If
AcApp.Quit
Set MonDoc = Nothing
Set AcApp = Nothing
 
End Sub

[Asdorve]

merci beaucoup.

De quoi vient cette erreur?

[SfJ5Rpw8]

elle ce produit à quel moment cette erreur .. as tu essayer d'exécuter en pas à pas ... (PS j'ai jamais essayé le pilotage d'Autocad LT.. et je n'en connais pas les limites..)

[Asdorve]

elle se produit sur la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
AcApp.Visible = True

ça plante à ce moment là. Et lorsque j'essaye de cliquer ailleurs, ça m'affiche ce message

[SfJ5Rpw8]

oui je viens d'essayer mon exe sur un poste Autocad LT et j'ai le même probléme ... je suis pas sur que l'on puisse piloter en OLE la version LT..?



peu-être la solution pour ton probléme et de passer par l'export dans un fichier dxf , puis le traitement du dit fichier..

[Asdorve]

ok, et j'ai un moyen de faire en automatique un import du fichier en dxf et de le traiter ensuite?

[Asdorve]

je viens de m'apercevoir qu'au bout d'un moment, si je clique sur Basculer vers, j'ai le message siuvant:

Le composant ActiveX ne peut créer cet objet

en surlignant AcApp

EDIT:
lorsque j'essaye de passer par le dxf, même message que ci-dessus...

Le composant ActiveX ne peut créer cet objet

[SfJ5Rpw8]

non ... le dxf c'est un fichier texte .. donc tu peu le traiter comme tel...

[Asdorve]

d'accord, donc en fait, je parcours le fichier texte, je repère les sections de texte et je recherche les valeurs qui me vont bien.

Merci beaucoup de ton aide.

@ bientôt