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

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, 下载次数: 296)

2016-7-2 15:33 上传

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

这是运行的效果：

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