AnsweredAssumed Answered

Exit Sketch from a Macro Feature - how to ?

Question asked by Laurent Franco Sánchez on Jul 9, 2018
Latest reply on Jul 14, 2018 by Laurent Franco Sánchez

Dear all,

I've a macro feature who changes the size of a sketch text. It's works fine. But at the end, I want to exit the sketch and neither InsertSketch or EditRebuild3 works.


The part of the Rebuild Function :

Function swmRebuild(vrApp As Variant, vrPart As Variant, vrFeature As Variant) As Variant

    Dim App     As Object 'SldWorks.SldWorks
    Dim Doc     As Object 'SldWorks.ModelDoc2
    Dim SelMgr  As SelectionMgr
    Dim text    As SketchText
    Dim format  As TextFormat

    'Recovering SolidWorks objects
    Set App = Application.SldWorks 'vrApp
    Set Doc = App.ActiveDoc 'vrPart
    'Set swMacroFeature = vrFeature

    'Resizing the text
    Set SelMgr = Doc.SelectionManager
    Doc.Extension.SelectByID2 "Sketch7", "SKETCH", 0, 0, 0, False, 0, Nothing, 0
    Doc.Extension.SelectByID2 "SketchText1", "SKETCHTEXT", 0, 0, 0, False, 0, Nothing, 0
    Set text = SelMgr.GetSelectedObject6(1, -1)
    Set format = text.GetTextFormat
    format.CharHeight = Doc.Parameter("D1@Fillet3").SystemValue / 1.5
    text.SetTextFormat False, format
    Doc.ClearSelection2 True
    Doc.SketchManager.InsertSketch True 'don't works
    Doc.EditRebuild3 'don't works

    swmRebuild = True

End Function


If you have any clue, I take it.