- 积分
- 1838
- 明经币
- 个
- 注册时间
- 2003-8-24
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
Public Sub DrawAutoCADLine() Dim AutoCADApplication As AutoCAD.Application Dim StartLine(0 To 2) As Double Dim EndLine(0 To 2) As Double Set AutoCADApplication = creatobject("AutoCAD.Application") StartLine(0) = Cells(2, 2).Value StartLine(1) = Cells(3, 2).Value EndLine(0) = Cells(2, 3).Value EndLine(1) = Cells(3, 3).Value AutoCADApplication.ActiveDocument.ModelSpace.AddLine StartLine, EndLine End Sub
以上代码在excel的vba中写入,已经在引用里加入了autocad 2004 库,但是还是不能识别:autocad.application 提示用户定义类型未定义。不知道为什么。 |
|