;;===================================================================
;; **치수 단축 명령어!!
;;===================================================================
;;——————————————————————-
(defun c:D (/ ) ; BASE POINT (원점)
(prompt " 원점을 찍어주세요! :")
(command "ucs" "o")
(princ)
);defun
;;——————————————————————-
(defun c:DD () ; BASE 치수
(setvar "cmdecho" 0)
(prompt " 님이 원하는곳을 찍어주세요! :")
(command "layer" "s" "dim" "")
(command "osnap" "end")
(COMMAND "DIM1" "ord")
(setvar "osmode" 1)
(princ)
);defun
;;——————————————————————-
(DEFUN C:DDD() ; BASE 연속 치수
(graphscr)
(setvar "cmdecho" 0)
(prompt " 님이 원하는곳을 찍어주세요! :")
(command "layer" "s" "dim" "")
(command "osnap" "end")
(COMMAND "DIM" "BASELINE")
(princ)
);defun
;;——————————————————————-
(DEFUN C:HD() ; 가로 치수
(setvar "cmdecho" 0)
(prompt " 님이 원하는곳을 찍어주세요! :")
(command "layer" "s" "dim" "")
(command "osnap" "end")
(COMMAND "DIM1" "HOR" PAUSE PAUSE PAUSE "<>" "EXIT")
(setvar "osmode" 1)
(PRINC)
);defun
;;——————————————————————–
(DEFUN C:HDD() ; 가로 원 치수
(prompt " 님이 원하는곳을 찍어주세요! :")
(COMMAND "LAYER" "S" "dim" "" )
(command "osnap" "end")
(COMMAND "DIM1" "HOR" PAUSE PAUSE PAUSE "%%C<>" "EXIT")
(princ)
);defun
;;——————————————————————–
(DEFUN C:VD() ; 세로 치수
(graphscr)
(setvar "cmdecho" 0)
(prompt " 님이 원하는곳을 찍어주세요! :")
(command "layer" "s" "dim" "")
(command "osnap" "end")
(COMMAND "DIM1" "VER" PAUSE PAUSE PAUSE "<>" "EXIT")
(setvar "osmode" 0)
(princ)
);defun
;;——————————————————————–
(DEFUN C:VDD() ; 세로 원 치수
(prompt " 님이 원하는곳을 찍어주세요! :")
(command "layer" "s" "dim" "")
(command "osnap" "end")
(COMMAND "DIM1" "VER" PAUSE PAUSE PAUSE "%%C<>" "EXIT"))
;;——————————————————————–
위에서처럼 했더니 HD~V4,까지는 한번에 치수가 되는데
나머지는 치수 확인후 엔터를 한번더 해야 되거든요.
D,DD,DDD,도 엔터없이 HD~VD처럼 할수 없나요?
부탁좀 드리겠습니다.
그리고 말씀하신데로 화일도 같이 올립니다.
좋은 하루 되세요.
님 죄송한데여….제가 요즘에 쫌 바뻐서리 검토해볼시간이 없네여…^^
갑자기 일이 많이 진 관계로… 한번 검토를 해야 무슨 내용의 리습인지
알꺼 같은데….. 시간 나면 한번 검토해 볼께여….죄송합니다..
지금도 일해야 되는뎅…..존 주말 보내세여….
오늘 오전 내내 바뻣는데…지금은 일처리 쫌 되고…쬐금시간이 남네여..
한번 확인해봤는데여….. 솔직히 그 리습이 어디에 쓰이는건지는 잘모르겠네여
님이 작업하시는데 편하도록 짜 놓으신것 같은데….D,DD,DDD
여기에서 엔터없이 넘어가고 싶다고 하셨자나여….
흠~~~ 제가 볼땐
문제점이라고 하면 리습에서 CAMMAND 명령을 사용시 "" 의 역활이 무지
중요하지여… "" 빠져서 에러가 나는 경우가 많고여..또 ""가 더 들어가서
에러가 발생하는경우가…^^ 이런경우는 리습을 계속적으로 수정하면서
답을 내는 수밖에 없거든여.. cammand 명령에서 "" (엔터)의 수를 조절해
보세여… 수고하세서 꼭 성공하시기를…..