无尽的手残 发表于 2017-10-18 10:57:59

给力给力给力给力

xl_cen 发表于 2017-10-21 12:02:43

怎么连个阅读权限都没有

virage7676 发表于 2017-10-22 09:07:56

非常感谢，可惜看不到，先頂再說

广易精通 发表于 2017-10-22 10:13:13

高版威武，出来的都是精品啊

woshilj 发表于 2018-5-24 19:45:22

支持一下，感觉很实用的工具

you_zy 发表于 2018-5-25 14:13:05

(defun C:TT (/ 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)
)

cn0yahoo 发表于 2018-5-25 18:05:08

学习了

cn0yahoo 发表于 2018-5-25 18:05:31

都是高手，学习中

啊水2485801022 发表于 2019-5-24 17:10:52

超级炸弹，试试{:1_1:}:lol:lol:lol

消失的天空 发表于 2019-6-10 21:49:28

，好用
页: 14 15 16 17 18 19 20 21 22 23 [24] 25 26 27
查看完整版本: 求一键炸块炸到底