Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
JaneFan
in reply to: GeorgK

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