Discussion :

[ange3]

bonjour,

j'ai un projet de simulation commande numérique fraisage en vb.

je voulais communiquer vb avec autocad afin de tracer des lignes

quelqu'un peut m'aider

merci

[SfJ5Rpw8]

ben déjà qu'elle est ta version d'autocad ?

[ange3]

autocad 2004

[SfJ5Rpw8]

le plus simple est peu-être d'utiliser le VBA intégré à Autocad .. tu as devrai avoir des exemples sous C:\Program Files\AutoCAD 2004\Sample\VBA ... sinon en VB6 voici un exemple inspiré du drawline.dvb présent sous ce répertoire et adapté au 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
 
Private Sub Command1_Click()
Dim Ac As AutoCAD.AcadApplication
Set Ac = New AutoCAD.AcadApplication
Dim d As AutoCAD.AcadDocument
Set d = Ac.Documents.Add
Dim aline As AutoCAD.AcadLine
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
Ac.Visible = True
 'Data
 startPoint(0) = 1#
startPoint(1) = 1#
    startPoint(2) = 0#
 
    endPoint(0) = 5#
    endPoint(1) = 5#
    endPoint(2) = 0#
 
    'Object calls
    Set aline = d.ModelSpace.AddLine(startPoint, endPoint)
    aline.Update
End Sub