8-13 ts.lsp=text size change (문자크기 바꾸기)->수정(2007.9.20)
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))