11-14-2017
01:00 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-14-2017
01:00 AM
Hey Georg,
Please find the following code to get some hint, which adds all fit points of a spline 3d to an object collection
Sub splintPts()
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oSk3d As Sketch3D
Set oSk3d = oDoc.ComponentDefinition.Sketches3D(1)
Dim oSkSpline As SketchSpline3D
Set oSkSpline = oSk3d.SketchSplines3D.Item(1)
Dim objCol As ObjectCollection
Set objCol = ThisApplication.TransientObjects.CreateObjectCollection
For i = 1 To oSkSpline.FitPointCount
Call objCol.Add(oSkSpline.FitPoint(i))
Next
Debug.Print objCol.Count
End Sub

Jane Fan
Inventor QA Engineer