[求助]：AUTOACD要怎么分解组

chenhang

请问怎么把组分解开
因为我图中的组都没有命名，而且有很多组，如果把要分解的组在GROUP的菜单中找出来再分解很麻烦。有什么命令可以直接分解组。就象炸开块一样？*-*9

ldyu

什么是组啊！！！！

LJCAD

config-selection中去掉object grouping

qiuqi_1604

在GROUP命令后的对话框里可以实现

xbx7920

CTRL+A

league2000

ctrl+a是屏幕全选，和group不一样的

lijiao

最初由 chenhang 发布
[B]请问怎么把组分解开
因为我图中的组都没有命名，而且有很多组，如果把要分解的组在GROUP的菜单中找出来再分解很麻烦。有什么命令可以直接分解组。就象炸开块一样？*-*9 [/B]

这是别人写的，借花献佛

2. 
   
3.   [FONT=courier new]
   
4. '将选定的组合分解开
   
5. '由于不能通过选定的对象来直接找到其组合名称，只能通过循环比较对象ID的方法
   
6. '来解决这个问题，运行时可能会慢点，但对象不多的情况下应该没问题
   
7. Sub DelUnNameGroup()
   
8. 
   
9.     Dim SelGroup As AcadGroup
   
10.     Dim SelObjects As AcadSelectionSet
    
11.     Set SelObjects = GetSelSet
    
12.     Dim ObjInSelSet As AcadObject
    
13.     Dim I As Integer
    
14.     Dim J As Integer
    
15.     Dim K As Integer
    
16.     Dim ObjInGroup As AcadObject
    
17.     On Error Resume Next
    
18.     For I = 0 To SelObjects.Count - 1
    
19.         Set ObjInSelSet = SelObjects.Item(I)
    
20.         For J = 0 To ThisDrawing.Groups.Count - 1
    
21.             For K = 0 To ThisDrawing.Groups.Item(J).Count - 1
    
22.                 Set ObjInGroup = ThisDrawing.Groups.Item(J).Item(K)
    
23.                 If ObjInGroup.ObjectID = ObjInSelSet.ObjectID Then
    
24.                     ThisDrawing.Groups.Item(J).Delete
    
25.                     Exit For
    
26.                 End If
    
27.             Next
    
28.         Next
    
29.     Next
    
30. End Sub
    
31. 
    
32. '对象选择函数
    
33. Function GetSelSet() As AcadSelectionSet
    
34.     Dim ss As AcadSelectionSet
    
35.     Set ss = ThisDrawing.PickfirstSelectionSet
    
36.     If ss.Count = 0 Then
    
37.         Dim ssName As String
    
38.         ssName = "strSSet"
    
39.         On Error Resume Next
    
40.         Set ss = ThisDrawing.SelectionSets(ssName)
    
41.         If Err <> 0 Then
    
42.            Err.Clear
    
43.            Set ss = ThisDrawing.SelectionSets.Add(ssName)
    
44.         End If
    
45.         ss.Clear
    
46.         ss.SelectOnScreen
    
47.     End If
    
48.     Set GetSelSet = ss
    
49. End Function
    
50. 
    
51.   [/FONT]
    

<br />   [FONT=courier new]<br /> '将选定的组合分解开<br /> '由于不能通过选定的对象来直接找到其组合名称，只能通过循环比较对象ID的方法<br /> '来解决这个问题，运行时可能会慢点，但对象不多的情况下应该没问题<br /> Sub DelUnNameGroup()<br /> <br />     Dim SelGroup As AcadGroup<br />     Dim SelObjects As AcadSelectionSet<br />     Set SelObjects = GetSelSet<br />     Dim ObjInSelSet As AcadObject<br />     Dim I As Integer<br />     Dim J As Integer<br />     Dim K As Integer<br />     Dim ObjInGroup As AcadObject<br />     On Error Resume Next<br />     For I = 0 To SelObjects.Count - 1<br />         Set ObjInSelSet = SelObjects.Item(I)<br />         For J = 0 To ThisDrawing.Groups.Count - 1<br />             For K = 0 To ThisDrawing.Groups.Item(J).Count - 1<br />                 Set ObjInGroup = ThisDrawing.Groups.Item(J).Item(K)<br />                 If ObjInGroup.ObjectID = ObjInSelSet.ObjectID Then<br />                     ThisDrawing.Groups.Item(J).Delete<br />                     Exit For<br />                 End If<br />             Next<br />         Next<br />     Next<br /> End Sub<br /> <br /> '对象选择函数<br /> Function GetSelSet() As AcadSelectionSet<br />     Dim ss As AcadSelectionSet<br />     Set ss = ThisDrawing.PickfirstSelectionSet<br />     If ss.Count = 0 Then<br />         Dim ssName As String<br />         ssName = "strSSet"<br />         On Error Resume Next<br />         Set ss = ThisDrawing.SelectionSets(ssName)<br />         If Err <> 0 Then<br />            Err.Clear<br />            Set ss = ThisDrawing.SelectionSets.Add(ssName)<br />         End If<br />         ss.Clear<br />         ss.SelectOnScreen<br />     End If<br />     Set GetSelSet = ss<br /> End Function<br /> <br />   [/FONT]<br />

chenhang

最初由 lijiao 发布
[B][QUOTE]最初由 chenhang 发布
[B]请问怎么把组分解开
因为我图中的组都没有命名，而且有很多组，如果把要分解的组在GROUP的菜单中找出来再分解很麻烦。有什么命令可以直接分解组。就象炸开块一样？*-*9 [/B... [/B]

怎么用啊