动态删去层上所有的物体

75215195 · 发表于 2017-9-23 19:17:53

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[Actionscript3] 纯文本查看 复制代码

(defun c:QW (/ #Read #Ent)
  (while (eq 5 (car (setq #Read (grread t 15 2))))
    (princ "\r移动光标碰到物体,删去该物体所在层的物体:")
    (if (setq #Ent (ssget (cadr #Read)))
        (vl-cmdf "_.ERASE" (setq s (ssget "x" (list (cons 8 (cdr (assoc 8 (entget (ssname #Ent 0)))))))) "")
    ) ;_ if
  ) ;_ while
  (princ)
) ;_ defun

参考了一个大神的源码，修改而成。

VBAVBAA · 发表于 2017-9-23 23:52:35

可以，支持一个。

kqqt6236 · 发表于 2017-9-24 00:03:34

谢谢分享。这个程序很简洁。

sh_h · 发表于 2017-9-24 00:08:06

此码性能太猛烈！！！
增加一个左键点击确认就完美了！！！

longer1000 · 发表于 2017-9-24 00:16:40

此码性能太猛烈！！！

yoyoho · 发表于 2017-9-24 07:38:03

谢谢分享程序!!!

ngc · 发表于 2017-9-24 13:12:01

这个代码很简洁，强

liunian0524 · 发表于 2017-9-26 07:59:15

感谢分享...

tyjtyj19811981 · 发表于 2017-9-26 11:21:17

好简洁的代码!

tyjtyj19811981 · 发表于 2017-9-26 11:24:35

药效太猛,碰到就死!

陪你看山盟 · 发表于 2020-5-21 15:41:50

药效确实很猛，走不了第三步

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

[每日一码] 动态删去层上所有的物体

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。