如何获取当前文件的保存版本？

Scarlet2001

目前已知的办法是，打开DWG后第一栏是会显示文件版本的。
或者在打不开DWG（版本过高）的情况下，将DWG以TXT形式打开，也能通过前几个字符看出版本。
那么在已经打开DWG的情况下，如何通过系统变量或者其他什么办法来获取当前文件的保存版本能？

gaics

系统变量：ACADVER
看错了，这个是cad的版本号

用下面的代码读取：

(defun c:tt(/ f)
  (setq f (open (strcat(getvar "dwgprefix")(getvar "dwgname"))"r"))
  (princ(read-line f))
  (princ)
)

tranque

赫思插件能直接显示版本

Scarlet2001

gaics 发表于 2024-11-20 07:52
系统变量：ACADVER
看错了，这个是cad的版本号

感谢大佬
由于输出的ACXXXX对于大部分人来说不够直观，后边加段转换为直观版本的函数
(defun c:tt(/ f a)
  (setq f (open (strcat(getvar "dwgprefix")(getvar "dwgname"))"r"))
  (setq a (read-line f))
        (cond
                ((= a "AC1015") (setq a "2000"))
                ((= a "AC1018") (setq a "2004"))
                ((= a "AC1021") (setq a "2007"))
                ((= a "AC1024") (setq a "2010"))
                ((= a "AC1027") (setq a "2013"))
                ((= a "AC1032") (setq a "2018"))
        )
        (princ a)
  (princ)
)