求一键炸块炸到底

无尽的手残 · 发表于 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

超级炸弹，试试

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

，好用

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