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

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

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

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

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

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