수평수직 파이치수 자동기입리습 수정

(DEFUN C:VHD(/ a b)    ;;;수직/수평 지름치수           
                  (SETVAR “DIMTOL” 0)
                  (setq a (getpoint “n First point”))
                  (setq b (getpoint a “n Second point”))
                  (COMMAND “dimlinear” a b  “t” “%%c<>” pause)   ) 


우선 출처는 정확히 어느분이 만드신지는잘 모르지만 제가 가저온건 블러그 그냥이 님에서 가저왔습니다

저는 수직 수평을 둘다 사용하는 리습보다는
수직용 수평용 이렇게 구분을 해서 따로 만들려고 합니다
이럴경우 어떻게 해야하는지요 궁금합니다