宏-批量修改钣金K因子（最新版放在15楼）

学习批量处理的好方法，学习

谢谢楼主，

好啊，，不错、、、、

感谢楼主分享！

新增了修改钣金参数界面
可以自己设置板厚、扣除和折弯半径的数值，当折弯半径与板厚和扣除不匹配时会给出提示。
最多可同时处理8种厚度的钣金件。
设置的钣金参数在点击计算按钮后会自动保持至与宏同文件夹并同名的txt文档中，下次打开宏时依然会调用上次保存的参数。
所以下载好的宏文件和txt文件要放在同一个文件夹内。
注意：钣金的展开尺寸跟折弯半径和K因子两个参数都有关，所以这个宏在修改K因子的同时还会修改折弯半径（特指钣金特征中默认折弯半径，在其他法兰特征中自定义的折弯半径不会被修改）。
这一点之前忘记说了，特别补充一下。

新增了文件夹路径选择按钮和处理子文件功能

最后使用限制还是此宏只能用于折弯系数设置为K因子的钣金件，实在是没有找到解决的办法。
索性钣金默认的折弯系数就是K因子，影响应该不大。

游客，如果您要查看本帖隐藏内容请回复

补充内容 (2019-6-24 10:18):
最新的宏更新在26楼

补充内容 (2019-9-7 14:41):
最新版本发布在77楼

为了感谢楼主的分享精神,给出更改折弯系数代码如下,亲测有效.希望可以帮到楼主.
Option Explicit
Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swSelMgr As SldWorks.SelectionMgr
    Dim swFeat As SldWorks.Feature
    Dim swSheetMetal As SldWorks.SheetMetalFeatureData
    Dim bRet As Boolean
    Dim boolstatus As Boolean
    Dim swCustBend As SldWorks.CustomBendAllowance
    Dim sswComponent As SldWorks.Component

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swSelMgr = swModel.SelectionManager
    boolstatus = swModel.Extension.SelectByID2("钣金", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
    Set swFeat = swSelMgr.GetSelectedObject5(1)
    Set swSheetMetal = swFeat.GetDefinition
    Set swCustBend = swSheetMetal.GetCustomBendAllowance
    If Not swCustBend.Type = swBendAllowanceKFactor Then
        swCustBend.Type = swBendAllowanceKFactor
        Call swSheetMetal.SetCustomBendAllowance(swCustBend)
    End If
    boolstatus = swFeat.ModifyDefinition(swSheetMetal, swModel, sswComponent)

End Sub

谢谢分享!!!

感谢楼主的分享

羊三丫 发表于 2019-6-19 08:11
为了感谢楼主的分享精神,给出更改折弯系数代码如下,亲测有效.希望可以帮到楼主.
Option Explicit
Sub mai ...

真的是万分感谢！！
我试了下，在没有使用钣金规格表的时候，折弯系数内只要不是K因子都可以改成K因子。

但是在使用钣金规格表的时候，这段代码就不起作用了。
要是能解决这个问题就完美了。

学习学习学习学习学习学习学习学习学习学习学习