iCAx开思网

标题: 宏-批量修改钣金K因子（最新版放在15楼） [打印本页]

作者: 甄云竹 时间: 2019-6-13 14:54
标题: 宏-批量修改钣金K因子（最新版放在15楼）
本帖最后由甄云竹于 2019-6-17 09:39 编辑

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

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

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

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

作者: qiminger 时间: 2019-6-13 15:44
感谢分享好工具，学习。

作者: qxzch 时间: 2019-6-13 22:00
虽然不做钣金，也要感谢楼主分享！

作者: xiabulai 时间: 2019-6-14 05:01
谢谢分享

作者: 羊三丫 时间: 2019-6-14 12:09
多谢楼主分享

作者: hh4984 时间: 2019-6-14 13:49
支持!!!!

作者: whdong76 时间: 2019-6-14 13:52
多谢分享....

作者: gdzsh 时间: 2019-6-14 14:36
幸苦了

作者: wyj123 时间: 2019-6-14 14:46
感谢楼主分享

作者: 羊三丫 时间: 2019-6-14 15:06
本帖最后由羊三丫于 2019-6-14 15:41 编辑

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

作者: Arvin_RM 时间: 2019-6-14 23:55
学习批量处理的好方法，学习

作者: a8012024 时间: 2019-6-16 08:00
谢谢楼主，

作者: zhang2185 时间: 2019-6-16 19:13
好啊，，不错、、、、

作者: 风中de沙 时间: 2019-6-16 22:34
感谢楼主分享！

作者: 甄云竹 时间: 2019-6-17 09:33
本帖最后由甄云竹于 2019-6-18 13:21 编辑

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

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

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

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

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

作者: 羊三丫 时间: 2019-6-19 08:11
本帖最后由羊三丫于 2019-6-19 08:45 编辑

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

作者: 游离ya 时间: 2019-6-20 11:13
谢谢分享!!!

作者: scattie 时间: 2019-6-20 14:12
感谢楼主的分享

作者: 甄云竹 时间: 2019-6-21 09:13

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

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

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

作者: q455525463 时间: 2019-6-21 18:49
学习学习学习学习学习学习学习学习学习学习学习

作者: 羊三丫 时间: 2019-6-22 08:12

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

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

作者: 羊三丫 时间: 2019-6-22 10:12

甄云竹发表于 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

作者: wldm 时间: 2019-6-22 10:33
支持，好东西

作者: jingsong 时间: 2019-6-22 11:34
感谢楼主分享

作者: 甄云竹 时间: 2019-6-24 10:02

羊三丫发表于 2019-6-22 10:12
这样可以了

Option Explicit

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

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

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

作者: gszolo 时间: 2019-6-24 15:09
学习中。不是很会用。谢谢

作者: 羊三丫 时间: 2019-6-25 07:32

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

现在更 ...

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

作者: Trouble12138 时间: 2019-6-26 17:24
谢谢楼主分享

作者: wmx0910 时间: 2019-6-29 16:39
非常使用、试下，，，，，

作者: scattie 时间: 2019-7-1 11:19
收藏了，谢谢!!!

作者: 白吧白啊 时间: 2019-7-1 11:28
虽然折弯扣除软件后台自带表格模板，但还是谢谢lz分享的直观操作。

作者: 甄云竹 时间: 2019-7-1 18:42

白吧白啊发表于 2019-7-1 11:28
虽然折弯扣除软件后台自带表格模板，但还是谢谢lz分享的直观操作。

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

作者: tuqiang 时间: 2019-7-2 16:03
这个功能应该很实用的。

作者: scattie 时间: 2019-7-3 13:45
感谢楼主的分享

作者: 岁寒叁友 时间: 2019-7-3 15:42
新版放

作者: scattie 时间: 2019-7-4 16:02
多谢，挺方便的

作者: 缪xx 时间: 2019-7-6 15:24
楼主出一个批量修改折弯扣除的试试看，K因子不准。

作者: sheerart 时间: 2019-7-6 16:13

Solidworks插件帮您轻松

作者: qq6722180 时间: 2019-7-6 21:26
这个应该是我比较需要的东西

