重申.那位能快速建组呀.就是GROUP

xgr · 发表于 2008-9-21 09:17

编个对话框，启动命令时搜索图形中所有的组明，列在对话框里，然后选择需要分解的组，执行分解命令。

飞诗(fsxm) · 发表于 2008-9-21 09:57

偶的作品：飞诗CAD程序管理大一统~
内有两个源程序正是你想要的！：

;;制作匿名组
(defun c:mak_*group (/ ss)
(princ "\n选取制作匿名组的对象:")
(if (setq ss (ssget))
(fsxm-add-group ss "*")
)
(princ)
)
;;解散群组
(defun C:EXPLODE_GROUP (/ allg data group ss)
(if (setq ss (ssget))
(foreach en (fsxm-ss->enlist ss)
(setq data (entget en))
(setq group
(vl-remove-if
'(lambda (a)
(or (/= (car a) 330)
(/= (fsxm-getdxf 0 (entget (cdr a))) "GROUP")
)
)
data
)
)
(setq allg (reverse (dictsearch (namedobjdict) "ACAD_GROUP")))
(foreach a (mapcar 'cdr group)
(princ "\nEXPLODE GROUP : ")
(princ (cdadr (member (cons 350 a) allg)))
(entdel a)
)
)
)
(princ)
)

wwwliuyu · 发表于 2008-9-21 10:49

(defun c:xx()
(if(setq en(entsel "选择要炸开的组: "))
    (progn
      (setq gr(cdr(assoc 0 (entget(cdr(assoc 330(entget(car en))))))))
      (if (= "GROUP" gr)
(entdel (cdr(assoc 330(entget(car en)))))
(prompt "所选对象没有被分组!")
)
      )
    )
(princ)
)

飞诗(fsxm) · 发表于 2008-9-21 11:32

楼上你好：不是所有对象只有一个群组滴

357785513 · 发表于 2008-9-21 21:11

高.实在是高.现在快速建组.快速炸组都有了.感谢天地.感谢阳光

alexmai · 发表于 2019-3-23 10:43

怎样在不知名的“组”中，增加对象或者删减对象

zilong136 · 发表于 2024-3-29 14:26

mccad 发表于 2008-9-21 08:41
(defun c:gg(/ ss)  (setq ss(ssget))  (setvar "cmdecho" 0)  (command "-group" "" "*" " ...

还得是你啊，明总。

zilong136 · 发表于 2024-3-29 14:28

357785513 发表于 2008-9-21 21:11
高.实在是高.现在快速建组.快速炸组都有了.感谢天地.感谢阳光

就是不感谢自己

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