社区 › Auto Lisp › 另存为dwgname_rev1

jbergoon 发表于 2022-7-6 17:32:17

另存为dwgname_rev1

有没有办法在我的脚本末尾添加一个命令来保存当前图形名称加上“_rev1”。我这样做大约200个文件。
下面是更新块的脚本。我考虑过以某种方式使用（getvar“dwgname”），但无法将get var的结果放入saveas。。。。。帮助
 
-INSERT
CGPANSID=CGPANSID.DWG
y
100,100
1
1
0


ERASE
L

ZOOM
E

fixo 发表于 2022-7-6 19:08:31

试试吧
(strcat (getvar "dwgprefix")(getvar "dwgname"))
 
~'J'~

查看完整版本: 另存为dwgname_rev1