교차점 사이의 거리를 작성해주는 리습

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

아래 그림과 같이 선택한 객체와 다른 객체간의 교차점 길이를 도면에 적어주는 리습입니다.

명령어 : INTLEN

실행절차 :
명령어 입력 후 교차점 사이의 길이를 표시할 객체를 선택하면됩니다.

명령어를 변경하려면 :
리습 파일을 메모장으로 열어 상단에 아래 문구 중 빨간 색 글자를 원하는 것으로 변경하고 다시 로드하면됩니다.
(defun c:IntLen ( / *error* _iscurveobject e )

기본 문자 크기를 바꾸려면 ?
이 프로그램의 문자 크기 기본 값은 TEXTSIZE 시스템 변수에 기록된 문자 크기입니다.
보통 2.5가 될테죠.
문자 크기를 TEXTSIZE 시스템 변수 값이 아닌 고정 크기로 바꾸고 싶으면
리습 파일을 메모장으로 열어
(/ (getvar 'textsize)   이부분을
(/ 10.0   이렇게 변경하면 문자 크기 10으로 써집니다.(괄호주의)

소수점 설정은 ?
소수점은 현재 도면의 도면 단위 설정을 따라갑니다.
따라서 현재 도면의 소수점 설정을 바꾸면 그에 따라 소수점이 표기됩니다.
도면의 소수점 설정은 UNITS 명령을 실행해서 정밀도를 수정하면 됩니다.
또는 시스템 변수 "LUPREC" 명령을 입력해서 소수점 자리 수를 지정해도 됩니다

IntLenV1-4.lsp