apple06 发表于 2004-1-9 10:01:00

[求助]如何由VB连接AutoCAD

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

Mrqq18 发表于 2004-1-9 16:19:00

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

gzy 发表于 2004-1-9 16:49:00

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 发表于 2004-1-10 00:42:00

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

apple06 发表于 2004-1-10 11:21:00

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

zzg4028061 发表于 2004-1-11 12:00:00

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

efan2000 发表于 2004-1-11 14:23:00

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

apple06 发表于 2004-1-12 21:23:00

还是不行
Set acaddoc = acadapp.activedocument中activedocument的字符不象有些属性方法那样部分字母变成大写
在调试过程中,监视到acaddoc的值溢出上下文,
敬请各路高手指点!
页: [1]
查看完整版本: [求助]如何由VB连接AutoCAD