[求助]：用ActiveX如何获得DWG文件的是何版本？

zezh

因为近期在做一个小程序，用ActiveX（R2000）、VB。打开DWG文件，做一定处理后，然后保存，如果原DWG文件为R14，仍保存为R14，R2000保存为R2000，用Document.Save 只能保存为R2000，.SaveAs 需指定版本，这就要求知道DWG文件的版本（不是Application的版本）

谢谢！

efan2000

没找到，不过可以借助于文件的操作。
AutoCAD的文件中包含的文件的版本信息，而且位置是固定的，都在文件的前几个字节。比如：AC1015的就代表是R15版本的，可能是R2000或者R2002创建的。
关于文件的操作可以查看相关资料。

超级寒星

我也想知道。

lsjjm

最初由 zezh 发布
[B]因为近期在做一个小程序，用ActiveX（R2000）、VB。打开DWG文件，做一定处理后，然后保存，如果原DWG文件为R14，仍保存为R14，R2000保存为R2000，用Document.Save 只能保存为R2000，.SaveAs 需指定版本，这就要求知?.. [/B]

Try this code:
Public Function DrawingVersion(fileName As String) As String
    Dim fh  As Integer, version As String
    fh = FreeFile
    Open fileName For Input As #fh
    version = Input(6, #fh)
    Close #fh
    DrawingVersion = version
End Function

iwzw

楼上的代码可行。

aeo

看来看去，就是efan2000 的意思.
我以为有什么好办法.


(setq q(open "e:\\work\\1.dwg" "r"))
(princ(substr (read-line q) 1 6))
(close q)



好了，其实要存成什么版本不要对话框选的.
上面知道了版本,改到要存成的对应版本.再直接document.save

;;;ThisDrawing.Application.preferences.OpenSave.SaveAsType
;;;改SaveAsType.
;;;下面改成14版本.
(setq obj(vla-get-OpenSave(vla-get-Preferences(vlax-get-acad-object))))
  (vla-put-SaveAsType obj acR14_DWG)
  (vla-save(vla-get-activedocument (vlax-get-acad-object)))