求助：全局炸块如何过滤掉指定的属性块？

zhangcan0515 · 发表于 2020-9-18 23:11

;;炸块
(defun C:zk (/ ss i obj)
      (vl-load-com)
  (setvar "cmdecho" 1)
  (while (setq ss (ssget "X" '((0 . "Insert"))))
            (repeat (setq i (sslength ss))
                     (setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
                     (mapcar '(lambda (x) (vlax-invoke obj x)) '(Explode Delete))
            )
      )
  (setvar "cmdecho" 0)
  (princ)
)

老师们好，这个程序是我在明经上找到了，不知道是那位老师的，再次说声谢谢！
我想过滤掉图档中名为：A3、 A4的属性框。

gaics · 发表于 2020-9-19 09:34

本帖最后由 gaics 于 2020-9-19 09:36 编辑

http://bbs.mjtd.com/forum.php?mo ... C%AF%2B%CC%DE%B3%FD
三天前的悬赏帖子都不看吗

zhangcan0515 · 发表于 2020-9-19 09:45

gaics 发表于 2020-9-19 09:34
http://bbs.mjtd.com/forum.php?mo ... C%AF%2B%CC%DE%B3%FD
三天前的悬赏帖子都不看吗

谢谢老师给提醒在看了

zhangcan0515 · 发表于 2020-9-19 11:32

已经解决了！！！

账号		自动登录	找回密码
密码			注册

[提问] 求助：全局炸块如何过滤掉指定的属性块？