[求助]如何由VB连接AutoCAD

apple06

请教给位,我想由VB连接AutoCAD2002,但在工程引用中没有找到object library,该怎么办
l

Mrqq18

用creatobject函数，用法看帮助文件

gzy

Private Sub cmddo_click()
   Size = 0
   On Error Resume Next
   Set acadapp = GetObject(, "AutoCAD.application")
   If Err Then
     Err.Clear
     Set acadapp = CreateObject("AutoCAD.application")
        If Err Then
           MsgBox Err.Description
           Exit Sub
        End If
   End If
Set acaddoc = acadapp.activedocument

cqnj023

请问gxy斑竹，就用你3楼的代码，我也只有在cad打开时acadapp能获得对象，cad关闭时无能怎样也无法创建对象，acadapp的值始终为空，不知是那里有问题，望将军或哪位大侠帮忙，小弟先行感谢！

apple06

采用3楼的代码能打开AutoCAD,但想继续获得acaddoc对象就实现不了了.在连接R14时,要求工程引用"Autocad object library",在2002版本中是否也有相应的要求.

zzg4028061

获得cadapp,用Createobject("autocad.application")可以啊
获得caddoc,用Createobject("autocad.drawing")

efan2000

ActiveDocument都是可以得到的啊。Set acaddoc = acadapp.activedocument

apple06

还是不行
Set acaddoc = acadapp.activedocument中activedocument的字符不象有些属性方法那样部分字母变成大写
在调试过程中,监视到acaddoc的值溢出上下文,
敬请各路高手指点!