AutoLISP

inters 는 두점이 이루는 각도와 또다른 두점이 이루는 각도로 교차되는 점을 찾아줍니다

결국 두선의 각 끝점으로 교차점을 찾는것과 같습니다

교차점을 찾기위해서는 네개의 점을 미리 정의해야합니다

aas  선 aa 의 시작점

aae  선 aa 의 끝점

bbs  선 bb 의 시작점

bbe 선 bb 의 끝점

ccc 교차점

t 옵션은 선에대한 연장을 하지 않습니다

(setq ccc (inters aas aae bbs bbe t))

직접 교차하지 않으면 nil 응답

nil 옵션은 선에대한 연장을 합니다

(setq ccc (inters aas aae bbs bbe nil))

예제는 캐드 화면상의 두선을 선택하게하여 그 교차점 pt0 을 구합니다

 (setq ss1 (entsel "\n LINE 하나 선택 "))
 (setq pt11 (cdr (assoc 10 (entget (car ss1)))))
 (setq pt12 (cdr (assoc 11 (entget (car ss1)))))
 (setq ss2 (entsel "\n 다른 LINE 하나 선택 "))
 (setq pt21 (cdr (assoc 10 (entget (car ss2)))))
 (setq pt22 (cdr (assoc 11 (entget (car ss2)))))
 (setq pt0 (inters pt11 pt12 pt21 pt22 nil))

itoa 는 정의된 정수를 문자로 변환합니다

예제의 abc 는 사용자 임의 변수명이며 예제 이전에 정의 되어 있어야 합니다

(itoa abc) ; 정수상태인 abc 를 문자로 변환한 값을 응답합니다

(if (null aryno1)(setq aryno1 4))

; aryno1 값이 존재하지 않으면 정수 4 로 합니다

(setq aryno (getint (strcat "\n 원 등분수 입력 <" (itoa aryno1) "> "))) 

; aryno 정수값 입력을 요구하되 명령행에 " 원 등분수 입력 <4> " 를 출력합니다

;  사용자가 희망하는 값이 4 이면 그냥 엔터 하도록 의도합니다

 (if (null aryno)(setq aryno aryno1) (setq aryno1 aryno))

; 사용자가 4 를 희망하여 그냥 엔터하면 aryno 를 정수 4로 하고 기억시킵니다

; 이 4 의 값은 사용자가 다른값으로 실행한 이력이 있으면 그 값으로 표현 적용 됩니다