[讨论]关于所有圆一次加上中心线的问题

669423907

非常好的程序！谢谢了！

chpmould

zhongys 发表于 2011-5-31 21:55
圆中心线好写，关键在于如何判断同心圆，同心圆与圆弧，同心圆弧，如果这个处理好了就是一个非常好用的程式 ...

赞同搞成判断同心圆...

cabinsummer

同心圆很好判断，提供思路
取所有圆和圆弧的选择集
(setq ss (ssget "x" '((-4 . "<OR")(0 . "CIRCLE")(0 . "ARC")(-4 . "OR>"))))
取每个图元的中心和半径
(setq n 0)
(repeat (sslength ss)
  (append cc (list (cdr (assoc 10 (entget (ssname ss n))))(cdr (assoc 40 (entget (ssname ss n))))(ssname ss n)))
  (setq n (1+ n))
)

用vl-sort函数对cc中的表排序
cc表中元素为((x y z) r 图元名)
cc表中相邻元素比较，(equal (x0 y0 z0)(x1 y1 z1))则比较r，将半径小的表记录到另一个表dd中，直到表尾。
依次提取dd中的元素，用vl-remove函数将重复的元素从cc中删除
对消重后的cc进行中心线处理，由于最后一项保留了图元名，所以很方便