반응형 While2 레이어 조정; 짧은 직선 삭제 (defun KM:CLsfMT ( / e i cnt var old new new_val chg ) ; note 란에 있는 mtext 줄간격 1.1 로 조정;; chage module LsfMT (setq e (ssget "x" '((0 . "MTEXT")))) (setq i 0) (setq new_val "1.1") (setq cnt (sslength e))(while (> cnt i) (setq var (entget (ssname e i))) (setq old (assoc 44 var)) ;; (44 . 0.8348) (setq new (cons 44 new_val)) ;; change Line space factor value to 1.1 (setq chg (subst new old var)) (se.. 2024. 7. 18. Change Line space factor of MTexts in AA-TEXT-NOTE Layer (defun KM:CLsfMT (/);; chage Line space factor of MText(setq pt1 '(760 430))(setq pt2 '(750 420))(progn;;(setq e (ssget))(setq e (ssget "c" pt1 pt2))(setq var (entget (ssname e 0)))(setq old (assoc 44 var)) ;; (44 . 0.8348)(setq new (cons 44 1.1)) ;; change Line space factor value to 1.1(setq chg (subst new old var))(entmod chg)) (defun KM:CLsfMT ( / e var old new chg ) ;; chage Line space facto.. 2024. 6. 21. 이전 1 다음 반응형