[求助]：如何查询图形中某种块的数量

hcg0815

另外，如何将图形中带同一单位的数字标注求和。麻烦各位指点一下，谢了！

myfreemind

你是求块的数量吗？

天下有雪

哇噻。。。。。
这个问题还没想过呢。
有没有高手回答一下呵。

snsj

最初由 天下有雪 发布
[B]哇噻。。。。。
这个问题还没想过呢。
有没有高手回答一下呵。 [/B]

两种方法：
1.纯CAD的方法
参看演示
2.利用程序生成，提供一个刚学LISP的时候写的一个查块数的程序

2. 
   
3. ;<------红苹果工具---作者：SNSJ------>
   
4. ;查选区内的数
   
5. ;cks.lsp
   
6. (defun c:cks (/ a1 a2 a3 a4 a5 a6 a7 a8 a9)
   
7.   (setq a1 (entsel "\nselect a bolck:"))
   
8.   (if a1
   
9.     (progn
   
10.   (setq a2 (car a1))
    
11.   (setq a3 (entget a2))
    
12.   (setq a4 (assoc 0 a3))
    
13.   (setq a5 (cdr a4))
    
14.   
    
15.   (if (= a5 "INSERT")
    
16.     (progn
    
17.       (setq a6 (assoc 2 a3))
    
18.       (setq a7 (cdr a6))
    
19.       (princ "\n选择要查所选块数的区域")
    
20.   (setq a8 (ssget (list '(0 . "INSERT") a6)))  
    
21.   (setq a9 (sslength a8))
    
22.   (princ "\n选区内的块")   
    
23.   (princ a7)
    
24.   (princ "数目为:")
    
25.   (princ a9)
    
26.   (princ)
    
27.    )
    
28.    (princ "\n选择的物体不是块!!!")
    
29.    )
    
30.    )
    
31.    (princ "\n没有物体被选择!!!")
    
32.    )
    
33.     (princ)
    
34.    )
    

<br /> ;<------红苹果工具---作者：SNSJ------><br /> ;查选区内的数<br /> ;cks.lsp<br /> (defun c:cks (/ a1 a2 a3 a4 a5 a6 a7 a8 a9)<br />   (setq a1 (entsel "\nselect a bolck:"))<br />   (if a1<br />     (progn<br />   (setq a2 (car a1))<br />   (setq a3 (entget a2))<br />   (setq a4 (assoc 0 a3))<br />   (setq a5 (cdr a4))<br />   <br />   (if (= a5 "INSERT")<br />     (progn<br />       (setq a6 (assoc 2 a3))<br />       (setq a7 (cdr a6))<br />       (princ "\n选择要查所选块数的区域")<br />   (setq a8 (ssget (list '(0 . "INSERT") a6)))  <br />   (setq a9 (sslength a8))<br />   (princ "\n选区内的块")    <br />   (princ a7)<br />   (princ "数目为:")<br />   (princ a9)<br />   (princ)<br />    )<br />    (princ "\n选择的物体不是块!!!")<br />    )<br />    )<br />    (princ "\n没有物体被选择!!!")<br />    )<br />     (princ)<br />    )<br />

kailler

14可以使用filter命令完成，2000就更不必说了