Moves Magnifying Glass tool to the specified coordinates.
.NET Syntax
Visual Basic (Declaration) | |
---|
Sub MoveMagnifyingGlass( _
ByVal Ptx As System.Double, _
ByVal Pty As System.Double, _
ByVal Ptz As System.Double _
) |
Visual Basic (Usage) | |
---|
Dim instance As IModelView
Dim Ptx As System.Double
Dim Pty As System.Double
Dim Ptz As System.Double
instance.MoveMagnifyingGlass(Ptx, Pty, Ptz) |
C# | |
---|
void MoveMagnifyingGlass(
System.double Ptx,
System.double Pty,
System.double Ptz
) |
C++/CLI | |
---|
void MoveMagnifyingGlass(
& System.double Ptx,
& System.double Pty,
& System.double Ptz
) |
Parameters
- Ptx
- x coordinate
- Pty
- y coordinate
- Ptz
- z coordinate
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