8-13 ts.lsp=text size change (문자크기 바꾸기)->수정(2007.8.28)
문자만을 선택하여 크기를 바꾸는 명령어.
mtext 선택추가(2007.8.28)
;;===========================================================
; 문자크기 바꾸기(1992 주말농부)
; ->문자만을 선택하여 크기를 바꾸는 명령어
; ->mtext선택추가(2007.8.28)
;;------ text size change -----------------------------------
(defun c:ts(/ ss k ssn en a h h1)
(prompt " Height Change...")
(setq ss (ssget '((0 . "text,mtext"))))
(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)' 카테고리의 다른 글
| 2-8 py.lsp=pyung (평으로 환산하기)->수정(2007.9.30) (0) | 2024.12.19 |
|---|---|
| 8-13 ts.lsp=text size change (문자크기 바꾸기)->수정(2007.9.20) (0) | 2024.12.19 |
| 1-8 ff.lsp=file filteringr(도면정리하기)->추가(2007.8.26) (0) | 2024.12.19 |
| 1-9 lfd.lsp=layer filter delete->수정(2007.8.13) (0) | 2024.12.19 |
| 8-13 tec.lsp=text copy(문자의 일부만 카피하기)->추가(2007.8.10) (1) | 2024.12.19 |
