This example shows how to insert a point in a drawing.
'-------------------------------------------------------------- ' 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. Start DraftSight and open a document. ' 5. Start debugging the project. ' ' Postconditions: A message box pops up when a point is ' inserted in the drawing document. A SimpleNote is also ' added to the drawing that identifies where the point was inserted. '---------------------------------------------------------------- Imports DraftSight.Interop.dsAutomation
Module Module1
Sub Main()
Dim dsApp As Application
Dim dsDoc As Document
Dim dsModel As Model
Dim dsSketchManager As SketchManager
Dim dsPoint As Point
Dim x, y, z As Double
Dim dsSimpleNote As SimpleNote
Dim noteValue As String
Dim angle, height As Double
'Connect to DraftSight
dsApp = GetObject(, "DraftSight.Application")
dsApp.AbortRunningCommand() ' abort any command currently running in DraftSight to avoid nested commands
'Get active document
dsDoc = dsApp.GetActiveDocument()
If Not dsDoc Is Nothing Then
'Get model space
dsModel = dsDoc.GetModel()
'Get Sketch Manager
dsSketchManager = dsModel.GetSketchManager()
'Point parameters
x = 5.0#
y = 5.0#
z = 0.0#
'Add a point
dsPoint = dsSketchManager.InsertPoint(x, y, z)
'SimpleNote parameters (angle value should be passed in radians)
noteValue = "Sample text"
angle = 3.14159265358979 / 4 '45 degrees in radians
height = 1.0#
'Add a SimpleNote
dsSimpleNote = dsSketchManager.InsertSimpleNote(x, y, z, height, angle, noteValue)
If Not dsPoint Is Nothing Then
MsgBox("Point was added to drawing where SimpleNote was added.")
End If
Else
MsgBox("There are no open documents in DraftSight.")
End If
End Sub
End Module