엔지니어 기술블로그

문자속성 변경리습입니다.

명령어 TCS : 기준이 되는 문자가 있을 때...기존 문자처럼 속성 변경
         [기울기 Angle / 높이 Height / 스타일 Style / 폭 W-factor / 복제 Replace]

      TC : 기준이 되는 문자가 없이 속성 변경 -사용자 입력값에 따름
         [값 Value / 높이 Height / 폭 W-factor / 스타일 Style ]

      TS  : 문자 쓰기 시작점 속성 변경
         [왼쪽쓰기 L / 가운데쓰기 M /  오른쪽쓰기 R]

아래 리습을 드래그/복사해서 메모장에 붙여넣고 저장.
[파일이름.LSP]로 변경해서 쓰시면 됩니다.

;;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
;;기존 문자처럼 속성 변경 [기울기 Angle/높이 Height/스타일 Style/폭 W-factor/복제 Replace] - TCS
;;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
(defun c:TCS(/)
     (SETQ CMD (STRCASE (GETSTRING "Change to Target text [Angle/Height/Style/W-factor/Replace]"))) ;/Ordinate]")))
     (COND
          ((= CMD "A") (tta))
          ((= CMD "H") (tth))
                 ((= CMD "S") (tts))
          ((= CMD "W") (ttw))
                 ((= CMD "R") (tc2))
        ; ((= CMD "O") (tw))
     )
) ;;dfun
(defun tta (/ ss e no index te newl ent oldl newe)
   (graphscr)
   (terpri)
   (prompt "n>>> 선택한 문자 각도를 다음 선택한 문자의 각도로 바꾸기.")
   (prompt "n>>> 변경할 문자를 선택하시오.")
   (setq ss (ssget))
   (setq e (entsel "n>>> 기준이 되는 문자를 선택 하시오 :"))
   (setq no (sslength ss))
   (setq index 0)
   (setq te (entget (car e)))
   (setq newl (assoc 50 te))
   (repeat no
   (setq elist (entget (ssname ss index)))
   (setq oldl (assoc 50 elist))
   (setq newe (subst newl oldl elist))
   (entmod newe)
    (setq index (1+ index))
   )
   (princ)
)
(defun tth (/ ss e no index te newl ent oldl newe)
   (graphscr)
   (terpri)
   (prompt "n>>>선택한 문자를 다음 선택한 문자의 높이로 바꾸기.")
   (prompt "n>>> 변경할 문자를 선택하시오.")
   (setq ss (ssget))
   (setq e (entsel "n>>> 기준이 되는 문자를 선택 하시오 :"))
   (setq no (sslength ss))
   (setq index 0)
   (setq te (entget (car e)))
   (setq newl (assoc 40 te))
   (repeat no
   (setq elist (entget (ssname ss index)))
   (setq oldl (assoc 40 elist))
   (setq newe (subst newl oldl elist))
   (entmod newe)
    (setq index (1+ index))
   )
   (princ)
)
(defun tts (/ ss e no index te newl ent oldl newe)
   (graphscr)
   (terpri)
   (prompt "n>>> 선택한 문자를 다음 선택한 문자의 스타일 바꾸기.")
   (prompt "n>>> 변경할 문자를 선택하시오.")
   (setq ss (ssget))
   (setq e (entsel "n>>> 기준이 되는 문자를 선택 하시오 :"))
   (setq no (sslength ss))
   (setq index 0)
   (setq te (entget (car e)))
   (setq newl (assoc 7 te))
   (repeat no
   (setq elist (entget (ssname ss index)))
   (setq oldl (assoc 7 elist))
   (setq newe (subst newl oldl elist))
   (entmod newe)
   (setq index (1+ index))
   )
   (princ)
)

(defun ttW (/ ss e no index te newl ent oldl newe)
   (graphscr)
   (terpri)
   (prompt "n>>> 선택한 문자를 다음 선택한 문자의 폭으로 바꾸기.")
   (prompt "n>>> 변경할 문자를 선택하시오.")
   (setq ss (ssget))
   (setq e (entsel "n>>> 기준이 되는 문자를 선택하시오 :"))
   (setq no (sslength ss))
   (setq index 0)
   (setq te (entget (car e)))
   (setq newl (assoc 41 te))
   (repeat no
   (setq elist (entget (ssname ss index)))
   (setq oldl (assoc 41 elist))
   (setq newe (subst newl oldl elist))
   (entmod newe)
   (setq index (1+ index))
   )
   (princ)
)

