Try below VBA code:
Sub SplineDataTest() ' New a part document, add a planar sketch and draw a spline Dim oDoc As PartDocument Set oDoc = ThisApplication.ActiveDocument Dim oBSpline As SketchSpline Set oBSpline = oDoc.ComponentDefinition.Sketches(1).SketchSplines
(1) Dim dPoles() As Double, dKnots() As Double, dWeights() As Double oBSpline.Geometry.GetBSplineData dPoles, dKnots, dWeights End Sub
Access a broad range of knowledge to help get the most out of your products and services.
Start with some of our most frequented solutions or visit the Installation and Licensing Forum to get help installing your software.
Upgrading to a 2015 product? Make sure to check these out 1st!