获得已打开CAD文件的文件名

bianjia2006

      本人现有一些图纸，不知道是经过什么处理过的，必须装了一个软件才能在U盘里面打开，复制出来就打不开了。在U盘里打开时不能复制到另一个文件里面，也不能点另存为把文件存下来，等于是只能看，能改动，但最后也不能保存。但是我可以用（command "saveas"）对话的形式将文件存下来。不知道各位大侠有没有好的办法快速将文件另存下来。或者有没有什么办法用lisp获得文件的名字。小弟在些谢过了。本人lisp基础尚浅。

feng396

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 把文字改为文件名
(defun C:wf (/ file p chm e)
   (setq chm 0 p (entsel))            ; Select single object
   (if p
      (progn
         (setq file ( strcat(getvar "dwgname")))
         (if (or(= "TEXT"               ; Look for TEXT entity type (group 0)
            (cdr (assoc 0 (setq eeee (entget (car p))))))
   (= "MTEXT"               ; Look for TEXT entity type (group 0)
            (cdr (assoc 0 (setq e (entget (car p)))))))
            (progn
               (setq file (cons 1 file ) chm 1)
               (entmod (subst file (assoc 1 e) e))
            )
         )
      )
   )
   (if (= chm 1)
      (princ " >>>> Updated ")        ; Print date changed
      (princ " *** Error : not a TEXT entity type ")
   )
(princ)
)
; **** end of wf.lsp

 

 

 

bianjia2006

谢谢楼上的兄弟，其实我只要知道dwgname这个变量就行了。谢谢你的好意了！问题我已自己解决。