各位大神看下，求输入TT，把当前打开的图纸复制一份到桌面文件夹 你好123下面

664571221

各位大神看下，求输入TT，把当前打开的图纸复制一份到桌面文件夹 你好123下面

VBALISPER

(defun c:tt ()
  (vl-load-com)
  (setq        thisdrawing
         (vla-get-activedocument
           (vlax-get-acad-object)
         )
  )

  (setq filename (getvar 'DWGNAME))
  (setq        deskpath (strcat (vla-item (vlax-get (vlax-create-object "WScript.Shell") 'SpecialFolders ) "Desktop") "\\" ))
  (setq fname (strcat deskpath "你好123\\" filename))

  (vla-SaveAs thisdrawing fname acR14_DWG)
  (princ)
)

永不言弃

你试试这个

1. (vl-file-copy
   
2.   (strcat (getvar "DWGPREFIX") (getvar "DWGNAME"))
   
3.   (strcat "C:\\Users\\Administrator\\Desktop\\你好123\\" (getvar "DWGNAME"))
   
4. )

(vl-file-copy<br />   (strcat (getvar "DWGPREFIX") (getvar "DWGNAME"))<br />   (strcat "C:\\Users\\Administrator\\Desktop\\你好123\\" (getvar "DWGNAME"))<br /> )

kozmosovia

wblock * 最简单。