QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
本帖最后由 pzhzshun 于 2016-3-15 16:32 编辑
+ k0 h- q2 c' S. g2 T6 `8 @8 t( m3 u
  前段时间,在这个贴子里:http://www.3dportal.cn/discuz/forum.php?mod=redirect&goto=findpost&ptid=1253110&pid=8713151&fromuid=73388根据丹大的帮助,学会了用宏把切割清单里每个零件的总重写入到属性中。解决了手工填写每行焊件总重的问题。
( z4 M! U; p2 d  用了一段时间,感觉这种写入总重的方式还是有些不妥的地方:修改了焊件的尺寸后,每次都要运行宏把总重写入属性里。如果忘记运行宏,那么工程图中切割清单里每行的总重就是错误的。( \+ Z$ o* M8 e( q) R: i
  为避免每次修改焊件尺寸都要运行宏写入总重的弊端,就考虑用宏把每行总重的计算公式,直接写在工程图切割清单,总重的那一单元格中。" G7 \2 _% \& G6 _: W
  用我可怜的 E 文知识,在 API 帮助里查询了许久,终于找到了工程图切割清单中填写内容的代码。
* Q( B$ n  f6 E& z  独乐乐不如众乐乐,这里把代码分享一下:& q' M1 V9 B" {
  1. Option Explicit
    2 l. F7 S$ v" H5 ~( N- y
  2. Dim swApp As SldWorks.SldWorks
    4 T6 l1 M) f! c
  3. Dim swDraw As SldWorks.DrawingDoc
    % e! P0 l, q" @  T( T
  4. Dim swView As SldWorks.View0 q3 u! `% L- X! }2 I1 R
  5. Dim swTable As SldWorks.TableAnnotation
    4 H6 d9 X+ ?. C+ e
  6. Dim nNumRow As Long
    * n! m. c; f: z* n& j1 S
  7. Dim i As Long
    6 f. h2 o* L+ }
  8. Sub main()
      r/ D! Q2 T+ `1 o9 R5 D( t( K% \
  9.     Set swApp = Application.SldWorks. U1 ]+ V- L8 z
  10.     Set swDraw = swApp.ActiveDoc
    1 ~* K; [# \! g  u
  11.     Set swView = swDraw.GetFirstView
    6 ?$ b7 f! k: l8 d1 ]9 [, @
  12.     Do While Not swView Is Nothing
    & A7 |+ h- v+ _) z7 l" j( a& |
  13.         Set swTable = swView.GetFirstTableAnnotation
    3 C# U' c1 g/ Z' _& o+ S. [
  14.         Do While Not swTable Is Nothing
    / q# [4 w3 |( L; d4 F. Q$ Q& u& V
  15.             nNumRow = swTable.RowCount '获取切割清单行数
    . z" M1 J6 G0 z4 R- f# @
  16.             For i = 0 To nNumRow - 29 {2 V* J* h$ q8 |# C. Q& k& W4 `4 q
  17.                 swTable.Text(i, 6) = "={2}D" & i + 1 & "*F" & i + 1 '写入总重方程式到切割清单$ O# [$ z3 D, i1 U8 ^
  18.             Next i
    % I8 P* r1 n1 h: G; x5 ~( ~3 N
  19.             Set swTable = swTable.GetNext7 J! ^7 ?. w- |# w
  20.         Loop
    3 N  P; p$ r8 Y) |
  21.         Set swView = swView.GetNextView) A& t5 f( {' U4 E" O. R' @  o+ b
  22.     Loop
    - o1 y4 x/ L+ ~$ M0 K1 D2 A
  23. End Sub; S& R+ }6 Q: F! P
复制代码

8 }! i9 f% {( g5 x- `' }0 G如果不愿意复制粘贴,那就下载这个吧: 工程图切割清单填写每行焊件总重.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
5 U+ c- M4 ~2 G% t讚一個!舉一反三!謝謝樓主分享。

1 v( E: v& l; g感谢丹大的大力支持!
发表于 2016-3-15 13:08:47 | 显示全部楼层 来自: 中国广西桂林
很实用的工具,谢楼主!
发表于 2016-3-15 15:09:59 | 显示全部楼层 来自: 中国台湾
其實,樓主可以搜一下「常駐宏」及「特徵宏」,悶大都有很完整說明及教學
, Y6 V* W2 A0 j7 f/ {一來無需在工程中圖再運行另一個宏來填寫方程,二來能徹底解決無法自動更新的問題。
 楼主| 发表于 2016-3-15 16:32:10 | 显示全部楼层 来自: 中国四川攀枝花
gt.adan 发表于 2016-3-15 15:09
4 ]* }" ~$ L3 Z( m0 W7 H其實,樓主可以搜一下「常駐宏」及「特徵宏」,悶大都有很完整說明及教學+ [7 {( x$ ~" ~2 I5 m+ S
一來無需在工程中圖再運行另一個 ...
; y& C" t3 Z4 ^% j9 o
本论坛里搜索不到『常驻宏』和『特征宏』的资料,到开思去找到了闷大的原帖:
! C. T( T0 G; E5 {- X4 J  Jhttp://bbs.icax.org/thread-911488-1-2.html
2 ?. f- {% M1 O4 v感觉用常驻宏来更新比特征宏要好一些,闷大的常驻宏切换窗口就运行一下,这样就不用手动去更新总重了,真正做到了一劳永逸。
* Z9 |. U6 u6 c4 `& W非常感谢丹大的提示!
发表于 2016-4-20 17:18:49 | 显示全部楼层 来自: 中国辽宁大连
这个16的代码在12中运行出问题,提示如图
% f6 K7 h# |; A' V. k/ C7 O0 Q 2.jpg 1.jpg 6 A1 L3 ^$ Z2 Z# G( F# W# b6 z( g
2 @  D) N0 d4 O1 l; X6 T
发表于 2016-4-21 15:29:10 | 显示全部楼层 来自: 中国辽宁大连
hexiaohuihex 发表于 2016-4-20 17:18
; W2 S7 T% e; X2 \2 ?这个16的代码在12中运行出问题,提示如图

$ M+ n" }7 e2 M. A) V& h: q已解决,是我自己拷贝代码的过程中一些乱码一同拷入,没删干净导致宏不认。% G( ?$ _, @3 T# g8 ~1 J5 z
已正常运行,多谢楼主了
发表于 2016-4-21 20:21:19 | 显示全部楼层 来自: 中国山东
对于焊接切割清单计算总重的这个问题,闷大在别网有一个能彻底解决总重的问题,而且如果配合常驻宏还能一劳永逸,楼主研究的精神是好,但是如果想彻底解决这个问题,还是建议楼主去拜读闷大的,[总重宏],相信楼主会深有感触。
发表于 2016-4-21 21:05:02 | 显示全部楼层 来自: 中国安徽蚌埠
觉得好奇怪!
2 S0 ~. v9 G0 m# v% z7 h5 o/ ~  N% A我在焊接件的模板属性制作时,先添加焊接->添加属性,如图 0421.png 9 N! ~6 T5 m2 D8 c+ e# S) A
( _% c. _8 ^6 |, V9 s
画好焊件9 a! [) ]' \/ N# X* G* y
设置材料,子实体的属性自动出现4 b$ g% w/ z5 i
04212.png
( ?1 P0 l" ?0 p5 u
, F" T7 z6 a! R2 E看总重在文件属性, o' [  L4 y  b4 w9 `$ Z
04213.png 8 \' G! w3 f/ M- g/ T  n1 J- J

1 R) \( L! G3 K. _没有什么难度的啊; Z& k; p6 I! u8 E/ G. f
具体效果+ t/ @$ K1 ^% X# d0 ?) ~! G
0 J$ J9 o9 Z( t9 u- ?( h
171433wvjx2uapsb4xj447.gif - k/ z/ N. r- \# x5 O
7 Z" N5 v% C5 o3 }0 m! k
9 n0 F+ A: k7 Q9 y! B/ q3 d2 ~

评分

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

查看全部评分

发表于 2016-4-22 18:24:37 | 显示全部楼层 来自: 中国天津
jinqin11 发表于 2016-4-21 21:056 ^$ J4 @3 _  h% Y
觉得好奇怪!
! T" w. A% f3 Z& j; U' y9 e我在焊接件的模板属性制作时,先添加焊接->添加属性,如图

( ]. d; w; g' p材料明细表和焊件切割清单的区别在于,焊件切割清单可以直接提取焊件的轮廓属性(如果需要甚至还可以直接提取某一焊接件长度),比如说,“∠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运行出现如下情况:
0 p" P, v0 U5 M; S# r
# ^- p0 C# z, c2 h: m' v
捕获.JPG
发表于 2018-3-9 16:29:36 | 显示全部楼层 来自: 中国湖南
这个完全是利用sw宏运行的,也没反应: p* N2 R3 L2 o3 D- F$ I
% Y) c. F" `- [' G& ~/ a& S
捕获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 )

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