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

wild-boy

我在做钣金设计的时候发现不同批次采购的板材厚度略有差别导致钣金的折弯扣除经常会发生变动。而每次折弯扣除尺寸改变，都需要手动修改钣金图的折弯扣除或者K因子，工作量非常大而且容易填错。在自学了一点宏知识后试着编了一个可以批量修改K因子的宏，自己用着感觉还行，现在分享出来看有没有大神把这个宏改的更好用些。

折弯扣除是是在折弯机上折90°板量出来的数据，不同机器不同板厚不同刀模折弯后扣除的尺寸不尽相同，所以做成可编辑的。
在主界面输入不同板厚的折弯扣除，由宏自动算出所对应的K因子，然后自动修改指定文件夹内的钣金零件的K因子。
使用限制：
1.只能修改1、1.2、1.5、2、3和5毫米厚的钣金K因子，如果需要增加其他板厚需要自己修改宏；
2.只能修改折弯系数设置为K因子模式的钣金零件（因为我不知道如何用宏将折弯系数由其他模式改为K因子模式，希望有大神指教）。

批量修改K因子.zip (24.91 KB, 下载次数: 143)

2019-6-13 14:54 上传

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

最新的宏更新在26楼

毛哥898

这样的貌似用不了啊

bagjiao

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

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

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

批量修改K因子.zip (61.08 KB, 下载次数: 369)

2019-9-30 13:59 上传

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

z2005sy

感谢分享好工具，学习。

xiongzhi2714

   经典案例图书

虽然不做钣金，也要感谢楼主分享！

ES2004

谢谢分享

libralin

   经典案例图书

多谢楼主分享

zhongcheng

支持!!!!

glorygl

多谢分享....

xiaoolin

幸苦了

wanggangfzc

感谢楼主分享

daizhiwen

感谢楼主,根据您的宏,我竟然得出了K因子的计算公式.谢谢

linzhu

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

leafworm

谢谢楼主，

fefeitao

加入QQ群
参与讨论和学习

或扫描二维码加入

好啊，，不错、、、、

lhj19811223

   经典案例图书

感谢楼主分享！

linshizhanghao

加入QQ群
参与讨论和学习

或扫描二维码加入

为了感谢楼主的分享精神,给出更改折弯系数代码如下,亲测有效.希望可以帮到楼主.
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

haidan2006

   经典案例图书

谢谢分享!!!

joellefree

感谢楼主的分享

feiying2006

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

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

kevin4994

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