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

pzhzshun

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

1. Option Explicit
     Z! m/ R4 g( |5 B1 o# ?$ j1 O
2. Dim swApp As SldWorks.SldWorks
   2 t1 N& M& ~( c+ F1 y
3. Dim swDraw As SldWorks.DrawingDoc
   
4. Dim swView As SldWorks.View
   
5. Dim swTable As SldWorks.TableAnnotation
   
6. Dim nNumRow As Long
   
7. Dim i As Long
   
8. Sub main()
   * C2 d1 z$ W8 @
9.     Set swApp = Application.SldWorks
   ! }1 t3 ]7 Q" D  @& e5 I* k5 w+ z
10.     Set swDraw = swApp.ActiveDoc
    $ b- m' O( \) m0 I
11.     Set swView = swDraw.GetFirstView
    
12.     Do While Not swView Is Nothing
    . E- z; Z% U: r0 }
13.         Set swTable = swView.GetFirstTableAnnotation
    
14.         Do While Not swTable Is Nothing
    : S; T8 A& Q& Y; e( @% S+ O% c
15.             nNumRow = swTable.RowCount '获取切割清单行数
    
16.             For i = 0 To nNumRow - 2
    / c3 q& h+ R. ?8 a8 \/ V* M
17.                 swTable.Text(i, 6) = "={2}D" & i + 1 & "*F" & i + 1 '写入总重方程式到切割清单
    8 z6 Q1 X* H. ]' l" Y2 G! d
18.             Next i
    . {* b2 a; p( F7 M: e$ n+ I# B
19.             Set swTable = swTable.GetNext
    
20.         Loop
    
21.         Set swView = swView.GetNextView
    
22.     Loop
    7 H# u4 @' x3 l0 u1 r! R: w
23. End Sub
    

复制代码

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

2016-3-15 16:12 上传

点击文件名下载附件
这是运行的效果：

3 e1 p8 {# M  Z( g8 V　　因为切割清单里没有材料明细表那样给列添加方程式的功能，以往，总重那一栏只能手工填入方程式来计算。只有几行倒是可以手工完成，几十行填起来就很累了。就算手工把几十行填写完，如果增加或减少了行，单元格的行号发生了变化，但方程式里写的行号不会像 Excel 里那样同步发生变化，这些变化了的行又得逐一填写计算总重的方程式。
　　用宏来填写总重的方程式就很方便，一键就搞定。
9 I# k& m7 X6 o0 _" `　　由于总重用的是方程式来计算，单重变化后总重也会同步变化，这样就避免了前面提到的弊端。只要切割清单里没有增加或减少行的话，就可以不用再运行宏来写入总重。即使行发生变化，也只需运行一下宏，即刻就搞定。
5 m" ~: L; r; M0 x5 K  g　　这困扰我很久的问题，也算是基本解决了。




1 E- p: a& ]* n. P0 }

天上飘动的云

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

qiminger

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

machine134

感谢热心分享

WHY007

不错实用的工具

gt.adan

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

pzhzshun

gt.adan 发表于 2016-3-15 11:21
讚一個！舉一反三！謝謝樓主分享。

感谢丹大的大力支持！

qxzch

很实用的工具，谢楼主！

gt.adan

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

pzhzshun

gt.adan 发表于 2016-3-15 15:09
4 e- b) t) A9 g. v; C5 b( L5 o/ k7 H' D其實，樓主可以搜一下「常駐宏」及「特徵宏」，悶大都有很完整說明及教學
一來無需在工程中圖再運行另一個 ...

本论坛里搜索不到『常驻宏』和『特征宏』的资料，到开思去找到了闷大的原帖：
& r$ ~: H- m2 [; H! h# bhttp://bbs.icax.org/thread-911488-1-2.html
感觉用常驻宏来更新比特征宏要好一些，闷大的常驻宏切换窗口就运行一下，这样就不用手动去更新总重了，真正做到了一劳永逸。
7 S7 V: y" L& \0 {! ~- |非常感谢丹大的提示！

hexiaohuihex

这个16的代码在12中运行出问题，提示如图
& s+ P: e! T) i5 b# C, ^/ q
: [+ l3 K' h+ O" T

hexiaohuihex

hexiaohuihex 发表于 2016-4-20 17:18
( U7 r# m# M8 q7 u' _这个16的代码在12中运行出问题，提示如图

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

不靠谱的江静

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

jinqin11

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

画好焊件
1 w3 @; q6 S8 r$ q9 D( `" J2 i设置材料，子实体的属性自动出现
5 d0 u1 D5 E" B

看总重在文件属性
5 j" |7 U. a+ ]( A# y

没有什么难度的啊
  T- f% R& Z, B  q* i' T具体效果
5 c7 l, l. t  U; q/ \  ]

& |8 A6 E  j# g6 Y! M' U, Z6 n
, z$ |( s+ R) W+ ~0 p

不靠谱的江静

jinqin11 发表于 2016-4-21 21:05
觉得好奇怪！
我在焊接件的模板属性制作时，先添加焊接->添加属性，如图

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

ZHJK

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

Gzsod

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

90hehuilin

谢谢分享。

xiaoxifeng

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

木_棉

这个宏不错，下载研究了

zqm

好象用不了

zqm

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

- U& a. w# H7 i' _) x

zqm

这个完全是利用sw宏运行的，也没反应
" n. _# `) v: ^7 c7 |, l
8 u& ]1 H" I7 _& N" o

zqm

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

zqm

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