[ug]多选解组.lsp

brbright · 发表于 2016-9-11 15:20:23

最近图纸需要用到组。
有大量的组需要批量解开。
AutoCAD的UNGROUP似乎只能单选。
痛苦。
于是自己查资料写了一个多选解组的lisp。

谢谢。

1993063 · 发表于 2016-9-11 22:16:12

贴个我自己用的

ketxu · 发表于 2019-8-30 13:46:06

Thanks for sharing

(if (= "GROUP" (cdr (assoc 0 (entget (setq g (cdr (assoc 330 (entget e))))))))(entdel g))

alexmai · 发表于 2019-6-30 21:40:21

zj20190405 发表于 2019-6-26 13:59
大佬有没有成组的

ynhh · 发表于 2016-9-11 16:02:25

谢谢你
多选解组学习了

yoyoho · 发表于 2016-9-11 16:14:52

感谢 brbright 分享程序!!!!!

huai-xiao-hai · 发表于 2016-9-11 21:10:02

谢谢，楼主写的程序很实用的

yanchao316 · 发表于 2016-9-11 21:49:37

brbright · 发表于 2016-9-12 08:47:41

1993063 发表于 2016-9-11 22:16
贴个我自己用的

学习了。
(if (= "GROUP" (cdr (assoc 0 (entget (setq g (cdr (assoc 330 (entget e))))))))(entdel g))
非常简洁的设计。

xiaobaixiaobu · 发表于 2016-9-12 18:46:22

CTRL+H不就行了吗？

fangmin723 · 发表于 2016-10-22 20:38:06

1993063 发表于 2016-9-11 22:16
贴个我自己用的

简单明了，通俗易懂，感谢分享，学习了！！！

love1030312 · 发表于 2016-10-24 17:05:35

谢谢很好用

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

[源码] [ug]多选解组.lsp