접선 그리는 리습

출처 : http://www.theswamp.org/

아래 그림과 같이 점을 선택하면 객체의 그 점에 맞는 접선(Tangent Line)을 그려주는 리습입니다.
많은 부분에서 쓰일 일반적인 리습 같지는 않고
아마도 몇몇 분들에겐 필요할것 같습니다.

명령어 : DOIT

Doit.lsp

실행과정
실행하면 Please Enter the length of tangent<1000>: 접선의 길이를 입력합니다.
기본값은 1000 이고 원하는 값을 넣으면 됩니다.
그 다음은 접선을 그릴 객체 상의 점을 선택하면됩니다.