;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; 把文字改为文件名 (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
|