[VBA程序]：请问在VB例如和设置VBA开发环境？

heroleeheu

CAD里的VBA（IDE）不能用，请问在VB例如和设置？

秋枫

不用设置，引用一下库后直接用即可。
you must first reference the AutoCAD type library. To do this in VB, select the References option from the Project menu to launch the Reference dialog box. From the References dialog box, choose AutoCAD Type Library, and then press OK.

例程：

2. 
   
3. [FONT=courier new]
   
4. Sub Ch2_ConnectToAcad()
   
5.     Dim acadApp As AcadApplication
   
6.     On Error Resume Next
   
7.    
   
8.     Set acadApp = GetObject(, "AutoCAD.Application")
   
9.     If Err Then
   
10.         Err.Clear
    
11.         Set acadApp = CreateObject("AutoCAD.Application")
    
12.         If Err Then
    
13.             MsgBox Err.Description
    
14.             Exit Sub
    
15.         End If
    
16.     End If
    
17.     MsgBox "Now running " + acadApp.Name + _
    
18.            " version " + acadApp.Version
    
19. End Sub
    
20. [/FONT]

<br /> [FONT=courier new]<br /> Sub Ch2_ConnectToAcad()<br />     Dim acadApp As AcadApplication<br />     On Error Resume Next<br />     <br />     Set acadApp = GetObject(, "AutoCAD.Application")<br />     If Err Then<br />         Err.Clear<br />         Set acadApp = CreateObject("AutoCAD.Application")<br />         If Err Then<br />             MsgBox Err.Description<br />             Exit Sub<br />         End If<br />     End If<br />     MsgBox "Now running " + acadApp.Name + _<br />            " version " + acadApp.Version<br /> End Sub<br /> [/FONT]

VB与VBA程序比较

VBA:

2. 
   
3. [FONT=courier new]
   
4. Sub Ch2_AddLineVBA()
   
5.     ' This example adds a line
   
6.     ' in model space
   
7.     Dim lineObj As AcadLine
   
8.     Dim startPoint(0 To 2) As Double
   
9.     Dim endPoint(0 To 2) As Double
   
10.    
    
11.     ' Define the start and end
    
12.     ' points for the line
    
13.     startPoint(0) = 1
    
14.     startPoint(1) = 1
    
15.     startPoint(2) = 0
    
16.     endPoint(0) = 5
    
17.     endPoint(1) = 5
    
18.     endPoint(2) = 0
    
19.    
    
20.     ' Create the line in model space
    
21.     Set lineObj = ThisDrawing. _
    
22.         ModelSpace.AddLine _
    
23.         (startPoint, endPoint)
    
24.         
    
25.     ' Zoom in on the newly created line
    
26.     ZoomAll
    
27. End Sub
    
28. [/FONT]

<br /> [FONT=courier new]<br /> Sub Ch2_AddLineVBA()<br />     ' This example adds a line<br />     ' in model space<br />     Dim lineObj As AcadLine<br />     Dim startPoint(0 To 2) As Double<br />     Dim endPoint(0 To 2) As Double<br />     <br />     ' Define the start and end<br />     ' points for the line<br />     startPoint(0) = 1<br />     startPoint(1) = 1<br />     startPoint(2) = 0<br />     endPoint(0) = 5<br />     endPoint(1) = 5<br />     endPoint(2) = 0<br />     <br />     ' Create the line in model space<br />     Set lineObj = ThisDrawing. _<br />         ModelSpace.AddLine _<br />         (startPoint, endPoint)<br />         <br />     ' Zoom in on the newly created line<br />     ZoomAll<br /> End Sub<br /> [/FONT]

VB:

2. 
   
3. [FONT=courier new]
   
4. Sub Ch2_AddLineVB()
   
5.     On Error Resume Next
   
6.    
   
7.     ' Connect to the AutoCAD application
   
8.     Dim acadApp As AcadApplication
   
9.     Set acadApp = GetObject _
   
10.                   (, "AutoCAD.Application")
    
11.     If Err Then
    
12.         Err.Clear
    
13.         Set acadApp = CreateObject _
    
14.                   ("AutoCAD.Application")
    
15.         If Err Then
    
16.             MsgBox Err.Description
    
17.             Exit Sub
    
18.         End If
    
19.     End If
    
20.    
    
21.     ' Connect to the AutoCAD drawing
    
22.     Dim acadDoc As AcadDocument
    
23.     Set acadDoc = acadApp.ActiveDocument
    
24.    
    
25.     ' Establish the endpoints of the line
    
26.     Dim lineObj As AcadLine
    
27.     Dim startPoint(0 To 2) As Double
    
28.     Dim endPoint(0 To 2) As Double
    
29.     startPoint(0) = 1
    
30.     startPoint(1) = 1
    
31.     startPoint(2) = 0
    
32.     endPoint(0) = 5
    
33.     endPoint(1) = 5
    
34.     endPoint(2) = 0
    
35.     ' Create a Line object in model space
    
36.     Set lineObj = acadDoc.ModelSpace.AddLine _
    
37.                          (startPoint, endPoint)
    
38.     ZoomAll
    
39.     acadApp.visible = True
    
40. End Sub
    
41. [/FONT]

<br /> [FONT=courier new]<br /> Sub Ch2_AddLineVB()<br />     On Error Resume Next<br />     <br />     ' Connect to the AutoCAD application<br />     Dim acadApp As AcadApplication<br />     Set acadApp = GetObject _<br />                   (, "AutoCAD.Application")<br />     If Err Then<br />         Err.Clear<br />         Set acadApp = CreateObject _<br />                   ("AutoCAD.Application")<br />         If Err Then<br />             MsgBox Err.Description<br />             Exit Sub<br />         End If<br />     End If<br />     <br />     ' Connect to the AutoCAD drawing<br />     Dim acadDoc As AcadDocument<br />     Set acadDoc = acadApp.ActiveDocument<br />     <br />     ' Establish the endpoints of the line<br />     Dim lineObj As AcadLine<br />     Dim startPoint(0 To 2) As Double<br />     Dim endPoint(0 To 2) As Double<br />     startPoint(0) = 1<br />     startPoint(1) = 1<br />     startPoint(2) = 0<br />     endPoint(0) = 5<br />     endPoint(1) = 5<br />     endPoint(2) = 0<br />     ' Create a Line object in model space<br />     Set lineObj = acadDoc.ModelSpace.AddLine _<br />                          (startPoint, endPoint)<br />     ZoomAll<br />     acadApp.visible = True<br /> End Sub<br /> [/FONT]

heroleeheu

谢谢秋枫，
我是指在VB开发界面里如何设置AUTOTCAD 2000 VBA的开发环境？

秋枫

看一下顶上那一段英文啊。