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

甄云竹 发表于 2019-6-21 09:13
真的是万分感谢！！
我试了下，在没有使用钣金规格表的时候，折弯系数内只要不是K因子都可以改成K因子。 ...

有空的时候再帮你查一下,最近比较忙

甄云竹 发表于 2019-6-21 09:13
真的是万分感谢！！
我试了下，在没有使用钣金规格表的时候，折弯系数内只要不是K因子都可以改成K因子。 ...

这样可以了

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
    Dim Value As Integer

    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
    Value = swSheetMetal.SetUseGaugeTable(False, "")
    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-22 10:12
这样可以了

Option Explicit

多谢大神的多次指点，K因子宏的使用限制终于解除了

多谢“羊三丫”大神的代码支援，现在无论钣金件的折弯系数是否设为K因子都可以用此宏修改K因子。

现在更新宏如下，使用方法不变。

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

学习中。不是很会用。谢谢

甄云竹 发表于 2019-6-24 10:09
多谢“羊三丫”大神的代码支援，现在无论钣金件的折弯系数是否设为K因子都可以用此宏修改K因子。

现在更 ...

"大神"两个字不敢当,也只是入门而已,有机会可以共同探讨学习.

谢谢楼主分享

非常使用、试下，，，，，