Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.Civil.ApplicationServices
Imports app = Autodesk.AutoCAD.ApplicationServices.Core.Application
Public Class Commands
<CommandMethod("CUSTOMXXX")>
Public Sub Custom()
Dim civilDoc As CivilDocument = CivilApplication.ActiveDocument
If Not civilDoc.PointGroups.Contains("XXX") Then
civilDoc.PointGroups.Add("XXX")
End If
End Sub
<CommandMethod("SHOWDIALOG")>
Public Sub ShowDialog()
Autodesk.AutoCAD.ApplicationServices.Application.ShowModelessDialog(app.MainWindow.Handle, New NewGroup, False)
End Sub
End Class