sheji88 发表于 2019-6-15 17:39:32

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

weizhong 发表于 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

xiuzhu 发表于 2019-6-15 21:43:02

支持，好东西

haoflying 发表于 2019-6-16 03:02:10

感谢楼主分享

yiyong55 发表于 2019-6-16 03:53:09

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

hbzbw613 发表于 2019-6-16 06:43:51

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

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

xiaonao 发表于 2019-6-16 13:41:56

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

marry329 发表于 2019-6-16 14:07:13

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

cheeon 发表于 2019-6-16 23:54:03

谢谢楼主分享

sharpgu 发表于 2019-6-17 12:46:16

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

dfgdfgert 发表于 2019-6-17 15:44:18

收藏了，谢谢!!!

yujunliu 发表于 2019-6-17 20:57:36

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

277461201 发表于 2019-6-18 01:28:19

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

hy88888kevin 发表于 2019-6-18 03:28:53

运行到这里出错了

yofair 发表于 2019-6-18 04:48:24

感谢楼主的分享

shangshizhe 发表于 2019-6-18 08:48:40

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

allenjones 发表于 2019-6-18 11:58:48

多谢，挺方便的

DHtang 发表于 2020-4-27 15:53:43

非常好用，学习学习

yb12345678 发表于 2020-4-29 13:58:37

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

zzym490 发表于 2020-4-29 19:48:00

好东西呀，用用看:):)
页: 1 [2] 3 4 5 6
查看完整版本: 宏-批量修改钣金K因子（最新版放在15楼）