[讨论]圆的中心线（高手请进）

3527188

2. (defun Centerline->ename (Single_ename)
3. (defun line->list (pt1 pt2)
4. (entmake (list'(0 . "LINE")'(67 . 0)'(410 . "Model")
5. '(8 . "Center")(cons 10 pt1)(cons 11 pt2)
6. )
7. )
8. )
9. (setq Radius_real (* 1.2(cdr(assoc 40 (entget Single_ename))))
10. CenterPoint_list (cdr(assoc 10 (entget Single_ename)))
11. Centerline_pt1 (polar CenterPoint_list (* pi  1.5)Radius_real)
12. Centerline_pt2 (polar CenterPoint_list pi Radius_real)
13. Centerline_pt3 (polar CenterPoint_list (* 0.5 pi) Radius_real)
14. Centerline_pt4 (polar CenterPoint_list 0.0 Radius_real)
15. )
16. (line->list Centerline_pt1 Centerline_pt3)
17. (line->list Centerline_pt2 Centerline_pt4)
18. (princ)
19. )

(defun Centerline->ename (Single_ename) (defun line->list (pt1 pt2) (entmake (list'(0 . "LINE")'(67 . 0)'(410 . "Model") '(8 . "Center")(cons 10 pt1)(cons 11 pt2) ) ) ) (setq Radius_real (* 1.2(cdr(assoc 40 (entget Single_ename)))) CenterPoint_list (cdr(assoc 10 (entget Single_ename))) Centerline_pt1 (polar CenterPoint_list (* pi  1.5)Radius_real) Centerline_pt2 (polar CenterPoint_list pi Radius_real) Centerline_pt3 (polar CenterPoint_list (* 0.5 pi) Radius_real) Centerline_pt4 (polar CenterPoint_list 0.0 Radius_real) ) (line->list Centerline_pt1 Centerline_pt3) (line->list Centerline_pt2 Centerline_pt4) (princ) )

怎么解决2圆同心的时候只画大圆的中心线（批量处理）

3527188

有时候一个圆的时候也要画中心线

starlet2003

我想是不是可以先提取全部圆心，然后排序过滤，就可以剔除同心圆的情况了

3527188

呵呵～～～排除同心圆的时候还要比较圆的大小啊

carrot1983

1.如果只选中一个圆，画中心线 OK

2.如果选中了N个圆，以半径最大者为需画中心线的圆

Andyhon

Ref : http://bbs.mjtd.com/forum.php?mod=viewthread&tid=73843

hyccai

我做了一个HTools工具，里面的画中心线就可以解决