峰峰兒 发表于 2013-8-15 07:44:47

namezg 发表于 2013-8-15 22:16:42

本帖最后由 namezg 于 2013-8-15 22:21 编辑

;方法一
(defun c:E22 (/ F1 F2 filename1 filename2)
(setvar "cmdecho" 0)
(setq F1 (getstring "\源文件名: "))
(setq F2 (getstring "\目标文件名: "))
(setq filename1 (strcat "C:\\DHPP2K6\\" F1 ".dwg"))
(setq filename2 (strcat "C:\\DHPP2K6\\" F2 ".dwg"))
(if (findfile filename1)
    (progn
      (if (findfile filename2)
      (vl-file-delete filename2)
      )
      (vl-file-copy filename1 filename2)
      (princ "\n指定插入点: ")
      (command "-insert" filename2 "s" 1)
      (while (/= 0 (getvar "cmdactive"))
      (command pause)
      )
    )
)
(setvar "cmdecho" 1)
(princ)
)
;方法二
(defun c:E22 (/ F1 F2 filename1 filename2 wsh strCommand)
(setvar "cmdecho" 0)
(setq F1 (getstring "\源文件名: "))
(setq F2 (getstring "\目标文件名: "))
(setq filename1 (strcat "C:\\DHPP2K6\\" F1 ".dwg"))
(setq filename2 (strcat "C:\\DHPP2K6\\" F2 ".dwg"))
(if (findfile filename1)
    (progn
      (setq wsh (vlax-create-object "WScript.Shell"))
      (setq strCommand (strcat "cmd.exe /c copy /y " filename1 " " filename2))
      (vlax-invoke-method wsh 'run strCommand 0 1)
      (vlax-release-object wsh)
      (princ "\n指定插入点: ")
      (command "-insert" filename2 "s" 1)
      (while (/= 0 (getvar "cmdactive"))
      (command pause)
      )
    )
)
(setvar "cmdecho" 1)
(princ)
)
页: 1 [2]
查看完整版本: LISP