8-13 ts.lsp=text size change (문자크기 바꾸기)->수정(2007.9.20)
문자만을 선택하여 크기를 바꾸는 명령어.
mtext,attdef 선택추가(2007.8.28/2007.9.20)
;;======================================
; 문자크기 바꾸기(1992 주말농부)
; ->문자만을 선택하여 크기를 바꾸는 명령어
; ->mtext,attdef선택추가(2007.8.28/2007.9.20)
;;------ text size change ----------------
(defun c:ts(/ ss k ssn en a h h1)
(prompt " Height Change...")
(setq ss (ssget '((0 . "text,mtext,attdef"))))
(setq dz (getvar "dimzin"))
(setvar "dimzin" 0)
(setq k 0 ssn (sslength ss))
(setq h2 (* (getvar "dimscale") 3))
(setq h1 (cdr (assoc 40 (entget (ssname ss (- ssn 1))))))
(setq a (strcat "\nNew text height<" (rtos h1 2 1) ">:"))
(setq h (getreal a))
(if (= h nil) (setq h h1))
(repeat ssn
(setq ed (entget (ssname ss k)))
(setq ed (subst (cons 40 h) (assoc 40 ed) ed))
(entmod ed)
(setq k (+ k 1))
);repeat end
(setvar "dimzin" dz)
(princ))
'■ 유용한 캐드&리습 > ▫ EzqCAD(3rd Party)' 카테고리의 다른 글
| 7-3 mc.lsp=multi copy (다중 복사) (0) | 2024.12.30 |
|---|---|
| 7-2 gsc.lsp=group scale change (그룹별 축척 바꾸기)->추가(2007.4.17) (0) | 2024.12.30 |
| 8-11 tec.lsp=text copy(문자의 일부만 카피하기)->추가(2007.8.10) (0) | 2024.12.30 |
| 8-10 tcm.lsp=text cut & merge(문자 자르기 & 합치기)->추가(2007.3) (0) | 2024.12.30 |
| 8-8 tc.lsp=text change (문자 바꾸기)->수정(2007.12.6) (0) | 2024.12.30 |
