안녕하세요
다른 분들의 도움을 얻어 만든 리습 2개를 수정하여
연관시켜 쓰려고 합니다만 잘안됩니다.
다음 2개의 리습을 완성 좀 시켜 주시면 안될까요.
1번을 실행 하면
2번도 같이 실행되게 하면 되는데요
잘 안되는데 도움 부탁드립니다.
;1번 리습
(DEFUN C:123 ()
(vl-load-com)
(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object) ) “DIM1nRESnn” );<- 이 부분이 문제가 있습니다
(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object) ) “CSSn” )
)
;2번
(defun c:CSS ()
;(PRINT”척도를 넣으시요:”)
;(setq A(getreal ))
(setq A (getvar “dimscale”))
(setq B(* 8 A))
(setq D(* 1 A))
(setq E(* 8 A))
(setq F(* 8 A))
(command “ltscale” B)
(command “dimscale” D)
(command “snap” E)
(command “grid” F)
(setvar “snapmode” 0)
(setvar “gridmode” 0)
(setvar “dimsoxd” 1)
(setvar “dimtix” 1)
(setvar “dimtmove” 0)
(setvar “dimtoh” 0)
)