SolidWorks机械工程师网——最大的SolidWorks学习平台

 找回密码
 立即注册

QQ登录

只需一步,快速开始

好品数字
好品数字
楼主: wild-boy

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

  [复制链接]

7

主题

26

帖子

60

金币

天使

Rank: 2Rank: 2

积分
139
QQ
发表于 2019-6-15 17:39:32 | 显示全部楼层
有空的时候再帮你查一下,最近比较忙
SolidWorks机械工程师网
提示:建议使用谷歌浏览器浏览本网站!如单击这里下载!否则,可能无法下载附件文件!(支持大多数版本的谷歌浏览器,支持10、11两个版本的IE浏览器,支持360和QQ浏览器的极速模式,即谷歌内核模式,以及10和11版本的IE兼容模式,其余浏览器也是如此)
回复 支持 反对

使用道具 举报

8

主题

23

帖子

50

金币

天使

Rank: 2Rank: 2

积分
127
QQ
发表于 2019-6-15 18:11:30 | 显示全部楼层
这样可以了

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
SolidWorks机械工程师网
提示:建议使用谷歌浏览器浏览本网站!如单击这里下载!否则,可能无法下载附件文件!(支持大多数版本的谷歌浏览器,支持10、11两个版本的IE浏览器,支持360和QQ浏览器的极速模式,即谷歌内核模式,以及10和11版本的IE兼容模式,其余浏览器也是如此)
回复 支持 反对

使用道具 举报

4

主题

38

帖子

25

金币

天使

Rank: 2Rank: 2

积分
108
QQ
发表于 2019-6-15 21:43:02 | 显示全部楼层
支持,好东西
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

4

主题

31

帖子

26

金币

天使

Rank: 2Rank: 2

积分
84
QQ
发表于 2019-6-16 03:02:10 | 显示全部楼层
感谢楼主分享
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

2

主题

27

帖子

19

金币

天使

Rank: 2Rank: 2

积分
77
QQ
发表于 2019-6-16 03:53:09 | 显示全部楼层

   经典案例图书
多谢大神的多次指点,K因子宏的使用限制终于解除了
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

3

主题

19

帖子

22

金币

天使

Rank: 2Rank: 2

积分
66
QQ
发表于 2019-6-16 06:43:51 | 显示全部楼层
多谢“羊三丫”大神的代码支援,现在无论钣金件的折弯系数是否设为K因子都可以用此宏修改K因子。

现在更新宏如下,使用方法不变。 批量修改K因子.zip (73.67 KB, 下载次数: 248)
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

5

主题

28

帖子

33

金币

天使

Rank: 2Rank: 2

积分
103
QQ
发表于 2019-6-16 13:41:56 | 显示全部楼层

   经典案例图书
学习中。不是很会用。谢谢
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

2

主题

18

帖子

10

金币

天使

Rank: 2Rank: 2

积分
51
QQ
发表于 2019-6-16 14:07:13 | 显示全部楼层
"大神"两个字不敢当,也只是入门而已,有机会可以共同探讨学习.
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

5

主题

27

帖子

95

金币

天使

Rank: 2Rank: 2

积分
152
QQ
发表于 2019-6-16 23:54:03 | 显示全部楼层
谢谢楼主分享
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

4

主题

26

帖子

38

金币

天使

Rank: 2Rank: 2

积分
101
QQ
发表于 2019-6-17 12:46:16 | 显示全部楼层
非常使用、试下,,,,,
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

4

主题

26

帖子

25

金币

天使

Rank: 2Rank: 2

积分
84
QQ
发表于 2019-6-17 15:44:18 | 显示全部楼层
收藏了,谢谢!!!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

5

主题

24

帖子

35

金币

天使

Rank: 2Rank: 2

积分
108
QQ
发表于 2019-6-17 20:57:36 | 显示全部楼层
虽然折弯扣除软件后台自带表格模板,但还是谢谢lz分享的直观操作。
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

4

主题

33

帖子

30

金币

天使

Rank: 2Rank: 2

积分
85
QQ
发表于 2019-6-18 01:28:19 | 显示全部楼层
我之前也是用钣金规格表的哦,但是扣除参数一旦发生改变,光修改规格表是不会对图纸产生影响的,需要手动将每个图的规格表更新,很麻烦的。就是改的太烦了,才自己写一个宏。
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

7

主题

27

帖子

72

金币

天使

Rank: 2Rank: 2

积分
149
QQ
发表于 2019-6-18 03:28:53 | 显示全部楼层
运行到这里出错了

094150soqhv6pcp0jk9pv2.png
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

7

主题

31

帖子

67

金币

天使

Rank: 2Rank: 2

积分
139
QQ
发表于 2019-6-18 04:48:24 | 显示全部楼层
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

感谢楼主的分享
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

4

主题

33

帖子

28

金币

天使

Rank: 2Rank: 2

积分
88
QQ
发表于 2019-6-18 08:48:40 | 显示全部楼层

   经典案例图书
是所有零件都报错,还是运行到某个特定的零件才报错。方便的话把要处理的图纸发给我,我好看看是哪出错了。
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

3

主题

23

帖子

23

金币

天使

Rank: 2Rank: 2

积分
66
QQ
发表于 2019-6-18 11:58:48 | 显示全部楼层
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

多谢,挺方便的
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

14

帖子

62

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
426

最佳新人宣传达人

发表于 2020-4-27 15:53:43 | 显示全部楼层

   经典案例图书
非常好用,学习学习
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

216

帖子

83

金币

堂主

Rank: 4

积分
728

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

发表于 2020-4-29 13:58:37 | 显示全部楼层
SolidWorks机械工程师网,顶一下。
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

6

帖子

8

金币

混混

Rank: 1

积分
32

最佳新人

发表于 2020-4-29 19:48:00 | 显示全部楼层
好东西呀,用用看
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭 卷起
关闭 卷起

手机版|小黑屋| GMT+8, 2024-3-29 21:19 , Processed in 0.199369 second(s), 31 queries .

SolidWorks机械工程师网 ( 鲁ICP备14025122号-2 ) 鲁公网安备 37028502190335号

声明:本网言论纯属发表者个人意见,与本网立场无关。
如涉版权,可发邮件: admin@swbbsc.com

快速回复 返回顶部 返回列表