Groups Example |
Using Programming Languages other than VBA
Sub Example_Groups() ' This example finds the current Groups collection and ' adds a new group to that collection. Dim groupColl As AcadGroups Set groupColl = ThisDrawing.Groups ' Create a dimension style named "TEST" in current drawing Dim testGroup As AcadGroup Set testGroup = groupColl.Add("TEST") MsgBox "A new group called " & testGroup.name & " has been added to the Groups collection.", vbInformation, "Groups Example" End Sub
Comments? |