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

pzhzshun · 发表于 2016-3-14 15:56:58

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 pzhzshun 于 2016-3-15 16:32 编辑

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

Option Explicit; p( q" T' t# o; Z* N5 n( C, `6 v
Dim swApp As SldWorks.SldWorks
# Q+ u F, P$ n9 ~$ H3 _) S
Dim swDraw As SldWorks.DrawingDoc
, {: ]* v6 x6 u7 L1 c: y) Y
Dim swView As SldWorks.View
( ]; u/ M- O: h& S4 w
Dim swTable As SldWorks.TableAnnotation# K# z0 v8 ~' m% |! X
Dim nNumRow As Long2 C$ S- ^7 E2 j
Dim i As Long
Z" w9 o* X s9 A/ V! h+ w
Sub main()5 s! E2 a# E+ h% s1 u4 p* u
Set swApp = Application.SldWorks# E4 f$ f! F4 u0 x7 J
Set swDraw = swApp.ActiveDoc* y0 T& e9 O% G7 {, ~
Set swView = swDraw.GetFirstView
) h3 F: ]2 r5 e
Do While Not swView Is Nothing, o, R' q( h6 B5 r1 x# Q/ F0 [. ~2 }8 g
Set swTable = swView.GetFirstTableAnnotation+ D5 i" c3 X* ?, Z0 z* `+ _) P
Do While Not swTable Is Nothing
. [& |% u5 v# M% ^, c; ]& @
nNumRow = swTable.RowCount '获取切割清单行数
# F* Q/ m8 v' @0 p+ m% X6 v( ~
For i = 0 To nNumRow - 2
. v5 I( I; M. P6 p- V0 U2 M
swTable.Text(i, 6) = "={2}D" & i + 1 & "*F" & i + 1 '写入总重方程式到切割清单
1 q6 d, F; x7 p
Next i$ d* ^& A/ z- |, N1 P
Set swTable = swTable.GetNext
1 x: ~6 e7 ~" Z8 E. X( Y, e5 a0 H
Loop3 C; V* v7 v/ {+ J
Set swView = swView.GetNextView
4 R" ]! Y+ X& t; C$ F" F
Loop
9 [4 A% g* o" P' D# _
End Sub; C0 G1 h) D m4 E

复制代码

如果不愿意复制粘贴，那就下载这个吧：

工程图切割清单填写每行焊件总重.rar (6.48 KB, 下载次数: 338)

天上飘动的云 · 发表于 2016-3-14 18:29:51

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

qiminger · 发表于 2016-3-14 19:16:02

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

machine134 · 发表于 2016-3-14 19:40:51

感谢热心分享

WHY007 · 发表于 2016-3-14 20:59:07

不错实用的工具

gt.adan · 发表于 2016-3-15 11:21:47

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

pzhzshun · 发表于 2016-3-15 11:43:00

gt.adan 发表于 2016-3-15 11:21
+ N& m' `- }% B( t! K( q V讚一個！舉一反三！謝謝樓主分享。

感谢丹大的大力支持！

qxzch · 发表于 2016-3-15 13:08:47

很实用的工具，谢楼主！

gt.adan · 发表于 2016-3-15 15:09:59

其實，樓主可以搜一下「常駐宏」及「特徵宏」，悶大都有很完整說明及教學
一來無需在工程中圖再運行另一個宏來填寫方程，二來能徹底解決無法自動更新的問題。

pzhzshun · 发表于 2016-3-15 16:32:10

gt.adan 发表于 2016-3-15 15:09
, _ n- D6 A2 D. p0 Y- E& j' A; k0 {其實，樓主可以搜一下「常駐宏」及「特徵宏」，悶大都有很完整說明及教學5 u% B0 E/ T( I! }
一來無需在工程中圖再運行另一個 ...

本论坛里搜索不到『常驻宏』和『特征宏』的资料，到开思去找到了闷大的原帖：
http://bbs.icax.org/thread-911488-1-2.html
感觉用常驻宏来更新比特征宏要好一些，闷大的常驻宏切换窗口就运行一下，这样就不用手动去更新总重了，真正做到了一劳永逸。
非常感谢丹大的提示！

hexiaohuihex · 发表于 2016-4-20 17:18:49

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

hexiaohuihex · 发表于 2016-4-21 15:29:10

hexiaohuihex 发表于 2016-4-20 17:18; X: c4 ]2 R& s8 k% f* p& l% f. f9 j6 g
这个16的代码在12中运行出问题，提示如图

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

不靠谱的江静 · 发表于 2016-4-21 20:21:19

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

jinqin11 · 发表于 2016-4-21 21:05:02

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

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

看总重在文件属性

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

不靠谱的江静 · 发表于 2016-4-22 18:24:37

jinqin11 发表于 2016-4-21 21:05
& ^; e: s2 B3 N觉得好奇怪！* a5 [ d) g+ O$ J8 p
我在焊接件的模板属性制作时，先添加焊接->添加属性，如图

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

ZHJK · 发表于 2016-5-27 21:41:14

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

Gzsod · 发表于 2016-7-25 22:21:26

支持 ````````````

90hehuilin · 发表于 2016-8-10 21:49:02

谢谢分享。

xiaoxifeng · 发表于 2018-3-2 15:54:50

好东西。能不能在公式上面加上获取“数量”，“单重”，“总重”所在的列，然后在用这个公式啊

木_棉 · 发表于 2018-3-5 15:04:20

这个宏不错，下载研究了

zqm · 发表于 2018-3-9 08:47:19

好象用不了

zqm · 发表于 2018-3-9 15:07:17

直接运行这个下载的宏sw2017没反应，用VB运行出现如下情况：

zqm · 发表于 2018-3-9 16:29:36

这个完全是利用sw宏运行的，也没反应

zqm · 发表于 2018-3-9 16:36:37

是标题栏的属性名称不匹配？

zqm · 发表于 2018-3-9 17:00:58

搞定，是我的表格跟楼主的不一样

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

通知

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

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

评分

浏览过的版块