두선 네점의 교차점 구하기 inters

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))