AnsweredAssumed Answered

Deafault K factor changing

Question asked by Piotr Tetlak on Aug 19, 2016
Latest reply on Aug 19, 2016 by Piotr Tetlak



I know that similar topic already have been discussed on that forum. Unfortunately I didn't find clear answer how to change default K-factor in SheetMetal part.


Could somebody explain me why example below doesn't work properly:


Option Explicit


    Dim swApp                             As SldWorks.SldWorks

    Dim swModel                           As SldWorks.ModelDoc2

     Dim swFeat                            As SldWorks.Feature

    Dim swBaseFlange                 As SldWorks.BaseFlangeFeatureData

    Dim swSheetMetal                 As SldWorks.SheetMetalFeatureData


Sub main()

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc


    Set swFeat = swModel.FirstFeature


      Do While Not swFeat Is Nothing

        If swFeat.GetTypeName = "SheetMetal" Then


                  Set swSheetMetal = swFeat.GetDefinition

                  swSheetMetal.AccessSelections swModel, Nothing

                  swSheetMetal.BendAllowanceType = 2

                  swSheetMetal.Kfactor = 0.2


                  swFeat.ModifyDefinition swSheetMetal, swModel, Nothing

                   End If



    Set swFeat = swFeat.GetNextFeature



    swModel.ForceRebuild3 False


End Sub


The K-factor value is changed in model but I have to click "Override default value" in sheet menu. That is very unacceptable for me.

I would really appreciate if smb could explain me how to change Default K-factor value.




After some time I've found out that I need to edit kfactor of SheetMetalTemplate, not particular SheetMetal.

Using loop:


Do While Not swFeat Is Nothing

        If swFeat.GetTypeName = "SheetMetal" Then



I am not able to get SheetMetalTemplate object.

Does anyone have any idea how to get it?


Wiadomość była edytowana przez: Piotr Tetlak