获取图路径

RZYiiicass

(getvar "DWGPREFIX")

kozmosovia

nuan1989 发表于 2025-3-31 19:24
你敢信,
未保存过的文件, 也会返回目录路径. 如果恰巧目录也有drawing1.dwg, 就会造成文件已经保存的错 ...

顶多再加判断dwl是否存在

nuan1989

不行感觉, 未保存的临时文件也会返回值

kozmosovia

nuan1989 发表于 2025-3-31 12:57
不行感觉, 未保存的临时文件也会返回值

顶多再(findfile (STRCAT (GETVAR "DWGPREFIX")(GETVAR "DWGNAME")))判断下文件有没有

nuan1989

kozmosovia 发表于 2025-3-31 13:56
顶多再(findfile (STRCAT (GETVAR "DWGPREFIX")(GETVAR "DWGNAME")))判断下文件有没有

你敢信,
未保存过的文件, 也会返回目录路径. 如果恰巧目录也有drawing1.dwg, 就会造成文件已经保存的错觉.
实测还是得用vba获取最稳妥.

自贡黄明儒

nuan1989 发表于 2025-3-31 19:24
你敢信,
未保存过的文件, 也会返回目录路径. 如果恰巧目录也有drawing1.dwg, 就会造成文件已经保存的错 ...

Vba怎么写的？

nuan1989

自贡黄明儒 发表于 2025-3-31 19:30
Vba怎么写的？

(vl-load-com)
  (setq _ACAD_OBJ (vlax-get-acad-object))
  (setq _DOC (vla-get-ActiveDocument _ACAD_OBJ))
  (setq _FILE_PATH (vla-get-FullName _DOC));获取文件完整路径
  (setq _IS_READONLY (= (vla-get-ReadOnly _DOC) :vlax-true));判断是否只读