初学vb.net,在2010里画线的例子

shirazbj

2. Public Class Form1
   
3. 
   
4.     Dim acadapp As Autodesk.AutoCAD.Interop.AcadApplication
   
5. 
   
6.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
   
7.         End
   
8.     End Sub
   
9. 
   
10.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
11. 
    
12.         Call bj_linkautocad()
    
13.         Call bj_draw()
    
14. 
    
15.     End Sub
    
16.     Sub bj_linkautocad()
    
17. 
    
18.         On Error Resume Next
    
19. 
    
20.         acadapp = GetObject(, "autocad.application")
    
21.         If Err.Number Then
    
22.             Err.Clear()
    
23.             acadapp = CreateObject("autocad.application")
    
24.             If Err.Number Then
    
25.                 MsgBox("Can't start AutoCAD")
    
26.                 Exit Sub
    
27. 
    
28.             End If
    
29.         End If
    
30. 
    
31.         acadapp.Visible = True
    
32.         AppActivate(acadapp.Caption)
    
33. 
    
34.     End Sub
    
35.     Sub bj_draw()
    
36. 
    
37.         Dim points(3) As Double
    
38.         Dim plineobj(1) As Autodesk.AutoCAD.Interop.Common.AcadLWPolyline
    
39. 
    
40.         points(0) = 0 : points(1) = 0
    
41.         points(2) = 100 : points(3) = 100
    
42.         plineobj(0) = acadapp.ActiveDocument.ModelSpace.AddLightWeightPolyline(points)
    
43. 
    
44.     End Sub
    
45. End Class
    
46. 
    

Public Class Form1<br /> <br />     Dim acadapp As Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.Interop.AcadApplication<br /> <br />     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br />         End<br />     End Sub<br /> <br />     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> <br />         Call bj_linkautocad()<br />         Call bj_draw()<br /> <br />     End Sub<br />     Sub bj_linkautocad()<br /> <br />         On Error Resume Next<br /> <br />         acadapp = GetObject(, "autocad.application")<br />         If Err.Number Then<br />             Err.Clear()<br />             acadapp = CreateObject("autocad.application")<br />             If Err.Number Then<br />                 MsgBox("Can't start AutoCAD")<br />                 Exit Sub<br /> <br />             End If<br />         End If<br /> <br />         acadapp.Visible = True<br />         AppActivate(acadapp.Caption)<br /> <br />     End Sub<br />     Sub bj_draw()<br /> <br />         Dim points(3) As Double<br />         Dim plineobj(1) As Autodesk.AutoCAD.Interop.Common.AcadLWPolyline<br /> <br />         points(0) = 0 : points(1) = 0<br />         points(2) = 100 : points(3) = 100<br />         plineobj(0) = acadapp.ActiveDocument.ModelSpace.AddLightWeightPolyline(points)<br /> <br />     End Sub<br /> End Class<br /> <br />

用的vb.net express 2008, 在autocad 2010里从(0,0)-(100,100)画了一条线.

guohq

发贴何意？