关于框选获取所有图元然后依次排序问题

1227588 · 发表于 2021-7-11 10:53:03

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

此代码是获取了正方形的四个点怎么让他框选识别获取圆心点然后依次排序做判断可以用圆心来判断吗

烟盒迷唇 · 发表于 2021-7-13 19:12:30

正方形没有圆心吧

1227588 · 发表于 2021-7-16 09:50:29

说错了是正方形的交点

账号		自动登录	找回密码
密码			注册

关于框选获取所有图元 然后依次排序问题