伪书虫86 发表于 2014-10-12 08:53:37

vectra 发表于 2014-10-11 11:42 static/image/common/back.gif
只是为了后续语句在空选时不报错

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

zhongys 发表于 2014-10-13 21:57:38

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

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

xfjiamy 发表于 2017-11-1 20:26:42

感谢楼主分享源码

chj20055647 发表于 2018-1-1 10:27:48

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

墨者 发表于 2018-4-16 20:07:14

谢谢楼主分享

疯球 发表于 2018-5-14 16:27:34

真心感觉分享

taoyi0727 发表于 2018-5-14 17:30:32

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

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

武林至尊李小龙 发表于 2018-5-26 14:42:09

受教了，谢谢分享

evayleung 发表于 2018-5-27 13:23:50

进来学习一下，谢谢

疯球 发表于 2018-5-30 20:15:45

好程序，楼主太棒了
页: 1 [2] 3
查看完整版本: 发一个统计块数量的源码