发一个统计块数量的源码

伪书虫86

vectra 发表于 2014-10-11 11:42
只是为了后续语句在空选时不报错

哦，还是不太懂，看ssadd示例的第二个-->>
将 ss 设为空选择集：
命令： (setq ss (ssadd))
这样的话，你（or ss (setq ss (ssadd))）后岂不是把ss变成空选择集了？

zhongys

zhongys 发表于 2014-10-11 22:57
请教邹大大
若将这一句(setq mpl (cons (list na (rtos i 2 0)) mpl))改成过滤重名块怎么改。
我改了一下 ...

对头，主要是的是想把块名合并,不知如何处理

xfjiamy

感谢楼主分享源码

chj20055647

试一下，整是自己想要的功能

墨者

谢谢楼主分享

疯球

真心感觉分享

taoyi0727

看看我这个怎么样 我也是才学的

2. 
   
3. ;选块名
   
4. (defun c:xkm ()
   
5.         (setq xh 0)
   
6.         (while xh
   
7.                 (setq km (entsel "\n请选择要过滤的块"))
   
8.                 (if (= km nil)
   
9.                         (princ "\n请重新选择")
   
10.                         (if (= (cdr (assoc 0 (entget (car km)))) "INSERT")
    
11.                                 (progn
    
12.                                         (setq km (assoc 2 (entget (car km))))
    
13.                                         (setq xh nil)
    
14.                                 )
    
15.                         )
    
16.                 )
    
17.         )
    
18.         (setq ss (ssget (list km (cons 0 "INSERT"))))
    
19.         (sssetfirst nil ss)
    
20.         (princ (strcat "\n已选择" (rtos (sslength ss) 2 4) "个对象"))
    
21.         (princ)
    
22. )
    

<br /> ;选块名<br /> (defun c:xkm ()<br />         (setq xh 0)<br />         (while xh<br />                 (setq km (entsel "\n请选择要过滤的块"))<br />                 (if (= km nil)<br />                         (princ "\n请重新选择")<br />                         (if (= (cdr (assoc 0 (entget (car km)))) "INSERT")<br />                                 (progn<br />                                         (setq km (assoc 2 (entget (car km))))<br />                                         (setq xh nil)<br />                                 )<br />                         )<br />                 )<br />         )<br />         (setq ss (ssget (list km (cons 0 "INSERT"))))<br />         (sssetfirst nil ss)<br />         (princ (strcat "\n已选择" (rtos (sslength ss) 2 4) "个对象"))<br />         (princ)<br /> )<br />

武林至尊李小龙

受教了，谢谢分享

evayleung

进来学习一下，谢谢

疯球

好程序，楼主太棒了