什么是组？如何新建和插入组？

介之推

大家好，我想同时绘制两条线，但单独绘制两条线时这两条线是各自分开，我想把这两条放在一起，选择时可以被同时选中。我发现做成“组”或“块”好像都可以。请问“组”和“块”有什么区别？
下面是我找到的生成组的代码，我想通过鼠标在选择一个点后就插入一个组。我想请教如何插入一个已经存在的组？

1. '插入组
   
2.     <CommandMethod("InsertGroup")> _
   
3.     Public Sub InsertGroup()
   
4.         '' Get the current database and start the Transaction Manager
   
5.         Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
   
6.         Dim acCurDb As Database = acDoc.Database
   
7.         Dim acEd As Editor = acDoc.Editor
   
8. 
   
9.         Dim pPtRes As PromptPointResult
   
10.         Dim pPtOpts As PromptPointOptions = New PromptPointOptions("")
    
11. 
    
12.         '' 提示用户选择点
    
13.         pPtOpts.Message = vbLf & "选择插入点: "
    
14.         pPtRes = acDoc.Editor.GetPoint(pPtOpts)
    
15.         Dim InsertPt As Point3d = pPtRes.Value
    
16.         
    
17. 
    
18.         '' Exit if the user presses ESC or cancels the command
    
19.         If pPtRes.Status = PromptStatus.Cancel Then Exit Sub
    
20. 
    
21.         Using trans As Transaction = acCurDb.TransactionManager.StartTransaction
    
22. 
    
23.             '打开当前数据库的组字典对象以加入新建的组对象
    
24.             Dim dict As DBDictionary = trans.GetObject(acCurDb.GroupDictionaryId, OpenMode.ForWrite)
    
25. 
    
26.             '定义新建组的名称
    
27.             Dim groupName As String = "Name"
    
28.             If dict.Contains(groupName) Then
    
29.                 '如果已经包含了这个组，则插入这个组,---------------请问这个如何实现----------
    
30. 
    
31.             Else
    
32.                 ''新建一个组对象
    
33.                 Dim gp As New Group(groupName, True)
    
34.                 '在组字典中将组对象作为一个新条目加入，并指定它的搜索关键字为groupName
    
35.                 dict.SetAt(groupName, gp)
    
36. 
    
37.                 '为组添加实体
    
38.                 Dim Ids As New ObjectIdCollection()
    
39. 
    
40.                 '添加一条竖直直线
    
41.                 Dim LineId As ObjectId = AddLine(InsertPt, 90, 200, 2)
    
42.                 Ids.Add(LineId)
    
43. 
    
44.                 '添加一条水平直线
    
45.                 Dim LineIdTwo As ObjectId = AddLine(InsertPt, 0, 200, 2)
    
46.                 Ids.Add(LineIdTwo)
    
47. 
    
48.                 '在组对象中加入所选择的对象
    
49.                 gp.Append(Ids)
    
50.                 '通知事务处理完成组对象的加入
    
51.                 trans.AddNewlyCreatedDBObject(gp, True)
    
52.             End If
    
53.             
    
54.             trans.Commit()
    
55.         End Using
    
56. 
    
57.     End Sub

'插入组<br />     <CommandMethod("InsertGroup")> _<br />     Public Sub InsertGroup()<br />         '' Get the current database and start the Transaction Manager<br />         Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument<br />         Dim acCurDb As Database = acDoc.Database<br />         Dim acEd As Editor = acDoc.Editor<br /> <br />         Dim pPtRes As PromptPointResult<br />         Dim pPtOpts As PromptPointOptions = New PromptPointOptions("")<br /> <br />         '' 提示用户选择点<br />         pPtOpts.Message = vbLf & "选择插入点: "<br />         pPtRes = acDoc.Editor.GetPoint(pPtOpts)<br />         Dim InsertPt As Point3d = pPtRes.Value<br />         <br /> <br />         '' Exit if the user presses ESC or cancels the command<br />         If pPtRes.Status = PromptStatus.Cancel Then Exit Sub<br /> <br />         Using trans As Transaction = acCurDb.TransactionManager.StartTransaction<br /> <br />             '打开当前数据库的组字典对象以加入新建的组对象<br />             Dim dict As DBDictionary = trans.GetObject(acCurDb.GroupDictionaryId, OpenMode.ForWrite)<br /> <br />             '定义新建组的名称<br />             Dim groupName As String = "Name"<br />             If dict.Contains(groupName) Then<br />                 '如果已经包含了这个组，则插入这个组,---------------请问这个如何实现----------<br /> <br />             Else<br />                 ''新建一个组对象<br />                 Dim gp As New Group(groupName, True)<br />                 '在组字典中将组对象作为一个新条目加入，并指定它的搜索关键字为groupName<br />                 dict.SetAt(groupName, gp)<br /> <br />                 '为组添加实体<br />                 Dim Ids As New ObjectIdCollection()<br /> <br />                 '添加一条竖直直线<br />                 Dim LineId As ObjectId = AddLine(InsertPt, 90, 200, 2)<br />                 Ids.Add(LineId)<br /> <br />                 '添加一条水平直线<br />                 Dim LineIdTwo As ObjectId = AddLine(InsertPt, 0, 200, 2)<br />                 Ids.Add(LineIdTwo)<br /> <br />                 '在组对象中加入所选择的对象<br />                 gp.Append(Ids)<br />                 '通知事务处理完成组对象的加入<br />                 trans.AddNewlyCreatedDBObject(gp, True)<br />             End If<br />             <br />             trans.Commit()<br />         End Using<br /> <br />     End Sub

其中绘制直线的函数如下：

1. Public Shared Function AddLine(ByVal centPt As Point3d, ByVal Ang As Double, _
   
2.                                    ByVal Length As Double, ByVal Color As Integer) As ObjectId
   
3.         Dim acLine As Line = New Line
   
4.         acLine.StartPoint = PolarPoint(centPt, RadToAng(Ang), Length * 0.5)
   
5.         acLine.EndPoint = PolarPoint(centPt, RadToAng(Ang) + Math.PI, Length * 0.5)
   
6.         acLine.ColorIndex = Color
   
7. 
   
8.         'Add the rectangle polyline entity to model space
   
9.         Dim acEntId As ObjectId = AppendEntity(acLine)
   
10.         Return acEntId
    
11.     End Function

Public Shared Function AddLine(ByVal centPt As Point3d, ByVal Ang As Double, _<br />                                    ByVal Length As Double, ByVal Color As Integer) As ObjectId<br />         Dim acLine As Line = New Line<br />         acLine.StartPoint = PolarPoint(centPt, RadToAng(Ang), Length * 0.5)<br />         acLine.EndPoint = PolarPoint(centPt, RadToAng(Ang) + Math.PI, Length * 0.5)<br />         acLine.ColorIndex = Color<br /> <br />         'Add the rectangle polyline entity to model space<br />         Dim acEntId As ObjectId = AppendEntity(acLine)<br />         Return acEntId<br />     End Function

oneeshine

定义成块后，插入的每个都是这个块的参照，修改块后，块参照都会随之改变
组只是一些实体的合集，不能用insert的方法