(defun Tc2(/ te te1 te2 te3 te4 te5 te6 te7 te8 te9 te10 te11)
(graphscr)
(setvar "cmdecho" 0)
(prompt "n>>> 원본(기준) 문자를 선택하시오 < ")
(setq te (entsel))
(setq te1 (cadr te)
       te2 (car te)
       te3 (entget te2)
       te4 (cdr (assoc 1 te3)))
(prompt "< ")
(princ te4)
(prompt " >") ;(terpri)
(prompt "n>>> 변경될 문자를 선택하시오 : ")
(setq te5 (ssget))
(setq te6 (sslength te5)
       te7 0)
(repeat te6
(setq te8 (entget (ssname te5 te7))
        te7 (+ 1 te7)
        te9 (assoc 1 te8)
        te10 (cons (car te9) te4)
        te11 (subst te10 te9 te8)
) ;setq close
(entmod te11)
) ;;repeat close
(princ)
) ;;defun close
(princ "n 기준문자의 [기울기 Angle/높이 Height/스타일 Style/폭 W-factor/복제 Replace]로 변경 TCS")
(princ)

;;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
;; 사용자 입력에 의한 문자의 변경 [값 Value/높이 Height/폭 W-factor/스타일 Style ] - TC
;;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
(DEFUN C:TC (/ KEY MODE TV1 TV2 TV3 TV4 TSET ENAME TE)
     (MENUCMD "S=CHANGE")
     (SETQ CMD (STRCASE (GETSTRING "Change text to...[Value/Height/W-factor/Style/<Value>]")))
     (COND
          ((OR (= CMD "V") (= CMD ""))
               (SETQ TV1 (GETSTRING T "Enter new text string: "))
               (SETQ KEY 1))
          ((= CMD "H")
               (SETQ TV1 (GETREAL "Enter new text height: "))
               (SETQ KEY 40))
          ((= CMD "W")
               (SETQ TV1 (GETREAL "Enter new W-factor: "))
               (SETQ KEY 41))
          ((= CMD "S")
               (SETQ TV1 (GETSTRING "Enter new text style: "))
               (SETQ KEY 7))
          (T   (SETQ KEY 0))
     )
     (IF (> KEY 0)
          (PROGN
               (SETQ TSET (SSGET))
               (SETQ LEN (SSLENGTH TSET))
               (SETQ C 0)
               (WHILE (< C LEN)
                    (SETQ ENAME (SSNAME TSET C))
                    (SETQ TE (ENTGET ENAME))
                    (IF (= (CDR (ASSOC 0 TE)) "TEXT") (SWAP KEY TV1))
                    (ENTMOD TE)
                    (SETQ C (1+ C))
               )
               'DONE
          )
          'invalid_character
     )
)
(princ "n 문자의 [값 Value/높이 Height/폭 W-factor/스타일 Style 변경 TC")
(princ)

;;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
;; 문자 쓰기맟춤 [왼쪽쓰기 L / 가운데쓰기 M / 오른쪽쓰기 R]
;;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

(defun c:TS(/ TSET)
     (SETQ TSET (STRCASE (GETSTRING "Change to... [Left / Middle / Rihgt]")))
     (COND
          ((= TSET "L") (tlh))
          ((= TSET "M") (trh))
                 ((= TSET "R") (tmd))
     )
) ;;dfun
(defun TMD() ;; 가운데 쓰기
    (prompt "njustify text middle")
    (setq a(ssget '((0 . "text"))))
    (command "justifytext" a "" "m")
(princ)
)

(defun TLH() ;; 왼쪽 쓰기
    (prompt "njustify text left")
    (setq a(ssget '((0 . "text"))))
    (command "justifytext" a "" "l")
(princ)
)

(defun TRH() ;; 오른쪽 쓰기
    (prompt "njustify text rihgt")
    (setq a(ssget '((0 . "text"))))
    (command "justifytext" a "" "r")
(princ)
)