문자 내용을 복사해서 붙여넣기

문자 내용을 복사해서 붙여넣기

 

여러 문자 객체가 있을 때

"AAA"라는 문자로 바꿔치기 하고 싶을 때 사용하면 편리하다.

 

;;;**********************************************************
;;;* Program : MaText                                       *
;;;*           Match Text                                   *
;;;*           Lee Soomoon(003)                             *
;;;*           2004/06/24                                   *
;;;**********************************************************
 (defun C:MAT (/ ca count e e1 e2 d d1 d2 len s1 txt ss1)
  (setq e1 (entsel "\nSelect Source Text:"))
;  (initget "Single Multiple")
;  (setq ca (getkword "\nSingle or Multiple[M]:"))
;  (if (or (= ca S) (= ca ""))
;  (progn
;;;single mode start
;    (setq e2 (entsel "\nSelect Target Text:"))
;    (setq d1 (entget (car e1)))
;    (setq d2 (entget (car e2)))
;    (entmod (subst (assoc 1 d1) (assoc 1 d2) d2))
;   
;   (princ)
;  ) ;end progn
;;;single mode end
;;;
;;;multi-mode start
  (progn
   (setq txt (cdr (assoc 1 (entget (car e1)))))
   (prompt "\nSelect Target Text:")
   (setq ss1 (ssget))
 
     (if (/= ss1 nil)
      (progn
       (setq len (sslength ss1)
           count 0)
             (while (< count len)
              (setq d (entget (ssname ss1 count))
                    e (assoc 1 d)
                    e1 (subst (cons 1 txt) e d)
                    count (1+ count))
              (entmod e1)
             )
      )
      (princ)
     )(princ)
  ) ;end progn
;;;multi-mode end
;  ) ;end if
);end defun
   (princ "type MAT to the command ") (princ)

MATXT.lsp

0.00MB