8-8 tc.lsp=text change (문자 바꾸기)->수정(2007.12.6)

  8-8 tc.lsp=text change (문자 바꾸기)->수정(2007.12.6)
            다중선택후 순서대로 문자을 고치는 명령어

            선택순서,글쓰기순서 옵션추가(2007.4.13)

            전단계 편집(U)하기 추가 (2007.5.24)

            text,mtext,dimension 수정가능(2007.7.30)

            attribute 수정기능 추가(2007.12.6)

 

 

;;====================================================================
;  문자 바꾸기(92 주말농부)
;  ->다중선택후 순서대로 문자을 고치는 명령어
;  ->선택순서,글쓰기순서 옵션 추가(2007.4)
;  ->전단계 편집<U>하기 추가(2007.5.24)
;  ->TEXT,MTEXT,DIMENSION 수정가능(2007.7.30)
;  ->attribute 수정기능추가(2007.12.6)
;;------ text change <@ss_new_lst.lsp> -------------------------------
(defun c:tc(/ ss ssn a k en db1)
   (prompt "\n선택순으로 문자편집 또는 <글쓰기순>:")
   (setq ss (ssget '( (-4 . "<OR")(0 . "TEXT,MTEXT,DIMENSION,ATTDEF")
                      (-4 . "<AND")(0 . "INSERT")(66 . 1)
                      (-4 . "AND>")(-4 . "OR>")  ) ))(terpri)
   (if (= ss nil) (progn
      (prompt "\n글쓰기순으로 문자편집하기...")
      (setq ss (ssget '((0 . "TEXT,MTEXT"))))
      (setq ssnew (@ss_new_lst ss))
      (setq ss ssnew)  )
   )
   (prompt "\nSpace Bar입력=>전단계 편집<U>상태로 돌아감...")
   (setq ssn (sslength ss))
   (setq k 0)
   (while (< k ssn)
      (setq en (ssname ss k))
      (setq tem (cdr (assoc 0 (entget en))))
      (if (= tem "TEXT") (redraw en 3))
      (command "ddedit" en "")
      (setq db1 (cdr (assoc 1 (entget en))))
      (if (and (> k 0) (= db1 " "))
         (progn (command "u") (setq k (- k 2))))
      (if (= tem "TEXT") (redraw en 4))
      (setq k (+ k 1))
   )
(prin1))

 

@ss_new_lst.lsp

0.00MB

tc.lsp

0.00MB