[求助]：请问如何用得到GROUP名称？

enjoycad

请问如何用得到GROUP名称？

XDSoft

下面代码摘自“晓东工具箱”通用LISP函数库XDLSP.LSP

程序使用了XDRX_API，原理在以前论坛给大家讲过，看下面代码也应该可以清楚。

2. 
   
3. [FONT=courier new]
   
4. ;|
   
5.    根据一个实体，获得实体属于组的组名
   
6. |;
   
7. (defun $xdlsp_entity_groupname (e / e1 e2 tf tf1 ss i el owner)
   
8.   (xdrx_setenttodb e)
   
9.   (if (setq e1 (xdrx_getentdxf 330))
   
10.     (progn
    
11.       (xdrx_setenttodb e1)
    
12.       (setq owner (xdrx_getentdxf 330))
    
13.       (while (setq e2 (xdrx_getentdxf 340 t))
    
14.         (setq el (cons e2 el))
    
15.       )
    
16.       (xdrx_setenttodb owner)
    
17.       (setq tf t)
    
18.       (while (and
    
19.                tf
    
20.                (setq na (xdrx_getentdxf 3 t))
    
21.              )
    
22.         (if (setq ss (xdrx_group->pickset na))
    
23.           (progn
    
24.             (setq tf1 t)
    
25.             (setq i -1)
    
26.             (while (and
    
27.                      tf1
    
28.                      (< i (1- (length el)))
    
29.                    )
    
30.               (if (not (ssmemb (nth (setq i (1+ i))
    
31.                                     el
    
32.                                ) ss
    
33.                        )
    
34.                   )
    
35.                 (setq tf1 nil)
    
36.               )
    
37.             )
    
38.             (if tf1
    
39.               (setq tf nil)
    
40.             )
    
41.           )
    
42.         )
    
43.       )
    
44.     )
    
45.   )
    
46.   na
    
47. )
    
48. [/FONT]

<br /> [FONT=courier new]<br /> ;|<br />    根据一个实体，获得实体属于组的组名<br /> |;<br /> (defun $xdlsp_entity_groupname (e / e1 e2 tf tf1 ss i el owner)<br />   (xdrx_setenttodb e)<br />   (if (setq e1 (xdrx_getentdxf 330))<br />     (progn<br />       (xdrx_setenttodb e1)<br />       (setq owner (xdrx_getentdxf 330))<br />       (while (setq e2 (xdrx_getentdxf 340 t))<br />         (setq el (cons e2 el))<br />       )<br />       (xdrx_setenttodb owner)<br />       (setq tf t)<br />       (while (and<br />                tf<br />                (setq na (xdrx_getentdxf 3 t))<br />              )<br />         (if (setq ss (xdrx_group->pickset na))<br />           (progn<br />             (setq tf1 t)<br />             (setq i -1)<br />             (while (and<br />                      tf1<br />                      (< i (1- (length el)))<br />                    )<br />               (if (not (ssmemb (nth (setq i (1+ i))<br />                                     el<br />                                ) ss<br />                        )<br />                   )<br />                 (setq tf1 nil)<br />               )<br />             )<br />             (if tf1<br />               (setq tf nil)<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   na<br /> )<br /> [/FONT]

XDSoft

XDRX_API的函数：

关于组对象的所有ARX方法的LISP调用函数：

1. [FONT=courier new]
   
2. 166. xdrx_group_del
   
3. 
   
4. 功能：将指定的组从图中去除定义。
   
5. 
   
6. 调用格式：(xdrx_group_del <组名>)
   
7. 
   
8. 返回值：若成功删除，返回T
   
9. 
   
10. 167. xdrx_group_list
    
11. 
    
12. 功能：得到图中所有定义的组（GROUP）名表
    
13. 
    
14. 调用格式：(xdrx_group_list)
    
15. 
    
16. 返回：若找到组，则方法组名字符串表
    
17. 
    
18. 190. xdrx_group_rename
    
19. 
    
20. 功能：组改名
    
21. 
    
22. 调用格式：(xdrx_group_rename <"组名"> <"新名字">)
    
23. 
    
24. 返回值：成功返回T
    
25. 
    
26. 说明：若新名字为"*",则改为匿名组
    
27. 
    
28. 191. xdrx_group_make
    
29. 
    
30. 功能：创建组
    
31. 
    
32. 调用格式：(xdrx_group_make <"组名"> <实体名 or 选择集>...<实体名 or 选择集>)
    
33. 
    
34. 返回值：成功返回组名
    
35. 
    
36. 说明：若“组名”是"*",则创建匿名组
    
37. 
    
38. 192. xdrx_group->Pickset
    
39. 
    
40. 功能：把组中的所有实体生成选择集
    
41. 
    
42. 调用格式：(xdrx_group->Pickset <"组名">)
    
43. 
    
44. 返回：若成功，返回选择集
    
45. 
    
46. 433. xdrx_group_setanoymous
    
47. 
    
48. 434. xdrx_group_IsAnoymous
    
49. 
    
50. 435. xdrx_group_isNotAccessible
    
51. 
    
52. 436. xdrx_group_appendEntity
    
53. 
    
54. #endif
    
55. 
    
56. 437. xdrx_group_removeEntity
    
57. 
    
58. 438. xdrx_group_replaceEntity
    
59. 
    
60. 439. xdrx_group_setcolor
    
61. 
    
62. 440. xdrx_group_sethighlight
    
63. 
    
64. 441. xdrx_group_SetLineType
    
65. 
    
66. 442. xdrx_group_SetLineScale
    
67. 
    
68. 443. xdrx_group_SetSelectAble
    
69. 
    
70. 444. xdrx_group_SetVisiblity
    
71. 
    
72. 445. xdrx_group_SetLayer
    
73. 
    
74. 446. xdrx_group_SetDescription
    
75. 
    
76. 447. xdrx_group_NumEntities
    
77. 
    
78. 448. xdrx_group_getDescription
    
79. 
    
80. 449. xdrx_group_IsSelectable
    
81. 
    
82. 450. xdrx_group_HasEntity
    
83. [/FONT]

复制代码