(defun c:a (/ Main_ent_name get_10 M_center_pt)
(setq Main_ent_name (car(entsel)))
(setq Main_ent_list (entget Main_ent_name))
(setq get_10 (send_xy Main_ent_list 10))
(setq M_center_pt (ade_expreval Main_ent_name “.center” “point”)) (entmake (list (cons 0 “LINE”) (cons 8 “js_err”)
(cons 10 M_center_pt) (list 11 0 0 0) (cons 62 10)))
)
(defun send_xy (s_list attr_num / s_len i gn_list j i)
(setq s_len (length s_list)) //리스트 속성갯수
(setq i 0 j 0)
(setq gn_list (list )) //좌표담을 리스트 초기화
(while (< i s_len)
(if (= attr_num (car (nth i s_list)))
(progn
(setq gn_list (cons (cdr (nth i s_list)) gn_list))
(setq j (+ j 1))
)
)
(setq i (+ i 1))
)
(setq gn_list (reverse gn_list))
)
위의 리습을 이용하여 첨부된 파일에 실행시켰는데
다른객체는 다 제대로 건물의 가운데 점에 라인이 체크되는데
첨부파일에 있는 객체만 건물의 가운데점에 라인이 체크되는게 아니라
건물의 모서리에 라인이 체크되더라구요.
건물의 가운데에 라인이 체크되어야 맞는건데
같은리습을 사용해도 다른객체는 다 제대로 되는데
첨부파일에 있는 객체는 왜 안되는 걸까요?