문자폭 리습 검토 부탁드립니다.

본 게시판에서 ♡GISKOREA♡님께서 만들어 주신

문자폭을 변경하는 리습입니다.

객체를 여러개 선택시에는 하나만 변경되어지는데요.

선택한 모든 문자가 변경이 되었으면 하고,

입력한 값이 계속 유지가 되었으면 합니다.



(defun c:tw( / osn ss ss-ENT ss41 ss41N Nss41 new_w)
 (setvar "cmdecho" 0)
 (setq new_w (getreal "n *** 문자폭 입력:"))  ;;; 특정폭을 고정할경우 이라인은 삭제 또는 ";(setq new_w (getreal "n *** 문자폭 입력:"))"
 (setq osn (getvar "osmode"))
 (setvar "osmode" 0)
 (setq ss (ssget))
 (setq ss-ENT (entget (ssname ss 0)))
 (setq ss41 (assoc 41 ss-ENT))
 (setq ss41N (cons 41 new_w))  ;;; 특정폭을 고정할려면 new_w를 변경(예:(setq ss41N (cons 41 3))
 (setq Nss41 (subst ss41N ss41 ss-ENT))
 (entmod Nss41)
 (setvar "cmdecho" 1)
 (setvar "osmode" osn)
 (princ)
)