Transform Circle to Region Example (VB.NET)

This example shows how to transform a Circle to a Region.

'--------------------------------------------------------------
' Preconditions:
' 1. Create a VB.NET Windows console project.
' 2. Copy and paste this example into the VB.NET IDE.
' 3. Add a reference to:
'    install_dir\APISDK\tlb\DraftSight.Interop.dsAutomation.dll
' 4. Add references to System and System.Windows.Forms.
' 5. Start DraftSight.
' 6. Open the Immediate window.
' 7. Press F5 to debug the project.
'
' Postconditions: 
' 1. A Circle is constructed in the drawing document.
' 2. The Circle is transformed to a Region.
' 3. Whether the Region is visible and its perimeter value are  
'    printed to the Immediate window.
'----------------------------------------------------------------
Imports DraftSight.Interop.dsAutomation
Imports System.Windows.Forms
Imports System.Runtime.InteropServices
 
 
Module Module1
 
    Sub Main()
 
        Dim dsApp As DraftSight.Interop.dsAutomation.Application
        Dim dsDoc As Document
        Dim dsModel As Model
        Dim dsSketchManager As SketchManager
        Dim dsSelectionManager As SelectionManager
        Dim dsCircle As Circle
        Dim dsRegions As Object() = Nothing
        Dim centerX, centerY, centerZ, radius, perimeter As Double
        Dim status As Boolean
        Dim objType As Integer
 
        ' Connect to DraftSight
        dsApp = GetObject(, "DraftSight.Application")
 
        ' Abort any command currently running in DraftSight to 
        ' avoid nested commands
        dsApp.AbortRunningCommand()
 
        ' Get active document
        dsDoc = dsApp.GetActiveDocument()
 
        ' Make sure there is an open document
        If dsDoc Is Nothing Then
            MessageBox.Show("There are no open documents in DraftSight.")
            Return
        End If
 
        ' Get model space
        dsModel = dsDoc.GetModel()
 
        ' Get Sketch Manager
        dsSketchManager = dsModel.GetSketchManager()
 
        ' Circle parameters
        centerX = 1.0#
        centerY = 2.0#
        centerZ = 0.0#
        radius = 5.0#
 
        ' Construct a Circle
        dsCircle = dsSketchManager.InsertCircle(centerX, centerY, centerZ, radius)
 
        ' Select the Circle
        status = dsCircle.Select(True)
 
        If status Then
 
            ' Get selected Circle
            dsSelectionManager = dsDoc.GetSelectionManager
            Dim dsObj As Object = dsSelectionManager.GetSelectedObject(dsSelectionSetType_e.dsSelectionSetType_Current, 0, objType)
            Dim dsSelObj As DispatchWrapper() = New DispatchWrapper(0) {}
            dsSelObj(0) = New DispatchWrapper(dsObj)
 
            ' Transform Circle to Region
            dsSketchManager.InsertRegion(dsSelObj, dsRegions)
            Dim dsRegion As Region = dsRegions(0)
 
            ' Is Region visible?
            status = dsRegion.Visible
            Debug.Print("Is Region visible? " & status)
 
            ' Get perimeter of Region
            dsRegion.GetPerimeter(perimeter)
            Debug.Print("Perimeter of Region: " & perimeter)
 
        End If
 
    End Sub
 
End Module