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