[求助]：能不能很快知道图中小圆的个数?

ycao

请问各位老大,能不能分别自动求出图中水平中心线上小圆的个数和其它小圆的个数?

sweixx

这个题目又什么意义吗

lsjjm

请参考:
返回中心线上小圆的个数 和小圆总数

2. 
   
3. (defun c:test ()
   
4.   (setq bc (car (entsel "\nSelect Boundary:")))
   
5.   (setq br (cdr (assoc 40 (entget bc))))
   
6.   (vl-cmdf "divide" bc 60)
   
7.   (setq pg (ssget "x" '((0 . "POINT"))))
   
8.   (setq n 0)
   
9.   (while (< n (sslength pg))
   
10.     (setq pl (append pl (list (cdr (assoc 10 (entget (ssname pg n)))))))
    
11.     (setq n (1+ n))
    
12.   )
    
13.   (vl-cmdf "erase" pg "")
    
14.   (setq ss (ssget "wp" pl '((0 . "CIRCLE"))))
    
15.   (setq n 0 cc (ssadd))
    
16.   (while (< n (sslength ss))
    
17.     (if (equal (cadr (cdr (assoc 10 (entget (ssname ss n)))))
    
18.                (cadr (cdr (assoc 10 (entget bc)))))
    
19.       (ssadd (ssname ss n) cc)
    
20.     )
    
21.     (setq n (1+ n))
    
22.   )
    
23.   (list (sslength cc)(sslength ss))
    
24. )

<br /> (defun c:test ()<br />   (setq bc (car (entsel "\nSelect Boundary:")))<br />   (setq br (cdr (assoc 40 (entget bc))))<br />   (vl-cmdf "divide" bc 60)<br />   (setq pg (ssget "x" '((0 . "POINT"))))<br />   (setq n 0)<br />   (while (< n (sslength pg))<br />     (setq pl (append pl (list (cdr (assoc 10 (entget (ssname pg n)))))))<br />     (setq n (1+ n))<br />   )<br />   (vl-cmdf "erase" pg "")<br />   (setq ss (ssget "wp" pl '((0 . "CIRCLE"))))<br />   (setq n 0 cc (ssadd))<br />   (while (< n (sslength ss))<br />     (if (equal (cadr (cdr (assoc 10 (entget (ssname ss n)))))<br />                (cadr (cdr (assoc 10 (entget bc)))))<br />       (ssadd (ssname ss n) cc)<br />     )<br />     (setq n (1+ n))<br />   )<br />   (list (sslength cc)(sslength ss))<br /> )

ycao

这个题目非常有意义！在化工设备中换热器布管就要用到这个题目。经常是有成百上千个圆，而又必须准确知道圆的个数。如能很快知道圆的个数，那就太省事了。
非常感谢lsjjm  的热心帮助！！！

to lsjjm  你的程序如何使用呵？刚才用了你的程序结果如下
命令: TEST

Select Boundary:divide
选择要定数等分的对象:
输入线段数目或 [块(B)]: 60
命令: erase
选择对象:   找到 60 个

选择对象:
命令:

并没有返回中心线上小圆的个数 和小圆总数啊！

swaywood

直接用快速选择！

841594

(ssget '((0 . "CIRCLE")))
选择一下园，cad会告诉你选中了多少个。

憨山

用’filter命令也可以啊！可以选择一定的直径或半径。

ycao

还是3楼的方法最好。经过下面改动，程序就能运行了
(defun c:test ()
  (setq bc  (entsel "\nSelect Boundary:"))
  ;;(setq br (cdr (assoc 40 (entget bc))))
  (vl-cmdf "divide"  (car bc)  60)
  (setq pg (ssget "x" '((0 . "POINT"))))
  (setq n 0)
  (while (< n (sslength pg))
    (setq pl (append pl (list (cdr (assoc 10 (entget (ssname pg n)))))))
    (setq n (1+ n))
  )
  (vl-cmdf "erase" pg "")
  (setq ss (ssget "wp" pl '((0 . "CIRCLE"))))
  (setq n 0 cc (ssadd))
  (while (< n (sslength ss))
    (if (equal (cadr (cdr (assoc 10 (entget (ssname ss n)))))
               (cadr (cdr (assoc 10 (entget (car bc))))))
      (ssadd (ssname ss n) cc)
    )
    (setq n (1+ n))
  )
  (list (sslength cc)(sslength ss))
)

lzy9788

直接快速选择就行了，会提示你选中的个数的。

shizhilong

使用快速选择,条件是小圆的半径.

maplesu

楼主似乎不是要全部的，只是要水平中心线上的
在lisp中(ssget "f" pt-list)
其中pt-list是点的列表，这样再筛选一下就可以了

下面的lisp可以返回选定直线上的相同半经的小圆
命令行，sx，然后选择需要的直线，再选择要求个数的小圆中的任何一个

[PHP]
(defun c:sx()
  (setq en (entsel "选择直线")
        obj (entsel "选择参照圆："))
(setq r (cdr (assoc 40 (entget (car obj))))
        pt1 (assoc 10 (entget (car en)))
        pt2 (assoc 11 (entget (car en)))
        list_pt (list (cdr pt1) (cdr pt2))
        i 0
        n 0)
  (setq ss (ssget "f" list_pt))
  (repeat (sslength ss)
    (setq gg (ssname ss i))
    (setq rr (cdr (assoc 40 (entget gg))))
    (if (= rr r) (setq n (+ 1 n)))
    (setq i (+ 1 i))
    )
  (ALERT (STRCAT "共有圆" (rtos n 2) "个在直线上"))
  )
[/PHP]