안녕하세요! 빌린인생님! 또 궁금한게있어서요!

;;===================================================================

;; **치수 단축 명령어!!

;;===================================================================

;;——————————————————————-

(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처럼 할수 없나요?

부탁좀 드리겠습니다.

그리고 말씀하신데로 화일도 같이 올립니다.

좋은 하루 되세요.