글자 기울기 10도 및 색상 추가 수정 가능할까요.
컨텐츠 정보
- 231 조회
- 0 추천
- 0 비추천
- 목록
본문
리습 잘쓰고 있습니다.
글자 기울기 및 색상 하늘색으로 추가 수정 가능할까요
부탁 드립니다.
(defun c:ctt( / sl-addstyle style ss temp color cp)
(defun sl-addstyle(nm)
(if (not (tblsearch "STYLE" nm))
(entmake (list (cons 0 "STYLE") (cons 100 "AcDbSymbolTableRecord") (cons 100 "AcDbTextStyleTableRecord") (cons 2 nm)
(cons 70 0) (cons 40 0.0) (cons 41 1.0) (cons 50 0.0) (cons 71 0) (cons 42 0.2) (cons 3 "romans.shx") (cons 4 "whgtxt.shx")))
)
)
(and
(or (tblsearch "STYLE" (setq style "K")) (sl-addstyle "K"))
(princ "n같은명칭의 원을 선택하시요.")
(setq ss (ssget '((0 . "CIRCLE"))))
(setq sbm
(cond
((and sbm (/= sbm "")) (cond ((/= (setq temp (getstring (strcat "n기호문자를 입력(RP, GP…) <" (vl-princ-to-string sbm) ">:"))) "") temp) (sbm)))
((/= (setq temp (getstring "n기호문자를 입력(RP, GP…):")) "") temp)
)
)
(setq th
(cond
(th (cond ((getreal (strcat "n문자의 높이를 입력 <" (vl-princ-to-string th) ">:"))) (th)))
((getreal "n문자의 높이를 입력:"))
)
)
(progn
(setq color (getvar "dimclrt"))
(foreach en (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
(setq cp (cdr (assoc 10 (entget en))))
(entmake
(list (cons 0 "TEXT") (cons 10 cp) (cons 40 th) (cons 1 sbm) (cons 8 "dim") (cons 7 style) (cons 71 0) (cons 72 1) (cons 11 cp) (cons 73 2))
)
)
)
)
(princ)
)