반응형 entmod2 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. TEXT MOVE TO MID POINT, ROTATE 0, JUSTIFY MIDDLE ;=================== TEXT MOVE TO MID POINT, ROTATE 0, JUSTIFY MIDDLE ======================= ; (defun KM:MP ( / p1 p2 ) ; Get MP that is MID POINT (setq p1 (getpoint "\nPick a LowerLeft Point:\n") p2 (getpoint "Pick a UpperRight Point:\n")) (setq mp (list (/ (+ (car p1) (car p2)) 2.0) (/ (+ (cadr p1) (cadr p2)) 2.0) 0.0)) ) (defun c:to (/ cl txt ent_name m old new) ;; Text move to the Origin of.. 2022. 7. 8. 이전 1 다음 반응형