고수님들 다시 수정좀 봐주셔요(거리리습 수정)

먼저 전에 만들어주신 칠떡님 감사드립니다..
약간의 수정이 필요한것 같아서 다시 올려요..^^

고수님들 부탁드립니다..
예전 리습은 임의점 a.b(좌표상 일직선상에 없음) 간 거리를 직각 거리로 구할려면. a,b,c 세번의 포인트를 찍어야되는데요 (a,b 두번 클릭하면 a,b간 직선거리로 계산 됨)

이걸 a,b 두번의 포인트로  a,b 간 직각 거리로 해주셨으면 합니다..

예문 올려드릴게요
 
(defun c:dd(/ sub p1 p2 di tp) ; 명령어 바꿔사용하세요~
  (setq sub 0)
  (setq p1 (getpoint “n First Point >”))
  (while (setq p2 (getpoint “n Next Point >”))
    (setq di (distance p1 p2))
    (setq sub (+ di sub))
    (setq p1 p2)
    (prompt “n SUB = “)
    (princ (rtos (/ sub 1000) 2 1))
  )
  (if (> sub 0.0)
    (progn
      (setq tp (getpoint “n Text Point >”))
      (if tp (command “text” “mc” tp “”(rtos (/ sub 1000) 2 1)))
    )
  )
)