Shows the Magnifying Glass tool at the specified coordinates.
.NET Syntax
Visual Basic (Declaration) | |
---|
Sub ShowMagnifyingGlass( _
ByVal Ptx As Double, _
ByVal Pty As Double, _
ByVal Ptz As Double, _
ByVal ZoomFactor As Double, _
ByVal HideOnClick As Boolean, _
ByVal FollowMouse As Boolean _
) |
Visual Basic (Usage) | |
---|
Dim instance As IModelView
Dim Ptx As Double
Dim Pty As Double
Dim Ptz As Double
Dim ZoomFactor As Double
Dim HideOnClick As Boolean
Dim FollowMouse As Boolean
instance.ShowMagnifyingGlass(Ptx, Pty, Ptz, ZoomFactor, HideOnClick, FollowMouse)
|
Parameters
- Ptx
- x coordinate
- Pty
- y coordinate
- Ptz
- z coordinate
- ZoomFactor
- Zoom factor
- HideOnClick
- True to hide the Magnifying Glass tool when the mouse is right-clicked, false to not
- FollowMouse
- True to have the Magnifying Glass tool follow the pointer, false to not
Example
Visual Basic for Applications (VBA)
'----------------------------------------
'
' Preconditions: Model document is open.
'
' Postconditions: None
'
'----------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelView As SldWorks.ModelView
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelView = swModel.ActiveView
swModelView.ShowMagnifyingGlass -0.01928933522023, 0.004431675106825, -0.001816629754713, 2, True, True
swModelView.MoveMagnifyingGlass -0.01928933522023, 0.004431675106825, -0.004
swModelView.MoveMagnifyingGlass -0.01928933522023, 0.004431675106825, -0.016
swModelView.HideMagnifyingGlass
End Sub
See Also
Availability
SolidWorks 2009 FCS, Revision Number 17.0