[寻找]：如何使用VLISP制作无名的GROUP?

mmmm

如何使用VLISP制作无名的GROUP?

eachy

最初由 mmmm 发布
[B]如何使用VLISP制作无名的GROUP? [/B]

2. 
   
3. ;; name 为 "*" 时创建匿名组
   
4. (defun group_make (name ss / groups group)
   
5.   (setq        groups (vla-get-groups
   
6.                  (vla-get-activedocument (vlax-get-acad-object))
   
7.                )
   
8.         group  (vla-add groups name)
   
9.   )
   
10.   (vla-AppendItems
    
11.     group
    
12.     (selectionsettoarray ss)
    
13.   )
    
14. )
    

<br /> ;; name 为 "*" 时创建匿名组<br /> (defun group_make (name ss / groups group)<br />   (setq        groups (vla-get-groups<br />                  (vla-get-activedocument (vlax-get-acad-object))<br />                )<br />         group  (vla-add groups name)<br />   )<br />   (vla-AppendItems<br />     group<br />     (selectionsettoarray ss)<br />   )<br /> )<br />

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.mjtd.com/function/list.asp?id=217">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

mmmm

我从Autodesk 的论坛参照了一下，不用那么复杂，直接用命令就行了
(command "_.Group" "_C" "*" "Group Note: ANY STRING" Selectionset "")

明天你好

学习一下！谢谢