QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 12090|回复: 30
收起左侧

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

[复制链接]
发表于 2016-3-14 15:56:58 | 显示全部楼层 |阅读模式 来自: 中国四川攀枝花

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

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

x
本帖最后由 pzhzshun 于 2016-3-15 16:32 编辑 $ @  M- f* w! c. m
3 Y9 U- h* d; l9 }1 p# G
  前段时间,在这个贴子里:http://www.3dportal.cn/discuz/forum.php?mod=redirect&goto=findpost&ptid=1253110&pid=8713151&fromuid=73388根据丹大的帮助,学会了用宏把切割清单里每个零件的总重写入到属性中。解决了手工填写每行焊件总重的问题。
. T6 v5 e/ X7 _) B. `0 Q  W) L  用了一段时间,感觉这种写入总重的方式还是有些不妥的地方:修改了焊件的尺寸后,每次都要运行宏把总重写入属性里。如果忘记运行宏,那么工程图中切割清单里每行的总重就是错误的。
: I+ \! e8 q# T1 x3 d8 Y6 |; t8 e$ c  为避免每次修改焊件尺寸都要运行宏写入总重的弊端,就考虑用宏把每行总重的计算公式,直接写在工程图切割清单,总重的那一单元格中。& m; J( z/ I1 Z  h0 H
  用我可怜的 E 文知识,在 API 帮助里查询了许久,终于找到了工程图切割清单中填写内容的代码。
4 U5 R7 x+ v6 k& p' |  独乐乐不如众乐乐,这里把代码分享一下:
8 o% |7 v3 W# y& G3 L% T! h% y
  1. Option Explicit
    0 i8 ~4 y: X3 L  l8 b, U. O% r4 O9 T
  2. Dim swApp As SldWorks.SldWorks
    # u  }7 [+ D1 T+ @
  3. Dim swDraw As SldWorks.DrawingDoc
    , M0 P8 \+ ]4 h+ Y: N
  4. Dim swView As SldWorks.View
    ' T. [! J" M" d% c3 f- o8 u, B
  5. Dim swTable As SldWorks.TableAnnotation. n% j4 ?% l# H1 Y2 b( E  t0 M0 k% l. c: S
  6. Dim nNumRow As Long' V+ d" M7 `% Z5 y
  7. Dim i As Long: n( q% }4 D, }5 x+ \
  8. Sub main()" p0 M& l$ G8 _/ m  ~
  9.     Set swApp = Application.SldWorks
    : _5 I5 R; @1 X7 o
  10.     Set swDraw = swApp.ActiveDoc3 i8 S* E* r( ~/ ]
  11.     Set swView = swDraw.GetFirstView
    0 h8 K; I% \' K1 b
  12.     Do While Not swView Is Nothing
    . R6 b2 C! u, W' @
  13.         Set swTable = swView.GetFirstTableAnnotation
    , k8 @6 o7 e; r% d- Y$ }
  14.         Do While Not swTable Is Nothing
    ' A1 S0 d2 V% _6 v
  15.             nNumRow = swTable.RowCount '获取切割清单行数
    $ }' v  _8 ]5 l/ G2 `
  16.             For i = 0 To nNumRow - 20 c5 T' F5 @7 N% w- M; G
  17.                 swTable.Text(i, 6) = "={2}D" & i + 1 & "*F" & i + 1 '写入总重方程式到切割清单1 K$ @. d* Z6 W0 ]: M- ~$ B
  18.             Next i" X7 N0 p4 T5 g: \: E3 @3 R% p
  19.             Set swTable = swTable.GetNext
    9 \* c1 w5 e5 @3 J/ P, w
  20.         Loop
    7 o& n) J( g, I- k% }$ b' X
  21.         Set swView = swView.GetNextView$ D% x( [+ q/ U/ K( ~# Y. C9 m. }
  22.     Loop$ I/ {. Z* V: k7 X
  23. End Sub
    * h2 B6 h  c* h; L4 V
复制代码

' A& t5 L. {5 E% k5 J! h5 B如果不愿意复制粘贴,那就下载这个吧: 工程图切割清单填写每行焊件总重.rar (6.48 KB, 下载次数: 338)

评分

参与人数 1三维币 +3 收起 理由
阿帕奇 + 3

查看全部评分

发表于 2016-3-14 18:29:51 | 显示全部楼层 来自: 中国四川攀枝花
很不错,还是应该向师傅多学习,极不懂的地方多问问,对自己也所帮助提高,在此还应万分感谢师傅。
发表于 2016-3-14 19:16:02 | 显示全部楼层 来自: 中国辽宁
谢谢分享好方法,给楼主一个大大的赞。
发表于 2016-3-14 19:40:51 | 显示全部楼层 来自: 中国广东揭阳
感谢热心分享
发表于 2016-3-14 20:59:07 | 显示全部楼层 来自: 中国河南郑州
不错实用的工具
发表于 2016-3-15 11:21:47 | 显示全部楼层 来自: 中国台湾
讚一個!舉一反三!謝謝樓主分享。
 楼主| 发表于 2016-3-15 11:43:00 | 显示全部楼层 来自: 中国四川攀枝花
gt.adan 发表于 2016-3-15 11:21
4 _6 v4 m1 ^) ~# h; r讚一個!舉一反三!謝謝樓主分享。

: T( D/ i( Y6 z感谢丹大的大力支持!
发表于 2016-3-15 13:08:47 | 显示全部楼层 来自: 中国广西桂林
很实用的工具,谢楼主!
发表于 2016-3-15 15:09:59 | 显示全部楼层 来自: 中国台湾
其實,樓主可以搜一下「常駐宏」及「特徵宏」,悶大都有很完整說明及教學
+ H8 O$ K9 k- b4 _( E& y3 D) J- ?一來無需在工程中圖再運行另一個宏來填寫方程,二來能徹底解決無法自動更新的問題。
 楼主| 发表于 2016-3-15 16:32:10 | 显示全部楼层 来自: 中国四川攀枝花
gt.adan 发表于 2016-3-15 15:09' M0 v) x% V+ ~, ^4 r, [
其實,樓主可以搜一下「常駐宏」及「特徵宏」,悶大都有很完整說明及教學
; ]1 \6 f, K+ o; J" I2 I( z一來無需在工程中圖再運行另一個 ...

7 g: I  P1 L7 b* W8 r6 K+ H4 P本论坛里搜索不到『常驻宏』和『特征宏』的资料,到开思去找到了闷大的原帖:
# i3 ~0 Y6 h3 n& O5 ~http://bbs.icax.org/thread-911488-1-2.html4 E) w0 V  U2 q
感觉用常驻宏来更新比特征宏要好一些,闷大的常驻宏切换窗口就运行一下,这样就不用手动去更新总重了,真正做到了一劳永逸。
- K+ k, _7 y/ F, g) h非常感谢丹大的提示!
发表于 2016-4-20 17:18:49 | 显示全部楼层 来自: 中国辽宁大连
这个16的代码在12中运行出问题,提示如图! u& O3 o$ Y) N: [, {2 \/ q% }3 K
2.jpg 1.jpg % O1 h: ^4 {4 b8 f- ]. }( d
0 A# E- v4 `& ~' s
发表于 2016-4-21 15:29:10 | 显示全部楼层 来自: 中国辽宁大连
hexiaohuihex 发表于 2016-4-20 17:18. \8 p; p& W# c2 Y3 n
这个16的代码在12中运行出问题,提示如图
. c/ U# u" U3 u0 x
已解决,是我自己拷贝代码的过程中一些乱码一同拷入,没删干净导致宏不认。5 g$ }' ^" k& C5 n; d' ^6 K7 ^
已正常运行,多谢楼主了
发表于 2016-4-21 20:21:19 | 显示全部楼层 来自: 中国山东
对于焊接切割清单计算总重的这个问题,闷大在别网有一个能彻底解决总重的问题,而且如果配合常驻宏还能一劳永逸,楼主研究的精神是好,但是如果想彻底解决这个问题,还是建议楼主去拜读闷大的,[总重宏],相信楼主会深有感触。
发表于 2016-4-21 21:05:02 | 显示全部楼层 来自: 中国安徽蚌埠
觉得好奇怪!/ |% i1 J8 ?- O
我在焊接件的模板属性制作时,先添加焊接->添加属性,如图 0421.png . P5 n( W. ]% _6 O2 c2 q( ?
: f  @0 X! T  H8 A+ p3 P
画好焊件0 @0 M( O+ i0 R  H. M, t
设置材料,子实体的属性自动出现+ K& \  `9 E1 M$ E$ K7 \
04212.png 8 q1 s& A) |7 M$ T& _, ?2 w/ k  c& |; X1 n

2 B( A6 n2 f+ b) f3 j3 `看总重在文件属性4 d6 `+ Y: f( o1 T" d3 N& m
04213.png
: [# O6 H) F' A( o* H+ Q' N2 [5 c, I4 a/ n9 H: P, G6 k* A
没有什么难度的啊1 X+ V2 K2 C% f: ?5 C' n
具体效果
4 u. T  e" v; f
3 G- j. S( i8 X+ P 171433wvjx2uapsb4xj447.gif 1 A( o$ b( n) u' x2 Q% \

; G8 Y& ]  z: z+ u( T& B
6 I0 _. L: j& Y- M- G+ i7 p. j: z

评分

参与人数 1三维币 +5 收起 理由
不靠谱的江静 + 5 应助

查看全部评分

发表于 2016-4-22 18:24:37 | 显示全部楼层 来自: 中国天津
jinqin11 发表于 2016-4-21 21:05
; O1 ]& |- r( h- G' e觉得好奇怪!
6 U- R3 X/ b0 K% i1 p# ?9 d我在焊接件的模板属性制作时,先添加焊接->添加属性,如图

" G$ V+ C6 e" z2 k+ I7 Q材料明细表和焊件切割清单的区别在于,焊件切割清单可以直接提取焊件的轮廓属性(如果需要甚至还可以直接提取某一焊接件长度),比如说,“∠5*5"但是用材料明细表就不能达到这个目的。。。而且,对于专业做焊接结构的人来说,焊接清单比材料切割清单好很多很多。
发表于 2016-5-27 21:41:14 | 显示全部楼层 来自: 中国北京
你好  我下载了你上传的压缩包   然后在工程图里点工具  宏  运行  选择到解压后的代码   点击运行怎么提示找不到工程或库     我用的2015版的
发表于 2016-7-25 22:21:26 | 显示全部楼层 来自: 中国上海
支持   ````````````
发表于 2016-8-10 21:49:02 | 显示全部楼层 来自: 中国广东潮州
谢谢分享。
发表于 2018-3-2 15:54:50 | 显示全部楼层 来自: 中国河北唐山
好东西。能不能在公式上面加上获取“数量”,“单重”,“总重”所在的列,然后在用这个公式啊
发表于 2018-3-5 15:04:20 | 显示全部楼层 来自: 中国上海
这个宏不错,下载研究了
发表于 2018-3-9 08:47:19 | 显示全部楼层 来自: 中国湖南
好象用不了
发表于 2018-3-9 15:07:17 | 显示全部楼层 来自: 中国湖南
直接运行这个下载的宏sw2017没反应,用VB运行出现如下情况:
( {6 |. c# \3 a2 S0 M, A1 \# Y6 M: F2 k+ ~* ~
捕获.JPG
发表于 2018-3-9 16:29:36 | 显示全部楼层 来自: 中国湖南
这个完全是利用sw宏运行的,也没反应! b2 v$ x3 O0 C/ G

1 k  J) U" Q+ `
捕获2.JPG
发表于 2018-3-9 16:36:37 | 显示全部楼层 来自: 中国湖南
是标题栏的属性名称不匹配?
发表于 2018-3-9 17:00:58 | 显示全部楼层 来自: 中国湖南
搞定,是我的表格跟楼主的不一样
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表