[VBA程序]：求教AutoCAD和Microsoft应用程序Excel之间的数据交换

阮少清

各位老师：
我们在南亚一个小国搞道路施工，资讯缺乏。最近国内来人，带来几本有关AutoCAD程序设计的书。
在下有一个困扰我多日的问题，由于求教无门，只好请同事上网查询有关网站，冒昧向各位老师求救！
我们有一本“AutoCAD VBA从入门到精通”（[美]Marion Cottingham著  电子工业出版社）一书，其中第16章讲述ActiveX控件，通过这些控件进行AutoCAD和Microsoft应用程序Excel、Word和Access之间的数据交换。
其范例16-1是用AutoCAD VBA代码编写，在AutoCAD窗口输入直线的两个点，由VBA程序打开Excel，将其直线数据存储到Excel中，该范例演示成功。     
我们最感兴趣的范例是16-2，是用 Excel VBA代码编写，该范例是直接利用Excel中的数据在AutoCAD窗口绘制直线。然而不幸的是；该范例未能运行下去。只要一运行该范例，就在调用AutoCAD.Application对象时出错，其语句为AutoCADApplication As AutoCAD.Application。总是提示：“编译错误：用户定义类型未定义”。
而我们已按步骤在Excel中打开引用对话框，在可使用的引用项目中勾选了“AutoCAD类型库及AutoCAD/Object DBX Ommon 1.0 类型库。
是何原因导致出错？
是我们操作方面的问题还是Excel不支持这类操作?
原代码如下：
Public Sub DrawLineInAutoCAD()
Dim AutoCADApplication As AutoCAD.Application
AutoCADApplication.Visible = True
Dim StartLine(0 To 2) As Double
Dim Endline(0 To 2) As Double
Set AutoCADApplication = CreateObject(" AutoCADapplication")
StartLine(0) = Cells(2, 2).Value
StartLine(1) = Cells(3, 2).Value
endtline(0) = Cells(2, 3).Value
endtline(1) = Cells(3, 3).Value
AutoCADApplication.ActiveDocument.ModelSpace.Addlinestartline , Endline
End Sub
我们使用的是AutoCAD2000及Office XP Professional。
烦请各位老师援手，给我们指点迷津，则不胜感激之至。
                                                                                                阮少清
2003/5/18

Laoyao

可能性1
ACAD没有安装好(这个我碰到过)
解决方法:ACAD SETUP 修复

可能性2
AutoCADApplication As AutoCAD.Application
APPLICATION不是正确类名.
由于版本不同,类名的表示可能不同.如,ACAD2004的定义为AcadApplication
EXCEL中 Dim AA As AutoCAD.AcadApplication
解决方法,Dim AA As AutoCAD.输入[.]后,在弹出选择框中查找带有Application字样的类名

efan2000

一、AutoCAD VBA中的对象类型都是以Acad开头的，如Application对象为AcadApplication，而Document对象为AcadDocument，这一点与Excel中的VBA是不一样的。
二、当声明完Application对象后，不能直接就使用它的属性或者方法，因为它还没赋值，还不是一个有效的对象。因而这一句AutoCADApplication.Visible = True应该在后面使用。
三、Endline数组在后面使用中中间多了一个t。endtline[/COLOR]

2. 
   
3.   [FONT=courier new]
   
4. Public Sub DrawLineInAutoCAD()
   
5.     Dim AutoCADApplication As AcadApplication
   
6.     Set AutoCADApplication = CreateObject(" AutoCADapplication")
   
7.     AutoCADApplication.Visible = True
   
8.    
   
9.     Dim StartLine(0 To 2) As Double
   
10.     Dim Endline(0 To 2) As Double
    
11.     StartLine(0) = Cells(2, 2).Value
    
12.     StartLine(1) = Cells(3, 2).Value
    
13.     Endline(0) = Cells(2, 3).Value
    
14.     Endline(1) = Cells(3, 3).Value
    
15.     AutoCADApplication.ActiveDocument.ModelSpace.AddLine StartLine, Endline
    
16. End Sub
    
17.   [/FONT]
    

<br />   [FONT=courier new]<br /> Public Sub DrawLineInAutoCAD()<br />     Dim AutoCADApplication As AcadApplication<br />     Set AutoCADApplication = CreateObject(" AutoCADapplication")<br />     AutoCADApplication.Visible = True<br />     <br />     Dim StartLine(0 To 2) As Double<br />     Dim Endline(0 To 2) As Double<br />     StartLine(0) = Cells(2, 2).Value<br />     StartLine(1) = Cells(3, 2).Value<br />     Endline(0) = Cells(2, 3).Value<br />     Endline(1) = Cells(3, 3).Value<br />     AutoCADApplication.ActiveDocument.ModelSpace.AddLine StartLine, Endline<br /> End Sub<br />   [/FONT]<br />

ahlzl

最初由 efan2000 发布
[B]一、AutoCAD VBA中的对象类型都是以Acad开头的，如Application对象为AcadApplication，而Document对象为AcadDocument，这一点与Excel中的VBA是不一样的。
二、当声明完Application对象后，不能直接就使用它的属性或... [/B]

斑竹的这段代码还是不行，是我引用错了，还是……
我已学会在CAD打开EXCEL；但在EXCEL中却打不开CAD。

efan2000

找到原因了，主要是要创建的应用程序名称和类的问题。AutoCAD的clss应为：AutoCAD.application。在类名称的字符串之前不能在空格，而且应用程序和类名之间必须用点号隔开。如CreateObject(" AutoCADapplication")，就是多了一个空格，中间少了一个“.”。