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