Get and Set Spline Properties Example (VBA)
This example shows how to get and set various spline properties.
'---------------------------------------
'
' Preconditions: A sketch of a spline is active.
'
' Postconditions: Various spline properties are
' set
to either the opposite state
' or
a new value.
'
'---------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swSpline As SldWorks.SketchSpline
Dim boolstatus As Boolean
Sub main()
Set
swApp = Application.SldWorks
Set
swModel = swApp.ActiveDoc
Set
swSelMgr = swModel.SelectionManager
Set
swModelDocExt = swModel.Extension
boolstatus
= swModelDocExt.SelectByID2("Spline1",
"SKETCHSEGMENT", 0.01671371527778, 0.02415763888889, 0, False,
0, Nothing, 0)
Set
swSpline = swSelMgr.GetSelectedObject6(1,
0)
If
(swSpline.ShowSplineHandles) Then
swSpline.ShowSplineHandles = False
Else
swSpline.ShowSplineHandles = True
End
If
swModel.WindowRedraw 'Required
after using swSpine.ShowSplineHandles
If
(swSpline.DisplayControlPolygon)
Then
swSpline.DisplayControlPolygon = False
Else
swSpline.DisplayControlPolygon = True
End
If
If
(swSpline.ShowInflectionPoints)
Then
swSpline.ShowInflectionPoints = False
Else
swSpline.ShowInflectionPoints = True
End
If
If
(swSpline.ShowMinimumRadius) Then
swSpline.ShowMinimumRadius = False
Else
swSpline.ShowMinimumRadius = True
End
If
If
(swSpline.ShowCurvatureCombs)
Then
swSpline.ShowCurvatureCombs = False
Else
swSpline.ShowCurvatureCombs = True
End
If
Debug.Print
" Initial scale of curvature: " & swSpline.CurvatureScale
'
Increase the curvature scale by 0.25
swSpline.CurvatureScale
= swSpline.CurvatureScale + 0.25
Debug.Print
" Modified scale of curvature: " & swSpline.CurvatureScale
If
(swSpline.Proportional) Then
swSpline.Proportional = False
Else
swSpline.Proportional = True
End
If
swModel.WindowRedraw
End Sub