Hide Table of Contents

Create Triad Manipulator Example (VB.NET)

This example shows how to create a triad manipulator.

'----------------------------------------------------------------------------
' Preconditions: 
' 1. Right-click the project name in the Project Explorer and click
'    Add Reference
' 2. On the Browse tab, navigate to install_dir\api\redist\CLR2, click
'    SolidWorks.Interop.swpublished.dll, and click OK.
' 3. Right-click the project name in the Project Explorer and click
'    Add > Class.
' 4. Type swDragManipHdlr.vb in Name and click Add.
' 5. Copy Module to SolidWorksMacro.vb.
' 6. Copy Class module to swDragManipHdlr.vb.
' 7. Click Tools > Options and ensure that Stop VSTA debugger on macro exit
'    is not selected.
' 8. Open a model document and select a face.
' 9. Open an Immediate window.
'
' Postconditions: 
' 1. Creates a triad manipulator whose origin is the point
'    selected on the face.
' 2. Drag a triad manipulator handle and inspect the Immediate window.
'----------------------------------------------------------------------------
 

'Module
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
 
Partial Class SolidWorksMacro
 
    Dim swDragHdlr As swDragManipHdlr
 
    Sub main()
 
        Dim swManip As Manipulator
        Dim swTriad As TriadManipulator
        Dim swFace As Face2
        Dim swMathUtil As MathUtility
        Dim swModel As ModelDoc2
        Dim swModViewMgr As ModelViewManager
        Dim swSelMgr As SelectionMgr
        Dim vPickPt As Object
        Dim swPickPt As MathPoint
 
        swDragHdlr = New swDragManipHdlr
 
        swMathUtil = swApp.GetMathUtility
        swModel = swApp.ActiveDoc
        swSelMgr = swModel.SelectionManager
        swFace = swSelMgr.GetSelectedObject6(1, -1)
 
        vPickPt = swSelMgr.GetSelectionPoint2(1, -1)
        swPickPt = swMathUtil.CreatePoint((vPickPt))
        swModViewMgr = swModel.ModelViewManager
 
        swManip = swModViewMgr.CreateManipulator(swManipulatorType_e.swTriadManipulator, swDragHdlr)
        swTriad = swManip.GetSpecificManipulator
        swTriad.Origin = swPickPt
        swManip.Show(swModel)
 
    End Sub
 
    Public swApp As SldWorks
 
End Class
 

Back to top

 

'Class module

Imports SolidWorks.Interop.swpublished
Imports SolidWorks.Interop.swconst
Imports System.Diagnostics
 
<System.Runtime.InteropServices.ComVisibleAttribute(True)> _
Public Class swDragManipHdlr
    Implements SwManipulatorHandler2
 
 
    Private Function SwManipulatorHandler2_OnDelete(ByVal pManipulator As ObjectAs Boolean Implements SwManipulatorHandler2.OnDelete
        Debug.Print("Manipulator deleted")
    End Function
 
    Private Sub SwManipulatorHandler2_OnDirectionFlipped(ByVal pManipulator As ObjectImplements SwManipulatorHandler2.OnDirectionFlipped
        Debug.Print("Direction flipped")
    End Sub
 
    Private Function SwManipulatorHandler2_OnDoubleValueChanged(ByVal pManipulator As ObjectByVal handleIndex As IntegerByRef Value As DoubleAs Boolean Implements SwManipulatorHandler2.OnDoubleValueChanged
        Debug.Print("Double value changed")
        Debug.Print("  Value = " & Value)
    End Function
 
    Private Sub SwManipulatorHandler2_OnEndNoDrag(ByVal pManipulator As ObjectByVal handleIndex As IntegerImplements SwManipulatorHandler2.OnEndNoDrag
        Debug.Print("Mouse button released")
    End Sub
 
    Private Sub SwManipulatorHandler2_OnEndDrag(ByVal pManipulator As ObjectByVal handleIndex As IntegerImplements SwManipulatorHandler2.OnEndDrag
        Debug.Print("Mouse button released after dragging a manipulator handle")
    End Sub
 
    Private Sub SwManipulatorHandler2_OnHandleRmbSelected(ByVal pManipulator As ObjectByVal handleIndex As IntegerImplements SwManipulatorHandler2.OnHandleRmbSelected
        Debug.Print("Right-mouse button clicked")
        Debug.Print("  HandleIndex = " + handleIndex)
    End Sub
 
    Private Sub SwManipulatorHandler2_OnHandleSelected(ByVal pManipulator As ObjectByVal handleIndex As IntegerImplements SwManipulatorHandler2.OnHandleSelected
        Debug.Print("Manipulator handle selected")
        Debug.Print("  HandleIndex = " + handleIndex)
    End Sub
 
    Private Sub SwManipulatorHandler2_OnItemSetFocus(ByVal pManipulator As ObjectByVal Id As IntegerImplements SwManipulatorHandler2.OnItemSetFocus
        Debug.Print("Focus set on item")
        Debug.Print("  Item ID = " & Id)
    End Sub
 
    Private Function SwManipulatorHandler2_OnHandleLmbSelected(ByVal pManipulator As ObjectAs Boolean Implements SwManipulatorHandler2.OnHandleLmbSelected
        Debug.Print("Left-mouse button clicked")
    End Function
 
    Private Function SwManipulatorHandler2_OnStringValueChanged(ByVal pManipulator As ObjectByVal handleIndex As IntegerByRef Value As StringAs Boolean Implements SwManipulatorHandler2.OnStringValueChanged
        Debug.Print("String value changed")
        Debug.Print("  String value  = " & Value)
    End Function
 
    Private Sub SwManipulatorHandler2_OnUpdateDrag(ByVal pManipulator As ObjectByVal handleIndex As IntegerByVal newPosMathPt As ObjectImplements SwManipulatorHandler2.OnUpdateDrag
        Debug.Print("Manipulator handle moved while left- or right-mouse button depressed")
        Debug.Print("  HandleIndex = " & handleIndex)
    End Sub
 
End Class

Back to top



Provide feedback on this topic

SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

* Required

 
*Email:  
Subject:   Feedback on Help Topics
Page:   Create Triad Manipulator Example (VB.NET)
*Comment:  
*   I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes

Print Topic

Select the scope of content to print:



x

We have detected you are using a browser version older than Internet Explorer 7. For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

 Never show this message again
x

Web Help Content Version: API Help (English only) 2015 SP05

To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.

To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.