어떤 곡선이나 직선의 라인상에서 수직선 긋는법 아시는분??

직선일경우…
이런명령이 있는지는 모르지만.
먼저 그직선의 획전각도를 알아내서 SNAPANG(?)로 맞추면
그직선의 어디서나 직교키를 눌러서 수직선을 그릴수 있읍니다.

나의경우엔….리습중에 “PER”이라는 리습으로 사용중이네요..
라인을 찍으면…그 라인의 회전방향으로 스냅이 회전하는거예요.

원 이라면…..
중심점에서 시작하면 무조건 수직선 입니다….
즉 원둘레의 아무곳에서나 시작점을 잡아도
두번째점을 중심선으로 지정하면 라인이 생기고..
그 라인을 원둘레 바깥으로 연장하면 됩니다.

….원하시는 답변이 되었기를 바라네요.

— seanh님의 글
저번에 질문을 올렸는데…
제가 너무 허접하게 질문을 해서 다시 글 올립니다…

어떤 곡선이나 직선이 있는데..
그 선상의 어떤 포인트에서 수직선을 그을수 있나요??

per 명령은 어떤 선이 있을경우 그 선 근처에 첫번째 점을 찍고 per 명령어를 하면 그 점에서 선에대한 수직선을 그을수 있다고 알고 있슴다. 이런식으로 수직선을 그으면 그 라인상의 특정포인트에서의 수직선을 찾기란 참 어렵죠…^^;;

제가 알고 싶은건 라인상의 어떤 특정포인트에서 바로 수직선을 찾을수 있는가가 궁금합니다.
아시는분 꼭좀 가르쳐 주십시오…

참고로 osnap명령어의 수직 이 탭을 썼는데도…

제 맘대로 잘 안되더 군요….

다른 방법 아시는분 꼭 부탁 합니다.

;;;선위에 점이 있는지.
;;;-&gt사이의 두점을 리턴 or nil.
;;;점위에 있을 경우.
;;;-&gtpoint 리턴.
(defun GetPts-Under (pts ;line points
                           pt ;check point
                           /
                           fun pt1 pt2 idx
                           )
  (defun appendFun (fun lst)
    (if fun
      (setq fun (append fun (list lst)))
      (setq fun (list lst))
      )
    )
  (setq idx 0)
  (repeat (1- (length pts))
    (setq pt1 (nth idx pts)
             pt2 (nth (1+ idx) pts)
             idx (1+ idx)
             )
    (if (equal (angle pt1 pt)(angle pt pt2) 0.00001 )
      (setq fun (appendFun fun (list pt1 pt2)))
      (if (equal 0 (angle pt1 pt))
           (setq fun (appendFun fun (list pt)))
           )
      )
    )
  fun
  )

좋은 생각이군요.. ^^;