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

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

本帖最后由作者于 2010-9-13 14:13:50 编辑

Public AcadApp As Object

Public acadDoc As Object

Public strFileName As String

Set AcadApp = CreateObject("AutoCAD.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

本帖最后由作者于 2010-9-13 15:28:55 编辑

chmenf087发表于2010-9-10 15:50:00acadapp.documents.open \"FilenameAndPath\" set acadDoc=activedocument

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

账号		自动登录	找回密码
密码			注册