Select Silhouette Edge Attached to Note Example (VB.NET)
This example shows how to select a silhouette edge attached to a note in a
drawing.
'-------------------------------------------
' Preconditions:
' 1. Open the Immediate window.
' 2. Run the macro.
'
' Postconditions:
' 1. Opens the specified drawing document.
' 2. Activates Drawing View1.
' 3. Gets the note in Drawing View1
' and the silhouette edge to which
' the note is attached.
' 4. Prints a message to Immediate window
' indicating that the silhouette edge
' to which the note is attached is selected.
' 5. Examine the Immediate window to verify.
' 6. Close the Drawing View1 PropertyManager page
' and close the drawing document.
'---------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
Imports System.Diagnostics
Partial Class SolidWorksMacro
Dim swModel As ModelDoc2
Dim swDrawing As DrawingDoc
Dim swView As View
Dim swSilhouetteEdge As SilhouetteEdge
Dim swNote As Note
Dim swAnnotation As Annotation
Dim status As Boolean
Dim errors As Integer
Dim warnings As Integer
Dim fileName As String
Dim params As Object
Dim obj As Object
Sub Main()
fileName = "C:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorial\api\cylinder20.SLDDRW"
swModel = swApp.OpenDoc6(fileName, swDocumentTypes_e.swDocDRAWING, swOpenDocOptions_e.swOpenDocOptions_Silent, "", errors, warnings)
swDrawing = swModel
status = swDrawing.ActivateView("Drawing View1")
swView = swDrawing.ActiveDrawingView
' Get note and any attached entities
swNote = swView.GetFirstNote
swAnnotation = swNote.GetAnnotation
params = swAnnotation.GetAttachedEntities3
' Select the silhouette edge to which the note is attached
For Each obj In params
swSilhouetteEdge = obj
status = swSilhouetteEdge.Select2(False, Nothing)
If status Then
Debug.Print("Silhouette edge selected.")
End If
Next
End Sub
''' <summary>
''' The SldWorks swApp variable is pre-assigned for you.
''' </summary>
Public swApp As SldWorks
End Class