치수 스타일 변경 및 생성 리습 ㅜㅠ 도와주세욤,,,

안녕하세요 ^^

금형설계를 업으로 삼고 있는 직딩 입니다.

매그니에서 리습을 조합해서

치수스타일 변경 ( 없을시 생성 ) 리습을 조잡하게 만들어서 쓰고있는데 ..

치수스타일이 없을경우 생성되는 치수 스타일에 변수값을 적용 해보고 싶습니다

예를들어 ,, 선형 단위 축척 비율 ( DIMLFAC ) 값을 조정해서 생성 하고 싶은데

기존에 짜집기 한 리습이 너무 어려워 손을 못대겠습니다 .ㅠㅜ

조금 도움 주시면 감사하겠습니다.

** 결론 **
치수스타일 변경시 없을경우 자동으로 치수스타일이 생성 되는데

현재 적용된 치수스타일 값을 그대로 가져오는게 아니라

리습에 설정해둔 값으로 치수스타일을 만들고싶습니다 ..!!

+ 적용하고싶은 변수 ,, DIMLFAC & DIMCLRE & DIMCLRD 이정도 입니다..
============================================================

(defun c:ZZ1(/ @1 dst)
(setvar “cmdecho” 0)
(setq @1 “STANDARD _ 1”)
(if (= (tblsearch “dimstyle” “STANDARD _ 1”) nil)
(command “-dimstyle” “s” “STANDARD _ 1”))
(command “dimstyle” “r” @1)
(setq dst (getvar “dimstyle”))
(if (= dst @1)
(progn (princ “현재스타일을 “)(princ dst)(princ ” 로 변경하였습니다.”))
(princ “스타일이 없습니다”))
(princ)
);defun

============================================================

(defun c:ZZ2(/ @1 dst)
(setvar “cmdecho” 0)
(setq @1 “STANDARD _ 0.5”)
(if (= (tblsearch “dimstyle” “STANDARD _ 0.5”) nil)
(command “-dimstyle” “s” “STANDARD _ 0.5”))
(command “dimstyle” “r” @1)
(setq dst (getvar “dimstyle”))
(if (= dst @1)
(progn (princ “현재스타일을 “)(princ dst)(princ ” 로 변경하였습니다.”))
(princ “스타일이 없습니다”))
(princ)
);defun

============================================================