CAD lisp我想用代码实现文件另存到新的路径。文件名称保持一直，因为我有一段处理图纸代码，希望

Question

CAD lisp我想用代码实现文件另存到新的路径。文件名称保持一直，因为我有一段处理图纸代码，希望处理完成后直接存储，所以有了以上需求，我 知道可以通过(setq #k (getvar "dwgname"))获得当前图纸名称，但是怎么把获得的名称赋值给新图纸呢，假设我想放到D:\盘根路径下，我试着 (command "saveas" "2000" "d:\(getvar(command "dwgname")))") 都没有实现，求助高手帮忙！

Answer 1

(command "saveas" 2000 (strcat "d:\\" (getvar "dwgname")))