社区 › VB › [求助]VB程序调用CAD2000无法打开图纸

hxlpss 发表于 2010-9-10 12:46:00

[求助]VB程序调用CAD2000无法打开图纸

Public AcadApp As Object
Public acadDoc As Object
Public strFileNameAs String
Set AcadApp = CreateObject(".Application.15")
AcadApp.Visible = True   'CAD2000可以正常调用
Set acadDoc = AcadApp.ActiveDocument

acadDoc.Open strFileName      'strFileName已经有值,OPEN文件时出错

以上代码改了版本号用在R14中是可以正常OPEN文件的.

请各位大大指教,不胜感激.

chmenf087 发表于 2010-9-10 15:50:00

acadapp.documents.open "FilenameAndPath"
set acadDoc=activedocument

chmenf087 发表于 2010-9-10 15:58:00

对不起上面第二句错了是
set acaddoc=acadapp.activedocument

hxlpss 发表于 2010-9-13 14:12:00

感谢你的帮助.用你的方法可以打开图纸了.

查看完整版本: [求助]VB程序调用CAD2000无法打开图纸