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

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

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

偶的作品：飞诗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:00

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

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

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

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

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

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

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

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

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

还得是你啊，明总。

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

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

就是不感谢自己
页: 1 [2]
查看完整版本: 重申.那位能快速建组呀.就是GROUP