[求助]：如何根据图块名计数？

xyzjint_cn

在一张图中插入许多图块如：双管净化灯、普通荧光灯、单管净化灯等
如何用程序完成计数功能：提示选择图块，根据图块名（如双管净化灯），数出该双管净化灯在该选择中的数量。

经过各种命令的实践，编程如下：
(愿各位大侠想出更好的办法)(defun c:kjs()
  (princ "\n高效送风口GKF-05A/1.高效送风口GKF-10A/2.双管净化灯/3.紫外线杀菌灯/4.普通荧光灯/5:")
  (setq kn (getint))
        (if (= kn 1)
          (setq blk "高效送风口GKF-05B")
          )
        (if (= kn 2)
          (setq blk "高效送风口GKF-10A")
          )
        (if (= kn 3)
          (setq blk "双管净化灯")
          )
         (if (= kn 4)
          (setq blk "紫外线杀菌灯")
          )
         (if (= kn 5)
          (setq blk "普通荧光灯")
          )  
  (setq a(ssget  (list (cons 2 blk))))
  (if(/= a nil)
    (progn
      (setq n (sslength a))
      (prompt(strcat "\n块名为:" blk ))
      (prompt(strcat "\n数量为:"(rtos n)))
      
      )
    )
  (if(= a nil)
    (prompt "\n没有该块")
    )
  (princ)
  )

*******只要将（高效送风口）等改成你所定义的块就行了。*******

XDSoft

;|
   命令：blk_num
   功能：统计图中一个图块的数量
   
   配合xdrx_api使用
   xdrx_api最新版本和对该程序的建议和改进请到
   晓东CAD空间－论坛 http://www.fspdi.com/forum 的“编程申请”子论坛提出
|;

2. 
   
3. (defun c:blk_num (/ blk_na ss)
   
4.   (if (and
   
5.         (setq blk_na (car (xdrx_entsel "\n请点取要统计的块的实体<退出>:" '
   
6.                                        ((0 . "insert"))
   
7.                           )
   
8.                      )
   
9.         )
   
10.         (setq blk_na (xdrx_getentdxf 2))
    
11.         (setq ss (ssget "x" (list (cons 2 blk_na) '(0 . "insert"))))
    
12.       )
    
13.     (prompt (strcat "当前图形中" blk_na "的数量是 " (itoa (sslength ss))))
    
14.   )
    
15.   (princ)
    
16. )
    

<br /> (defun c:blk_num (/ blk_na ss)<br />   (if (and<br />         (setq blk_na (car (xdrx_entsel "\n请点取要统计的块的实体<退出>:" '<br />                                        ((0 . "insert"))<br />                           )<br />                      )<br />         )<br />         (setq blk_na (xdrx_getentdxf 2))<br />         (setq ss (ssget "x" (list (cons 2 blk_na) '(0 . "insert"))))<br />       )<br />     (prompt (strcat "当前图形中" blk_na "的数量是 " (itoa (sslength ss))))<br />   )<br />   (princ)<br /> )<br />

点下面附件下载