[求助]：如何快速选择相同的块？？

jianaplane

在工作中，经常碰到选择相同的块这样一个问题，我见过一个朋友他用count命令选择所要选择的范围，命令框中就会出现所有的块的名字及数量（呈列表的形式）非常的方便，可是在我的电脑上就不行，请教各位大虾有什么办法？？？
为什么我的电脑上就不行？

chenhang1203

晓东工具里的图块统计命令_BLK_NUM
关键看你做这个什么用

qrs

用select选择目标时，用'filter选编block 名  即可

jianaplane

比如说我要统计植物数量时，相同的植物块名是相同的，但当我要用一个命令把所有图副里的植物全都统计出来时，用什么命令呢？

eachy

最初由 jianaplane 发布
[B]比如说我要统计植物数量时，相同的植物块名是相同的，但当我要用一个命令把所有图副里的植物全都统计出来时，用什么命令呢？ [/B]

所有图幅是什么意思？

陌生人

收集的成果

2. 
   
3. ;;;bka全图块统计------lxx.2001.2m
   
4. (defun c:bka (/ i ss no)
   
5. (princ "\nbka全图块统计------lxx.2001.2m")
   
6. (setq i 0)
   
7. (while (if(= 0 i)(setq bkn (cdr(assoc 2(tblnext "BLOCK" t))))(setq bkn (cdr(assoc 2(tblnext "BLOCK")))))
   
8. (setq ss (ssget "x" (list(cons 2 bkn))) i (+ 1 i))
   
9. (if ss (setq no (itoa(sslength ss)))(setq no "0"))
   
10. (if (< (strlen bkn) 8)(adds (- 8 (strlen bkn))));;;;(adds len)块名不够8位的加到8位--整齐
    
11. (princ (strcat "\n    图块   " bkn "  有  " no "  个"))(princ)
    
12. )
    
13. )
    
14. ;;;;;;;;;;;;;;adds子程序;;;;;;;;;;;;;;;;
    
15. (defun adds (len /)(repeat len (setq bkn (strcat bkn " "))));;;;块名不够8位的加到8位--整齐
    

<br /> ;;;bka全图块统计------lxx.2001.2m<br /> (defun c:bka (/ i ss no)<br /> (princ "\nbka全图块统计------lxx.2001.2m")<br /> (setq i 0)<br /> (while (if(= 0 i)(setq bkn (cdr(assoc 2(tblnext "BLOCK" t))))(setq bkn (cdr(assoc 2(tblnext "BLOCK")))))<br /> (setq ss (ssget "x" (list(cons 2 bkn))) i (+ 1 i))<br /> (if ss (setq no (itoa(sslength ss)))(setq no "0"))<br /> (if (< (strlen bkn) 8)(adds (- 8 (strlen bkn))));;;;(adds len)块名不够8位的加到8位--整齐<br /> (princ (strcat "\n    图块   " bkn "  有  " no "  个"))(princ)<br /> )<br /> )<br /> ;;;;;;;;;;;;;;adds子程序;;;;;;;;;;;;;;;;<br /> (defun adds (len /)(repeat len (setq bkn (strcat bkn " "))));;;;块名不够8位的加到8位--整齐<br />