“AutoCAD.Application”未定义，求解

poople

上码先：

1. Sub Drawline()
   
2.    
   
3.    Dim AutoCADApp As AutoCAD.Application
   
4.    Set AutocadApp = CreateObject("AutoCAD.Application")
   
5.    Dim Aline As AcadLine
   
6.    Dim PointS(2) As Double
   
7.    Dim PointE(2) As Double
   
8.    
   
9.    PointS(0) = ThisWorkbook.Sheets("Sheet1").Cells(2, 2).Value
   
10.    PointS(1) = ThisWorkbook.Sheets("Sheet1").Cells(2, 3).Value
    
11.    PointS(2) = ThisWorkbook.Sheets("Sheet1").Cells(2, 4).Value
    
12.    
    
13.    PointE(0) = ThisWorkbook.Sheets("Sheet1").Cells(3, 2).Value
    
14.    PointE(1) = ThisWorkbook.Sheets("Sheet1").Cells(3, 3).Value
    
15.    PointE(2) = ThisWorkbook.Sheets("Sheet1").Cells(3, 4).Value
    
16.    
    
17.    AutocadApp.Visible = True
    
18.    Set Aline = AutocadApp.ModelSpace.AddLine(PointS, PointE)
    
19.    Aline.Highlight = True
    
20. 
    
21.    
    
22. End Sub
    

Sub Drawline()<br />     <br />    Dim <a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>App As AutoCAD.Application<br />    Set AutocadApp = CreateObject("AutoCAD.Application")<br />    Dim Aline As AcadLine<br />    Dim PointS(2) As Double<br />    Dim PointE(2) As Double<br />    <br />    PointS(0) = ThisWorkbook.Sheets("Sheet1").Cells(2, 2).Value<br />    PointS(1) = ThisWorkbook.Sheets("Sheet1").Cells(2, 3).Value<br />    PointS(2) = ThisWorkbook.Sheets("Sheet1").Cells(2, 4).Value<br />    <br />    PointE(0) = ThisWorkbook.Sheets("Sheet1").Cells(3, 2).Value<br />    PointE(1) = ThisWorkbook.Sheets("Sheet1").Cells(3, 3).Value<br />    PointE(2) = ThisWorkbook.Sheets("Sheet1").Cells(3, 4).Value<br />    <br />    AutocadApp.Visible = True<br />    Set Aline = AutocadApp.ModelSpace.AddLine(PointS, PointE)<br />    Aline.Highlight = True<br /> <br />     <br /> End Sub<br />

这段代码是在Excel VBA环境下编写的，目的是将Excel表格中的两个点的数据传递到AutoCAD中并画出直线。
代码运行至第一句“Dim AutocadApp As AutoCAD.Application”就卡主了，提示如下：


然而，在运行这段代码前我已经加载了“AutoCAD 2008 Type library”库：


烦请请各位指教！

yuanziyou

http://bbs.mjtd.com/thread-81422-1-1.html

zzyong00

http://bbs.mjtd.com/thread-111783-1-1.html

yuanziyou

1. Sub drawline2()
   
2. Dim acadApp As Object
   
3. Dim acadDoc As Object
   
4. On Error Resume Next
   
5. Set acadApp = GetObject(, "AutoCAD.Application")
   
6. If err Then
   
7. err.Clear
   
8. Set acadApp = CreateObject("AutoCAD.Application")
   
9. If err Then End
   
10. End If
    
11. 
    
12. Set acadDoc = acadApp.ActiveDocument
    
13.    Dim Aline As Object
    
14.    Dim PointS(2) As Double
    
15.    Dim PointE(2) As Double
    
16. 
    
17.    PointS(0) = Cells(2, 2)
    
18.    PointS(1) = Cells(2, 3)
    
19.    PointS(2) = Cells(2, 4)
    
20. 
    
21.    PointE(0) = Cells(3, 2)
    
22.    PointE(1) = Cells(3, 3)
    
23.    PointE(2) = Cells(3, 4)
    
24.       
    
25.    acadApp.Visible = True
    
26.    Set Aline = acadDoc.ModelSpace.AddLine(PointS, PointE)
    
27.    Aline.Highlight = True
    
28.    'acadDoc.Application.ZoomExtents
    
29. End Sub

Sub drawline2()<br /> Dim acadApp As Object<br /> Dim acadDoc As Object<br /> On Error Resume Next<br /> Set acadApp = GetObject(, "AutoCAD.Application")<br /> If err Then<br /> err.Clear<br /> Set acadApp = CreateObject("AutoCAD.Application")<br /> If err Then End<br /> End If<br /> <br /> Set acadDoc = acadApp.ActiveDocument<br />    Dim Aline As Object<br />    Dim PointS(2) As Double<br />    Dim PointE(2) As Double<br /> <br />    PointS(0) = Cells(2, 2)<br />    PointS(1) = Cells(2, 3)<br />    PointS(2) = Cells(2, 4)<br /> <br />    PointE(0) = Cells(3, 2)<br />    PointE(1) = Cells(3, 3)<br />    PointE(2) = Cells(3, 4)<br />       <br />    acadApp.Visible = True<br />    Set Aline = acadDoc.ModelSpace.AddLine(PointS, PointE)<br />    Aline.Highlight = True<br />    'acadDoc.Application.ZoomExtents<br /> End Sub