[LISP]关于group name

aaddff

请问如何用lisp得到一个group name之后炸开呢？


一个group经copy后，其name 会改变，怎样知道有几个内容一样，但name不一样的group 呢?

龙龙仔

;;1.請問如何用lisp得到一個group name之後炸開呢？
;;////////////////////////////////////////////////////////////////
;;
;; GroupNames ( Ename )
;;
;; Copyright c 2001 Michael Puckett - All Rights Reserved
;;
;;////////////////////////////////////////////////////////////////
;;
;; Return a list of the group names the entity is a child of,
;; innermost first.
;;
;;//////////////////////////////////////////////////////////////// (defun GROUPNAMES (ENAME / KEY DICT RESULT)
(setq
KEY (cons 340 ENAME)
DICT (dictsearch (namedobjdict) "acad_group")
)
(while (setq DICT (member (assoc 3 DICT) DICT))
(if (member KEY (entget (cdadr DICT)))
(setq RESULT (cons (cdar DICT) RESULT))
)
(setq DICT (cddr DICT))
)
(reverse RESULT)
) ;;炸開物件所屬群組
;;BY 龍龍仔(LUCAS)
(defun C:EXPGROUP (/ HOLDECHO GROUPNAMES_LST NAME)
(setq HOLDECHO (getvar "cmdecho"))
(setq GROUPNAMES_LST (GROUPNAMES (car (entsel "\nSelect object: "))))
(setvar "cmdecho" 0)
(foreach NAME GROUPNAMES_LST
(command "_.GROUP" "E" NAME)
(prompt (strcat "\n炸開群組名稱: " NAME))
)
(setvar "cmdecho" HOLDECHO)
(princ)
) ;;2.一個group經copy後，其name 會改變，怎樣知道有幾個內容一樣，但name不一樣的group 呢? ;;->很難!!

ljcgq

PICKSTYLE 系统变量

类型：整数
保存位置：注册表
初始值： 1

控制编组选择和关联填充选择的使用。

0 不使用编组选择和关联填充选择

1 使用编组选择

2 使用关联填充选择

3 使用编组选择和关联填充选择

aaddff

谢谢龙龙仔，难道第二个问题真的就没办法解决了吗？ 3楼 “楼主“可能没理解我的意思了，炸开和关闭应该是两个不同的概念了，其实我是想通过group的个数来进行统计的……

Ea

aaddff发表于2004-5-3 19:40:00谢谢龙龙仔，难道第二个问题真的就没办法解决了吗？ 3楼 “楼主“可能...

每个Group都有个实体表，比较这些表就是了。

龙龙仔

1. 以下是引用Ea在2004-5-5 0:49:59的发言：

复制代码

2.一个group经copy后，其name 会改变，怎样知道有几个内容一样，但name不一样的group 呢?每个Group都有个实体表，比较这些表就是了。 EA兄:不同位置的實體表要如何比較???

BDYCAD

龍龍仔的辦法很簡易明了. 呵呵.

无痕

龙龙仔发表于2004-5-5 7:55:002.一个group经copy后，其name 会...

我也认为这种比较不具操作性

Ea

龙龙仔发表于2004-5-5 7:55:002.一个group经copy后，其name 会...

楼主说的是重复实体吧

龙龙仔

我想樓主說的:不是原地COPY!