[LISP]关于group name
请问如何用lisp得到一个group name之后炸开呢？一个group经copy后，其name 会改变，怎样知道有几个内容一样，但name不一样的group 呢? ;;1.請問如何用lisp得到一個group name之後炸開呢？ <BR>;;////////////////////////////////////////////////////////////////<BR>;;<BR>;; GroupNames ( Ename )<BR>;;<BR>;; Copyright c 2001 Michael Puckett - All Rights Reserved<BR>;;<BR>;;////////////////////////////////////////////////////////////////<BR>;;<BR>;; Return a list of the group names the entity is a child of,<BR>;; innermost first.<BR>;;<BR>;;////////////////////////////////////////////////////////////////
(defun GROUPNAMES (ENAME / KEY DICT RESULT)<BR> (setq<BR> KEY (cons 340 ENAME)<BR> DICT (dictsearch (namedobjdict) "acad_group")<BR> )<BR> (while (setq DICT (member (assoc 3 DICT) DICT))<BR> (if (member KEY (entget (cdadr DICT)))<BR> (setq RESULT (cons (cdar DICT) RESULT))<BR> )<BR> (setq DICT (cddr DICT))<BR> )<BR> (reverse RESULT)<BR>)
;;炸開物件所屬群組<BR>;;BY 龍龍仔(LUCAS)<BR>(defun C:EXPGROUP (/ HOLDECHO GROUPNAMES_LST NAME)<BR> (setq HOLDECHO (getvar "cmdecho"))<BR> (setq GROUPNAMES_LST (GROUPNAMES (car (entsel "\nSelect object: "))))<BR> (setvar "cmdecho" 0)<BR> (foreach NAME GROUPNAMES_LST<BR> (command "_.GROUP" "E" NAME)<BR> (prompt (strcat "\n炸開群組名稱: " NAME))<BR> )<BR> (setvar "cmdecho" HOLDECHO)<BR> (princ)<BR>)
;;2.一個group經copy後，其name 會改變，怎樣知道有幾個內容一樣，但name不一樣的group 呢?
;;->很難!!
<BR> PICKSTYLE 系统变量
<P class=table_body>类型：整数<BR>保存位置：注册表<BR>初始值： 1
<P class=table_body>控制编组选择和关联填充选择的使用。<BR>
<P class=table_list>0 不使用编组选择和关联填充选择
<P class=table_list>1 使用编组选择
<P class=table_list>2 使用关联填充选择
<P class=table_list>3 使用编组选择和关联填充选择 谢谢<A name=15561><FONT color=#000066><B>龙龙仔</B></FONT></A>，难道第二个问题真的就没办法解决了吗？
<b><FONT color=#ff0000>3</FONT>楼 “楼主“可能没理解我的意思了，炸开和关闭应该是两个不同的概念了，其实我是想通过group的个数来进行统计的……</b> aaddff发表于2004-5-3 19:40:00static/image/common/back.gif谢谢龙龙仔，难道第二个问题真的就没办法解决了吗？
3楼 “楼主“可能...
<BR>每个Group都有个实体表，比较这些表就是了。</B> 以下是引用Ea在2004-5-5 0:49:59的发言：
2.一个group经copy后，其name 会改变，怎样知道有几个内容一样，但name不一样的group 呢?每个Group都有个实体表，比较这些表就是了。 EA兄:不同位置的實體表要如何比較??? 龍龍仔的辦法很簡易明了. 呵呵. 龙龙仔发表于2004-5-5 7:55:00static/image/common/back.gif2.一个group经copy后，其name 会...
我也认为这种比较不具操作性<BR></FONT> 龙龙仔发表于2004-5-5 7:55:00static/image/common/back.gif2.一个group经copy后，其name 会...
楼主说的是重复实体吧<BR></FONT> 我想樓主說的:不是原地COPY!