作者: Vic5945 时间: 2019-7-8 10:15
感谢楼主分享，希望可以提高效率

作者: 甄云竹 时间: 2019-7-9 07:30

缪xx 发表于 2019-7-6 15:24
楼主出一个批量修改折弯扣除的试试看，K因子不准。

这个宏是用90°的折弯扣除尺寸算出对应的K因子，所以在90°折弯的情况的前提下，折弯扣除和K因子所得到的展开尺寸是完全一致。
在非90°折弯的情况下，K因子本身不发生变化，但是展开尺寸会根据折弯角度有所变化，这点跟实际情况是一致的。而如果直接用折弯扣除，无论折弯角度如何变化，展开尺寸都不变，这就不大合理了，所以在非90°折弯的时候，用折弯扣除反而不准。

总的来说，在90°的时候用折弯扣除和K因子没区别，在非90°的时候折弯扣除不如K因子。这就是为什么我选择用K因子的原因。

作者: 缪xx 时间: 2019-7-9 08:17

甄云竹发表于 2019-7-9 07:30
这个宏是用90°的折弯扣除尺寸算出对应的K因子，所以在90°折弯的情况的前提下，折弯扣除和K因子所得到的 ...

钣金方面不规律角度尽量是避免用的，也是避免设计的，折弯操作人员很多时候不太愿意用K因子，带有小数点，计算麻烦。

作者: 甄云竹 时间: 2019-7-9 09:12

缪xx 发表于 2019-7-9 08:17
钣金方面不规律角度尽量是避免用的，也是避免设计的，折弯操作人员很多时候不太愿意用K因子，带有小数点 ...

可能是咱们厂的操作流程不同。在我这，K因子只在设计阶段使用，用我这个宏批量导入，基本上是无脑操作。而操作工只需将激光下好的料折好就是了，K因子什么的根本不需要知道。

作者: wuxiaowen741 时间: 2019-7-9 15:01
很好很实用

作者: litao036 时间: 2019-7-10 13:55
看看怎么样

作者: hanopentheyu 时间: 2019-7-11 08:31
会用宏的都是大神，膜拜学习

作者: Trouble12138 时间: 2019-7-11 09:19
谢谢楼主分享

作者: hh4984 时间: 2019-7-11 09:32
谢谢分享，试试看

作者: zctao1966 时间: 2019-7-17 22:49
早就想找一个这样的宏，能够自动填写钣金的折弯扣除或K因子，谢谢分享

作者: zctao1966 时间: 2019-7-17 22:54

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

现在更 ...

[attach]1267951[/attach]
运行到这里出错了

作者: 甄云竹 时间: 2019-7-19 11:28
本帖最后由甄云竹于 2019-7-19 11:30 编辑

zctao1966 发表于 2019-7-17 22:54
运行到这里出错了

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

作者: Trouble12138 时间: 2019-7-21 16:01
谢谢分享批量修改钣金k因子

作者: zstdv 时间: 2019-7-22 06:52
日常是随便弄一个完事，以后可以正规一点了，感谢楼主

作者: newfaith2011 时间: 2019-7-22 21:39
感谢楼主，学习学习啊

作者: tangyouxu 时间: 2019-7-27 15:56
、、、、、、、、、、、、、、、

作者: ccm千里之行 时间: 2019-7-29 21:56
谢谢楼主分享

作者: lyk_0302 时间: 2019-8-7 13:21
感谢分享好工具，学习

作者: tangyouxu 时间: 2019-8-17 11:27
请高手看一下能不能在判定是钣金件哪里加一下搜寻钣金的语句，不然我这种画的钣金没法用得，谢谢

作者: o1ojacko1o 时间: 2019-8-18 20:09
支持支持谢谢分享

作者: tangyouxu 时间: 2019-8-19 08:53

lyk_0302 发表于 2019-8-7 13:21
感谢分享好工具，学习

和几个同事改了一下但是还有不理箱

作者: zhang961670949 时间: 2019-8-19 16:47
谢谢谢谢谢谢谢谢

作者: 185351567 时间: 2019-8-21 19:16
感谢楼主分享

作者: scattie 时间: 2019-8-22 10:26
厉害，来学习学习

