Discussion :

[Nicletess]

Bonjour,

Dans le cadre de mon travail de fin d'étude, j'aimerais dessiner continuellement un dessin dans autocad à l'aide d'un script ("polylign x,y x,y x,y CLORE")
J'aimerais créer une macro VBA permettant d'ouvrir ce script (.scr) dans autocad. J'aimerais que ce fichier se réouvre tous les x temps (à l'aide d'une boucle et d'un sleep par exemple). Ce fichier script sera automatiquement modifié à l'aide d'un autre programme, d'où l'intérêt de le réouvrir continuellement.

J'ai pensé faire un petit programme de ce genre:

Code :

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

1
2
3
4
Sub Insertion()
        Shell ("E:\Fichiers d'installation\acad.exe C:\Users\Nico\Documents\formePO.scr")
        Sleep 1000
End Sub

Mais autocad se réouvre à chaque fois (ça ne m’intéresse pas) et le script ne s'ouvre pas.

Voyez-vous une autre solution permettant de dessiner en continu dans autocad en ayant des coordonnées de points? Ou une commande VBA permettant d'ouvrir un script dans autocad?

Je débute avec Visual Basic.

D'avance je vous remercie pour votre aide.

[Invité]

La commande Shell à pour but de justement exécuter des programme externe à vb! ne t’étonnes pas si Autocad ce ré ouvre à chaque exécution de la commande!
pourquoi ne pas définir ton script dans vba qui sait gérer Autocad?

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
25
26
27
Sub test()
Dim AutoApp As Object
Dim DocAutoCad As Object
Dim InsertCadre(0 To 4) As Double
Set AutoApp = CreateObject("AutoCAD.Application")
Set DocAutoCad = AutoApp.Documents.Add
AutoApp.Visible = True
          InsertCadre(0) = 41
          InsertCadre(1) = 20
          InsertCadre(2) = 57
          InsertCadre(3) = 25
         CrateCadre DocAutoCad, InsertCadre, 1
End Sub
 
Public Function CrateCadre(MyDocumment, InsertPointCadre, Couleur As Long)
  Dim points(0 To 14) As Double
 
 
    points(0) = InsertPointCadre(0): points(1) = InsertPointCadre(1): points(2) = 0
    points(3) = InsertPointCadre(2): points(4) = InsertPointCadre(1): points(5) = 0
    points(6) = InsertPointCadre(2): points(7) = InsertPointCadre(3): points(8) = 0
    points(9) = InsertPointCadre(0): points(10) = InsertPointCadre(3): points(11) = 0
    points(12) = InsertPointCadre(0): points(13) = InsertPointCadre(1): points(14) = 0
    Set CrateCadre = MyDocumment.ModelSpace.AddPolyline(points)
 
CrateCadre.Color = Couleur
End Function