工程图中用宏填写切割清单每行的总重

shun12

　　前段时间，根据帮助，学会了用宏把切割清单里每个零件的总重写入到属性中。解决了手工填写每行焊件总重的问题。
　　用了一段时间，感觉这种写入总重的方式还是有些不妥的地方：修改了焊件的尺寸后，每次都要运行宏把总重写入属性里。如果忘记运行宏，那么工程图中切割清单里每行的总重就是错误的。
　　为避免每次修改焊件尺寸都要运行宏写入总重的弊端，就考虑用宏把每行总重的计算公式，直接写在工程图切割清单，总重的那一单元格中。
　　用我可怜的 E 文知识，在 API 帮助里查询了许久，终于找到了工程图切割清单中填写内容的代码。
　　独乐乐不如众乐乐，这里把代码分享一下：

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim swTable As SldWorks.TableAnnotation
Dim nNumRow As Long
Dim i As Long
Sub main()
Set swApp = Application.SldWorks
Set swDraw = swApp.ActiveDoc
Set swView = swDraw.GetFirstView
Do While Not swView Is Nothing
Set swTable = swView.GetFirstTableAnnotation
Do While Not swTable Is Nothing
nNumRow = swTable.RowCount '获取切割清单行数
For i = 0 To nNumRow - 2
swTable.Text(i, 6) = "={2}D" & i + 1 & "*F" & i + 1 '写入总重方程式到切割清单
Next i
Set swTable = swTable.GetNext
Loop
Set swView = swView.GetNextView
Loop
End Sub

复制代码
如果不愿意复制粘贴，那就下载这个吧：
工程图切割清单填写每行焊件总重.rar (6.48 KB, 下载次数: 291)

2016-7-2 15:33 上传

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

这是运行的效果：

　　因为切割清单里没有材料明细表那样给列添加方程式的功能，以往，总重那一栏只能手工填入方程式来计算。只有几行倒是可以手工完成，几十行填起来就很累了。就算手工把几十行填写完，如果增加或减少了行，单元格的行号发生了变化，但方程式里写的行号不会像 Excel 里那样同步发生变化，这些变化了的行又得逐一填写计算总重的方程式。
　　用宏来填写总重的方程式就很方便，一键就搞定。
　　由于总重用的是方程式来计算，单重变化后总重也会同步变化，这样就避免了前面提到的弊端。只要切割清单里没有增加或减少行的话，就可以不用再运行宏来写入总重。即使行发生变化，也只需运行一下宏，即刻就搞定。
　　这困扰我很久的问题，也算是基本解决了。

天行健16

很不错，还是应该向师傅多学习，极不懂的地方多问问，对自己也所帮助提高，在此还应万分感谢师傅。

凡子

谢谢分享好方法，给楼主一个大大的赞。

cdh.2007

感谢热心分享

774081546

   经典案例图书

不错实用的工具

466684882

讚一個！舉一反三！謝謝樓主分享。

Xternity

   经典案例图书

感谢的大力支持！

z069

很实用的工具，谢楼主！

onlytsj

其實，樓主可以搜一下「常駐宏」及「特徵宏」，大王都有很完整說明及教學
一來無需在工程中圖再咝辛硪粋

lava2088

『常驻宏』和『特征宏』的资料：
https://www.swbbsc.com/forum.php? ... 683&_dsign=45a267f7
感觉用常驻宏来更新比特征宏要好一些，常驻宏切换窗口就运行一下，这样就不用手动去更新总重了，真正做到了一劳永逸。
非常感谢提示！

1510193705JJ

这个16的代码在12中运行出问题，提示如图

Xinde

已解决，是我自己拷贝代码的过程中一些乱码一同拷入，没删干净导致宏不认。
已正常运行，多谢楼主了

497494232

对于焊接切割清单计算总重的这个问题，在别网有一个能彻底解决总重的问题，而且如果配合常驻宏还能一劳永逸，楼主研究的精神是好，但是如果想彻底解决这个问题，还是建议楼主去拜读的，[总重宏]，相信楼主会深有感触。

meng16816688

觉得好奇怪！
我在焊接件的模板属性制作时，先添加焊接->添加属性，如图

画好焊件
设置材料，子实体的属性自动出现

看总重在文件属性

没有什么难度的啊
具体效果

cyy1015

加入QQ群
参与讨论和学习

或扫描二维码加入

材料明细表和焊件切割清单的区别在于，焊件切割清单可以直接提取焊件的轮廓属性（如果需要甚至还可以直接提取某一焊接件长度），比如说，“∠5*5"但是用材料明细表就不能达到这个目的。。。而且，对于专业做焊接结构的人来说，焊接清单比材料切割清单好很多很多。

wljb020

   经典案例图书

你好  我下载了你上传的压缩包   然后在工程图里点工具  宏  运行  选择到解压后的代码   点击运行怎么提示找不到工程或库     我用的2015版的

王宏中

加入QQ群
参与讨论和学习

或扫描二维码加入

非常感谢楼主

booch

   经典案例图书

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim swTable As SldWorks.TableAnnotation
Dim nNumRow As Long
Dim i As Long
Sub main()
Set swApp = Application.SldWorks
Set swDraw = swApp.ActiveDoc
Set swView = swDraw.GetFirstView
Do While Not swView Is Nothing
Set swTable = swView.GetFirstTableAnnotation
Do While Not swTable Is Nothing
nNumRow = swTable.RowCount '获取切割清单行数
For i = 0 To nNumRow - 2
swTable.Text(i, 6) = "={2}D" & i + 1 & "*F" & i + 1 '写入总重方程式到切割清单
Next i
Set swTable = swTable.GetNext
Loop
Set swView = swView.GetNextView
Loop
End Sub

fclfta

很不错，顶一下！

fxp_sw

确实好用，感谢分享，就是要不断的手动更新