Choix du document Autocad au lieu de 'ActiveDocument'

Version imprimable

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:

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.

03/05/2012, 08h12
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
03/05/2012, 09h09
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:

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

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:

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

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

Code:

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