vba中的组

   //intellicad COM 
    [CommandMethod("Test")] 
    public static void Test1() 
    { 
      try 
      { 
        IntelliCAD.Application application = 
          (IntelliCAD.Application)Marshal.GetActiveObject("Icad.Application"); 
        IntelliCAD.Document document = application.ActiveDocument; 
        IntelliCAD.ModelSpace modelspace = document.ModelSpace; 
        IntelliCAD.Library library = application.Library; 
        IntelliCAD.Point point1 = library.CreatePoint(0,0,0); 
        IntelliCAD.Point point2 = library.CreatePoint(100,100,0); 
        IntelliCAD.Line line = modelspace.AddLine(point1, point2); 
        line.Update(); 
        Marshal.ReleaseComObject(application); 
      } 
      catch (SystemException e) 
      { 
        DWM.Cad.RuntimeServices.Utilities.WriteMessage(e.Message); 
      } 
    } 
    //through the lisp engine 
    [CommandMethod("TestLine1")] 
    public static void Testline1() 
    { 
      using (Line myLine = new Line()) 
      { 
        myLine.Layer = "0"; 
        myLine.StartPoint = new Point3D(0, 0, 0); 
        myLine.EndPoint = new Point3D(100, 100, 0); 
        myLine.Update(); 
      } 
    } 

'...snip
    'Group everything together for the move
    Set objGroup = ThisDrawing.Groups.Add("textbox")
    objGroup.AppendItems objEnts
    ThisDrawing.SendCommand ("-group rename textbox textbox" & vbCr)
    ThisDrawing.SendCommand "move g textbox " & Str(dBoxVert(0)) & "," & LTrim(Str(dBoxVert(1)) & vbCr)

Public Sub GroupFromEnt(group As AcadGroup, strprompt As String)
    ' Select an entity
   Dim returnObj As Object
   Dim basePnt As Variant
   ThisDrawing.Utility.GetEntity returnObj, basePnt, strprompt
   
   ' Get the groups
   Dim acadGroups As acadGroups
   Dim groupEntity As AcadEntity
   Dim isInGroup As Boolean
   Dim length As Integer
   Dim i As Integer
   
   Set acadGroups = ThisDrawing.groups
   isInGroup = False
   
   ' Iterate all available groups
   For Each group In acadGroups
      length = group.Count
          ' Get every entity from a group
       For i = 0 To length - 1
          Set groupEntity = group.Item(i)
          If groupEntity.Handle = returnObj.Handle Then
             ThisDrawing.Utility.Prompt "Entity is from Group " + group.Name
             isInGroup = True
             'let's go, we got it:
             Exit Sub
          End If
       Next i
    Next
    If isInGroup = False Then
       ThisDrawing.Utility.Prompt "Entity is in not in a group."
    End If
 End Sub