关于框选获取所有图元 然后依次排序问题
[*](defun c:tt()
[*](setq ss (ssget))
[*](setq i 0)
[*]
[*](setq must_1 '())
[*](setq must_2 '())
[*](repeat (sslength ss)
[*] (setq pt (cdr (assoc 10 (entget (ssname ss i)))))
[*] (setq pt2 (cdr (assoc 11 (entget (ssname ss i)))))
[*] (setq must_1 (append must_1 (list pt)))
[*] ;(setq must_2 (append must_2 (list pt2)))
[*] (setq pt1 (nth 0 must_1))
[*] (setq pt2 (nth 1 must_1))
[*] (setq pt3 (nth 2 must_1))
[*] (setq pt4 (nth 3 must_1))
[*](setq jd (inters (nth 0 must_1) (nth 2 must_1) (nth 1 must_1) (nth 3 must_1)))
[*]
[*]
[*](setq i (1+ i))
[*])
[*]
[*])
此代码是获取了 正方形的四个点 怎么让他框选识别 获取圆心点 然后依次排序做判断 可以用圆心来判断吗
正方形没有圆心吧 说错了 是正方形的交点
页:
[1]