Discussion :

[LimsWolf]

Bonjour,

Mon programme communique avec autoCad et j'ai plusieurs fichier autocad ouvert et je voudrais choisir celui dans lequel je veux travailler.
Je voudrais remplacer 'ActiveDocument' par le l'intitulé de mon fichier .dwg :

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
Sub ChoixDeZone_Click()
 
Dim NewZone As String
NewZone = ThisWorkbook.Path & "\Zones\" & Cells(5, 13) & ".dwg"
 
If Par_zone = True Then
 
    Set AcadDoc = GetObject(, "Autocad.application").ActiveDocument
    Set AcadObj = GetObject(, "Autocad.application")
 
    Call SetForegroundWindow(FindWindowA(vbNullString, AcadObj.Caption))
    AutoCAD.Application.ActiveDocument.SendCommand ("(load ""selp"") ")
    AutoCAD.Application.ActiveDocument.SendCommand ("ssoc ")
    Set objSelSet = AutoCAD.Application.ActiveDocument.ActiveSelectionSet
 
    AutoCAD.Application.ActiveDocument.Wblock NewZone, objSelSet
 
End If
 
End Sub

Merci.

[Didier Gonard]

Bonjour,

activedocument doit-être la même chose qu'activesheet (renvoie un objet /cf aide vba) pour Excel, il te faut donc utiliser une variable objet pour pouvoir désigner le document en dynamique

vois ce tutoriel :

http://silkyroad.developpez.com/VBA/LesVariables/#LII-K

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[fring]

Bonjour,

Tu peux activer la référence "AutoCAD xxxx Type Library" et ainsi disposer de toute une bibliothèque d'objets liée à Autocad.

Pour faire référence à un plan (ouvert) bien précis, tu peux faire (après avoir activé la référence) :

Code :

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

AutoCAD.Documents("Mon_Plan.dwg").SendCommand ("Ma_Commande")

[LimsWolf]

merci pour vos réponses,

oui j'ai activé la bibliothèque autocad, je suis plutot vers la fin de mon projet de métré automatique :-)

merci fring pour la solution c'est exactement ce qu'il me fallait. j'ai testé, ça fonctionne très bien +1.

Et voici le code si d'autres sont conserné :

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
Sub ChoixDeZone_Click()
 
Dim NewZone As String
NewZone = ThisWorkbook.Path & "\Zones\" & Cells(5, 13) & ".dwg"
 
If Par_zone = True Then
 
    Set AcadDoc = GetObject(, "Autocad.application").Documents("gabarit_2.dwg")
    Set AcadObj = GetObject(, "Autocad.application")
 
    Call SetForegroundWindow(FindWindowA(vbNullString, AcadObj.Caption))
    AcadDoc.SendCommand ("(load ""selp"") ")
    AcadDoc.SendCommand ("ssoc ")
    Set objSelSet = AcadDoc.ActiveSelectionSet
 
    AutoCAD.Application.ActiveDocument.Wblock NewZone, objSelSet
 
End If
 
End Sub

[fring]

Avec la bibliothèque AutoCAD activée, le code ci-dessous devrait convenir

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
Sub ChoixDeZone_Click()
Dim NewZone As String, AcadDoc As AcadDocument
 
NewZone = ThisWorkbook.Path & "\Zones\" & Cells(5, 13) & ".dwg"
 
If Par_zone = True Then
    Set AcadDoc = AutoCAD.Documents("gabarit_2.dwg")
    With AcadDoc
        .SendCommand ("(load ""selp"") ")
        .SendCommand ("ssoc ")
        .Wblock NewZone, .ActiveSelectionSet
    End With
End If
 
End Sub