AnsweredAssumed Answered

Macro to divide a spline in points

Question asked by Alex Reds on Dec 21, 2013
Latest reply on Mar 2, 2018 by Murali B,B.

Hi guys, I have a macro that divide a spline in a number of points (100 in my macro). But there is a problem: my macro creates these points OUTSIDE the sketch. I need instead that my macro creates points INSIDE MY SKETCH.


The code of my macro is:




Option Explicit



Dim swApp As SldWorks.SldWorks


Dim swModel As SldWorks.ModelDoc2


Dim swSelMgr As SldWorks.SelectionMgr


Dim vFeatArr As Variant


Dim swFeatMgr As SldWorks.FeatureManager


Dim swModelDocExt As SldWorks.ModelDocExtension


Dim swSpline As SldWorks.SketchSpline


Dim swFeat As SldWorks.Feature


Dim myRefPlane As SldWorks.RefPlane


Dim boolstatus As Boolean


Dim i As Long



Sub main()



    Set swApp = Application.SldWorks


    Set swModel = swApp.ActiveDoc


    Set swSelMgr = swModel.SelectionManager


    Set swFeatMgr = swModel.FeatureManager


    Set swModelDocExt = swModel.Extension



    If Not swSelMgr.GetSelectedObjectType3(1, -1) = swSelSKETCHSEGS Then

        MsgBox "select spline"

        Exit Sub

    End If



    Dim Spline As Object

    Set Spline = swSelMgr.GetSelectedObject6(1, -1)


    vFeatArr = swFeatMgr.InsertReferencePoint(swRefPointAlongCurve, swRefPointAlongCurveEvenlyDistributed, 0#, 100)


End Sub




May you help me?

I post the orginal macro too.



Thanks a lot