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

[ug]多选解组.lsp

最近图纸需要用到组。
有大量的组需要批量解开。
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
大佬有没有成组的

http://bbs.mjtd.com/thread-179168-1-1.html

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 static/image/common/back.gif
贴个我自己用的

学习了。
(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

谢谢很好用
页: [1] 2
查看完整版本: [ug]多选解组.lsp