作者: 许梦涵 时间: 2019-8-23 21:05

谢谢楼主

作者: 许梦涵 时间: 2019-8-23 21:15
感谢楼主分享

作者: 许梦涵 时间: 2019-8-23 21:16
感谢楼主分享

作者: 许梦涵 时间: 2019-8-23 21:17
感谢楼主分享

作者: 许梦涵 时间: 2019-8-23 21:19
感谢楼主分享

作者: wxf5888 时间: 2019-8-24 11:00
学习一下

作者: 口风琴 时间: 2019-8-29 16:30
谢谢分享，很实用的工具

作者: ljz712 时间: 2019-9-4 06:41
谢谢楼主分享！

作者: scattie 时间: 2019-9-4 08:37
谢谢分享！

作者: wmx0910 时间: 2019-9-5 09:29
批量加入折弯扣除的帮修改个、公司都用折弯扣除、非90°的单独设定K因子

作者: scattie 时间: 2019-9-5 11:47
学习一下挺不错的

作者: 甄云竹 时间: 2019-9-7 07:20
本帖最后由甄云竹于 2019-9-7 14:36 编辑

wmx0910 发表于 2019-9-5 09:29
批量加入折弯扣除的帮修改个、公司都用折弯扣除、非90°的单独设定K因子

批量修改折弯扣除的宏发在论坛里了

作者: 甄云竹 时间: 2019-9-7 14:39
本帖最后由甄云竹于 2019-9-9 12:12 编辑

更新一下批量修改钣金K因子宏，此外批量修改钣金折弯扣除宏也发布在了论坛里。
权限低，分享不了链接，请各位自行在论坛中搜索。
因为标题我无法编辑了，15楼不是最新的，现在这个才是最新的。

使用solidworks2016编辑，低于2016版的用户，可以自行在宏编辑器中替换更低版本的引用库。

[attach]1268994[/attach]
主界面
[attach]1268993[/attach]
处理界面
[attach]1268992[/attach]

处理结果

作者: scattie 时间: 2019-9-9 11:14
多谢，挺方便的

作者: 甄云竹 时间: 2019-9-9 11:38

scattie 发表于 2019-9-9 11:14
多谢，挺方便的

下最新版的吧，就更新在你楼上

作者: vip0537 时间: 2019-9-11 14:15
宏-批量修改钣金K因子

作者: 扳手2008 时间: 2019-9-20 09:19

感谢分享好工具，学习。

作者: scattie 时间: 2019-9-20 10:33
感谢楼主的分享

作者: 1218707095 时间: 2019-11-9 11:20
谢谢分享。

作者: 口风琴 时间: 2019-11-9 18:53
搞得挺好的，界面也漂亮

作者: 13993359550 时间: 2019-11-25 15:42
多谢分想

作者: scattie 时间: 2019-11-26 09:21
感谢分享，先下载研究一番

作者: 人穷貌丑 时间: 2019-11-27 12:33
感谢分享

作者: liuyilin 时间: 2019-11-28 13:30
谢谢，学习中

作者: scattie 时间: 2019-11-29 10:22
厉害挺不错的

作者: a4778006 时间: 2019-12-1 00:05
谢谢分享，学习了

作者: scattie 时间: 2019-12-2 10:25
谢谢分享！

作者: z360179065 时间: 2019-12-12 10:00
谢谢楼主，热心分享

作者: seanxujun 时间: 2019-12-14 20:40
学习，感谢分享

作者: fsyuwenjiang 时间: 2019-12-16 20:18
感谢楼主提供

作者: 玄心 时间: 2019-12-28 19:19
多谢分享，多谢大佬。

作者: lg328084985 时间: 2019-12-31 09:57
谢谢分享。

作者: 93188931 时间: 2020-1-7 18:30
下来学习学习

作者: a305367 时间: 2020-1-9 10:30
感谢楼主分享

作者: 红尘有你 时间: 2020-1-10 10:46
谢谢分享，下载看下

作者: kshuangyan 时间: 2020-1-16 21:52
你好，想看隐藏内容。

欢迎光临 iCAx开思网 (https://www.icax.org/)