关于(vla-Open dbxDoc FileName)的问题

namezg

(defun GetObjectDBXVer (/ version)

(if (>= (setq version (atoi (getvar "acadver"))) 16)

(strcat "ObjectDBX.AxDbDocument." (itoa version))

nil

)

)

(setq AcadObject (vlax-get-acad-object))

(setq dbxDoc (vla-GetInterfaceObject AcadObject (GetObjectDBXVer)))

(setq FileName "D:\\test.dwg")

(setq VlaFileName (vla-Open dbxDoc FileName))

为什么上面的代码没问题，而下面的有问题呢，怎么解决下面的问题呢？

(setq AcadObject (vlax-get-acad-object))

(setq dbxDoc (vla-GetInterfaceObject AcadObject (GetObjectDBXVer)))

(setq FileName "D:\\test.dxf")

(setq VlaFileName (vla-Open dbxDoc FileName))

该贴已经同步到 namezg的微博

Gu_xl

(vlax-invoke  dbxDoc  'dxfin FileName)

redcat

(vl-load-com)

(setq file(getfiled "Select a Dwg File" "c:\\" "dwg" 8))
(vla-Open (vla-get-Documents(vlax-get-acad-object))
          (substr file 1(- (strlen file) 4));dwg文件不能带".dwg"扩展名
)

自贡黄明儒

Gu_xl 发表于 2011-11-22 22:04
(vlax-invoke  dbxDoc  'dxfin FileName)

我试过了，还是打不开.dxf

自贡黄明儒

自贡黄明儒 发表于 2012-10-25 17:09
我试过了，还是打不开.dxf

ObjectDBX是打不开.dxf文件的（问题如楼主所提），我试过很多次了，你能打开，是怎么办倒的？能详细说明吗？
我知道，三楼的办法是打得开的