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

sheji88

   经典图书

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

weizhong

这样可以了

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

xiuzhu

   经典图书

支持，好东西

haoflying

感谢楼主分享

yiyong55

   经典案例图书

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

hbzbw613

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

现在更新宏如下，使用方法不变。 批量修改K因子.zip (73.67 KB, 下载次数: 280)

2019-9-30 13:59 上传

点击文件名下载附件
下载积分: 金币 -1

xiaonao

   经典案例图书

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

marry329

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

cheeon

谢谢楼主分享

sharpgu

   经典图书

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

dfgdfgert

收藏了，谢谢!!!

yujunliu

虽然折弯扣除软件后台自带表格模板，但还是谢谢lz分享的直观操作。

277461201

我之前也是用钣金规格表的哦，但是扣除参数一旦发生改变，光修改规格表是不会对图纸产生影响的，需要手动将每个图的规格表更新，很麻烦的。就是改的太烦了，才自己写一个宏。

hy88888kevin

运行到这里出错了

yofair

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢楼主的分享

shangshizhe

   经典案例图书

是所有零件都报错，还是运行到某个特定的零件才报错。方便的话把要处理的图纸发给我，我好看看是哪出错了。

allenjones

加入QQ群
参与讨论和学习

或扫描二维码加入

多谢，挺方便的

DHtang

   经典案例图书

非常好用，学习学习

yb12345678

SolidWorks机械工程师网，顶一下。

zzym490

好东西呀，用用看