Shows the Magnifying Glass tool at the specified coordinates.
.NET Syntax
Visual Basic (Declaration) | |
---|
Sub ShowMagnifyingGlass( _
ByVal Ptx As System.Double, _
ByVal Pty As System.Double, _
ByVal Ptz As System.Double, _
ByVal ZoomFactor As System.Double, _
ByVal HideOnClick As System.Boolean, _
ByVal FollowMouse As System.Boolean _
) |
Visual Basic (Usage) | |
---|
Dim instance As IModelView
Dim Ptx As System.Double
Dim Pty As System.Double
Dim Ptz As System.Double
Dim ZoomFactor As System.Double
Dim HideOnClick As System.Boolean
Dim FollowMouse As System.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