문자, 치수 스타일 설정 리습

;; 현 도면 문자들 스타일변경
(defun C:mystyle ()
   (setvar "cmdecho" 0)

 (setvar "ltscale" 2) ; 라인타입 스케일 2 <- 사용자변경

 (setvar "dimtxt" 3) ; 치수문자 크기 3 <- 사용자변경
   (command "style" "스타일이름" "romans.shx,whgtxt.shx" "0" "0.8" "0" "n" "n" "n")  ; 0.8문자 폭 비율
   (setq s1 (ssget "x" (list (cons 0 "Text"))))
   (setq s1_length (sslength s1))
   (setq ss_count 0)
   (repeat s1_length
      (setq ss_name (ssname s1 ss_count))
   (command "change" ss_name "" "" "" "스타일이름" "" "" "")
      (setq ss_count (1+ ss_count))
      (princ (strcat (itoa ss_count) "\n "))
   ) ;repeat
      (princ "...변경작업  완료 \n" )
   (princ)
) ;defun

;; 치수 스타일 설정
(defun c:mydimstyle()
(setvar "cmdecho" 0)
(command "_.dimstyle" "an" "y" "치수스타일이름" "a" "")
(if (null (tblsearch "dimstyle" "치수스타일이름"))
(command "_.dimstyle" "s" "치수스타일이름")
(command "_.dimstyle" "s" "치수스타일이름" "y")
);if
(princ)
);defun