SW工程图插入指定路径下明细表模板的宏

机制082 · 发表于 2024-6-3 15:25:56

最近刚学习SW宏程序，由于公司SW模板升级，需要让自定义属性继承之前的属性，同时要替换工程图模板，还要替换明细表模板。目前已经实现了自定义属性继承和工程图模板替换，但是明细表模板替换搞不定了，请大侠指导一下！
以下是删除原明细表和添加新明细表的代码，删除原明细表部分的代码运行正常，但是添加明细表没有成功。
         ……
         ' 获取当前激活的零件文档
         Dim Part As Object
         Set Part = swApp.ActiveDoc
         ' 删除指定的材料明细表
         boolstatus = Part.Extension.SelectByID2("细节项目558@图纸1", "ANNOTATIONTABLES", 0.231626177659671, 0.176751707865169, 0, False, 0, Nothing, 0)
         Part.EditDelete
         ' 插入新的材料明细表
         Dim tablePath As String
         tablePath = "D:\SW模板-NL2406\材料明细表模板\材料明细表.sldbomtbt"
         If fs.FileExists(tablePath) Then
            Dim tableView As Object
            Set tableView = swDrawing.InsertBomTable2(True, 0.231626177659671, 0.176751707865169, swBomType_e.swBomType_TopLevelOnly, "", tablePath)
            If Not tableView Is Nothing Then
                  MsgBox "材料明细表已成功插入！", vbInformation
            Else
                  MsgBox "未能插入材料明细表。", vbExclamation
            End If
         Else
            MsgBox "材料明细表模板文件不存在: " & tablePath, vbExclamation
         End If
         ……

wjbg2019 · 发表于 2024-6-3 17:26:49

没有源文件、也没有报错类型很难知道答案的！你自己排查吧：1、图纸没有设置定位点；2、生成明细表前没有选中视图；3...
我用的方法是：
' Insert BOM table
Set swBomAnn = swView.InsertBomTable2(True, 0.4, 0.3, AnchorType, BomType, Configuration, TableTemplate)

3869 · 发表于 2024-6-4 08:01:28

顶一下，坐等高手！

沉默的人 · 发表于 2024-6-4 08:28:39

顶一下，坐等高手！

hnxcmh · 发表于 2024-6-6 10:49:24

经典案例图书

SW机械工程师网，找到组织了！

随遇而安9528 · 发表于 2024-6-22 15:43:34

很不错，找到组织了！

		自动登录	找回密码
密码			立即注册

SW工程图插入指定路径下明细表模板的宏

最佳新人

活跃会员

宣传达人

热心会员

灌水之王

突出贡献