QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

[求助] solidworks宏里自定义的属性,重量如何在赋予材料后自动带出来?

[复制链接]
发表于 2015-7-9 18:19:30 | 显示全部楼层 |阅读模式 来自: 中国广东佛山

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

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

x
本帖最后由 whoeric 于 2015-7-10 08:53 编辑 2 f4 r, }) ~8 G. e9 {
0 N1 X/ m) s; S1 d. m
最近在网上得到一个宏,修改了一下,符合我们公司的使用习惯,其实就是用来分离零件名称和图号的,用“_"分开,前面部分填入物料编码属性,后面部分填入名称属性。再修改了一下,增加了材料属性,重量属性等,现在材料可以自动从零件赋予材质后,属性自动带出,但重量需要手动,不知道在宏里怎样得到重量。以下是宏的内容:4 @- `" J9 k7 V- d
Sub main()
& X9 G. \% h! x. F# S: H- |4 ~'link solidworks
1 l$ |$ C, s' tSet swApp = Application.SldWorks* Z4 p& R6 d7 I+ t$ i4 C  Y: m
Set Part = swApp.ActiveDoc
2 s6 e* M! r1 \$ {Set SelMgr = Part.SelectionManager' P! {; f2 T! v9 J# {: {
swApp.ActiveDoc.ActiveView.FrameState = 1
) ~) f! D- x# l% _" C$ f: r& I'设定变量
" I! L) L- E4 ~% Pc = swApp.ActiveDoc.GetTitle() '零件名. S9 n# q( z. v! T/ `* t
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
# x7 H3 M+ L9 Y3 y) c2 p. wblnretval = Part.DeleteCustomInfo2("", "物料编码")
: W% j7 p4 p7 \- F9 x  F& p( \blnretval = Part.DeleteCustomInfo2("", "名称")3 ^+ V) l3 X  F
blnretval = Part.DeleteCustomInfo2("", "图号")3 P3 X6 c$ ~+ r9 `8 Y
blnretval = Part.DeleteCustomInfo2("", "机型")- d' J+ q) W3 S2 O
blnretval = Part.DeleteCustomInfo2("", "数量")
  S; ^  `( `0 j7 [3 Eblnretval = Part.DeleteCustomInfo2("", "设计")
. A0 d) j7 ?  S8 Q. Ma = InStr(c, "_") - 1      '重点:分隔标识符,这里是一个空格
) A4 o6 {; |* DIf a > 0 Then
0 C( _0 \+ E- _+ Z* x0 l2 r4 C    k = Left(c, a)
# O, E% |. @% _9 Y    t = Left(LTrim(e), 3)
! }  G# R! J8 J; a    If t = "GBT" Then
: I, D6 d' b8 ~3 }0 G; Q' \        e = "GB/T" + Mid(k, 4)
8 j& D6 P( X$ ]) q+ \+ l( c    Else. |4 |, I0 Y5 h$ H" Z3 J$ _
        e = k% c- r" x6 t  J  O! `
    End If0 z4 y9 C; E# x) @1 \
    b = Mid(c, a + 2)
7 D& }+ w# P# _% @. i6 t1 ^. u    t = Right(c, 7)( W. C/ |# ^; `; f1 B# Q5 M& n' N
    If t = ".SLDPRT" Or t = ".SLDASM" Then2 V5 U9 q$ g& ]7 {' V
        j = Len(b) - 7
" w% a# \! m! i, v& w    Else
5 S, R6 Z9 L) ?. Q( y! K5 \( H        j = Len(b)8 ^7 @3 K0 g% Q/ q" Z$ Q
    End If+ \( R6 \! ]) E) M3 D4 y) g
    m = Left(b, j)
; e' v5 i8 o. P: u: w! [End If
# r4 }  K5 W: O. Dblnretval = Part.AddCustomInfo3("", "物料编码", swCustomInfoText, e)  '代号( _6 J/ ~! N* |/ ~/ a; t
blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)  '名称# _5 m4 B! f3 o8 g% z
blnretval = Part.AddCustomInfo3("", "图号", swCustomInfoText, " ")
& h* k7 n! h, Mblnretval = Part.AddCustomInfo3("", "机型", swCustomInfoText, " ")9 G& v2 p* S( L& e; U+ I3 q0 Q
blnretval = Part.AddCustomInfo3("", "材料", swCustomInfoText, strmat): p  W1 t% L* i" E
blnretval = Part.AddCustomInfo3("", "重量", swCustomInfoText, " ")
( u6 d: R. u" t. X( s$ D1 m4 l5 y+ M8 C  Eblnretval = Part.AddCustomInfo3("", "数量", swCustomInfoText, " ")
/ g0 R1 [! l; S' R* nblnretval = Part.AddCustomInfo3("", "设计", swCustomInfoText, " ")
/ i2 v( r" b/ ]; y' o& Y: Q5 SEnd Sub           根据梁大提供的修改方案,已经修改好,下面放出最终版的宏,希望对大家有帮助。自定义属性可以自行修改,分隔符"_"可以根据自己的习惯修改为空格或这个其它符号。再次感谢梁大!, s4 z. T( {: Z) k) L4 S

  h$ G$ b! l1 P' [* y7 C# R; d  Y& H7 m. c
' n7 I5 D! d# U3 y$ f
9 x8 c2 J, r5 I  Z$ t3 r

图号分离(最终版).rar

8.66 KB, 下载次数: 201

评分

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

查看全部评分

发表于 2015-7-9 20:18:20 | 显示全部楼层 来自: 中国广东深圳
我觉得图号和名称用这个宏自动分离确实不错,至于别的属性,完全可以用属性填写卡来完成,更快捷。当然也不是说楼主的做法有什么不好,毕竟有探索才有进步。
发表于 2015-7-9 20:34:42 | 显示全部楼层 来自: 中国北京
设置好零件模板后。。属性都可以自动出来。。。。做一个宏有点小题大做了
 楼主| 发表于 2015-7-9 20:49:51 | 显示全部楼层 来自: 中国广东广州
Atropos′ 发表于 2015-7-9 20:34 static/image/common/back.gif! U) q  |* M: h% x, V8 B
设置好零件模板后。。属性都可以自动出来。。。。做一个宏有点小题大做了
* N$ a0 Z* y8 W5 `4 B
此宏的主要目的不是用来添加自定义属性的,是用来从文件名提取物料编码和名称的,顺便增加了可以添加其他属性的功能。其实还是有作用的,有时用了空白的模板,没有添加自定义属性,这时,就比较方便添加了
发表于 2015-7-9 21:19:30 | 显示全部楼层 来自: 中国江苏镇江
whoeric 发表于 2015-7-9 20:49 static/image/common/back.gif
, P( n' g& E' f1 V) \& V此宏的主要目的不是用来添加自定义属性的,是用来从文件名提取物料编码和名称的,顺便增加了可以添加其他 ...
" n6 x9 ~9 T* c0 D
“有时用了空白的模板”,楼主,您日常的工作是有多漫不经心?3 V0 {) _2 ^9 O- i$ G# i; U
从文件名提取名称和编码,这个用宏是没错的。
4 F% f: m! R  g8 Y' [1 I添加其他属性用模板可以完全解决,没有必要与宏扯上关系。
: }, O! o% A" _2 T/ a
 楼主| 发表于 2015-7-9 21:37:11 | 显示全部楼层 来自: 中国广东广州
Atropos′ 发表于 2015-7-9 21:19 static/image/common/back.gif0 w4 E. M% W- V. v
“有时用了空白的模板”,楼主,您日常的工作是有多漫不经心?
% H  t. x3 @# y6 c& j# `& t. U从文件名提取名称和编码,这个用宏是没错 ...
1 v5 @3 M& }# `4 t
不要动不动一副教训人的架子,多一个功能有什么不好吗,你有本事解决了,我也是佩服你的,解决不了,你看着就行
发表于 2015-7-9 21:50:03 | 显示全部楼层 来自: 中国浙江嘉兴
新增重量,1#原檔修改如圖示
9 C- p4 x, C- ^4 fstrmass = Chr(34) + Trim("SW-Mass" + "@") + c + Chr(34) '定義重量變數(複製用的)
  @) l1 k- r. }% t/ k! W/ X7 q' G5 u! J7 D! d" ]% I
0 h  T( \" \  N7 l$ L. o& R
3.png

评分

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

查看全部评分

 楼主| 发表于 2015-7-9 21:52:09 | 显示全部楼层 来自: 中国广东广州
本帖最后由 whoeric 于 2015-7-9 22:07 编辑
* W5 C; C% l8 M0 ^0 W) A/ F9 `2 w
ryouss 发表于 2015-7-9 21:50 static/image/common/back.gif7 i& S  S$ c" ]- n& \% o- m
新增重量,1#原檔修改如圖示7 {* H0 L! ?8 }; j/ ~# M
strmass = Chr(34) + Trim("SW-Mass" + "@") + c + Chr(34) '定義重量變數(複製 ...
$ [1 F2 k/ H: R2 V/ u* d8 \( H
非常感谢royouss,论坛高手总是能真正解决问题的,万分感谢!

点评

客氣了!  发表于 2015-7-9 21:56
 楼主| 发表于 2015-7-10 08:46:34 | 显示全部楼层 来自: 中国广东佛山
现在对我来说,很完美了。这个宏可以从文件名称中提取物料编码和名称分别填入自定义的属性里,并且增加其他相关属性。如图,1是运行宏之前,2是运行宏之后。
) ~  ~# J0 H2 ^/ q' R

运行宏前

运行宏前

运行宏之后

运行宏之后
发表于 2015-7-10 11:48:17 | 显示全部楼层 来自: 中国山东青岛
问题解决了就OK!!!!!
发表于 2015-7-10 21:32:52 | 显示全部楼层 来自: 中国广东深圳
whoeric 发表于 2015-7-10 08:46 static/image/common/back.gif
" U9 K" @4 [7 R# Q- a- w现在对我来说,很完美了。这个宏可以从文件名称中提取物料编码和名称分别填入自定义的属性里,并且增加其他 ...
3 m3 Y% o: ]8 c: [, Y& z
高人,你能把这些属性添加到“配置特定”选项卡里么?

点评

參看13#  发表于 2015-7-11 17:07
N大有關 “配置特定” 尚沒搞定?  发表于 2015-7-10 21:44
发表于 2015-7-11 09:28:58 | 显示全部楼层 来自: 中国浙江杭州
whoeric 发表于 2015-7-10 08:46 static/image/common/back.gif6 f- k0 \1 \' ^  ^3 D: j9 d1 _
现在对我来说,很完美了。这个宏可以从文件名称中提取物料编码和名称分别填入自定义的属性里,并且增加其他 ...
  J2 Y% r! @$ ^% i8 ?3 e
改成了分离编码和名称了,图号空出来了
发表于 2015-7-11 17:07:12 | 显示全部楼层 来自: 中国浙江嘉兴
本帖最后由 ryouss 于 2015-7-11 19:08 编辑 # V. U2 E2 X5 ~! D- k7 z# c2 b
+ _5 n/ `6 q% g+ b* y! @
回11#之需求   属性添加到“配置特定”3 w+ k$ Q; v4 U9 z
條件是依原樓主之格式- u6 _& R0 H# Z! a& U
把對應的屬性欄名 " 英文名稱 " 自行修改為 " 簡體字 "
/ E; `9 T8 M1 Z; T  I# _" q% \$ M6 o, m8 Z
1.png
# `# V/ r4 p4 k2 D9 g& e: [2 M: M! D* C
1 M+ D3 o/ K  H6 S- U 2h.png
; @2 w. f) L5 k2 \/ r
! k4 @9 f5 {, _, q  c7 F" c test0711 - configure specific.rar (12.67 KB, 下载次数: 55)

评分

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

查看全部评分

发表于 2015-7-11 21:20:03 | 显示全部楼层 来自: 中国广东深圳
ryouss 发表于 2015-7-11 17:07 static/image/common/back.gif5 ~) Z" I! k7 K2 N! ~% W  {7 h
回11#之需求   属性添加到“配置特定”
5 T0 j  u! F- t條件是依原樓主之格式9 M, M- q  e1 I" S/ J* C
把對應的屬性欄名 " 英文名稱 " 自行修改為 ...

. \0 E8 t% p* Z谢谢梁大。正好我用的也是SW2012,我试下。
发表于 2015-7-11 21:58:09 | 显示全部楼层 来自: 中国广东深圳
ryouss 发表于 2015-7-11 17:07 static/image/common/back.gif
6 b) h! y3 k" r7 n. E2 k4 K7 Z回11#之需求   属性添加到“配置特定”
- C3 M4 s7 w9 L+ x3 f- {條件是依原樓主之格式
& O! L( q' W5 c. \把對應的屬性欄名 " 英文名稱 " 自行修改為 ...
% x+ v. b6 j3 A+ k3 Z4 d! B  N
梁大,我这里测试,属性是添加到了配置特定栏,但是读不出零件材质和重量。我的宏文件写入的代码是"SW-Material@19870105_测试用零件",没有自动添加文件后缀名。我把strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)这一行代码改成strmat = Chr(34) + Trim("SW-Material" + "@") + c + ".sldprt" + Chr(34)后就可以读取到零件材质了,不知道为何您在执行代码时不用添加 ".sldprt" 这一小段内容就能在填入属性时识别零件名后缀我的却不行?恳请指点。谢谢

点评

參看17#  发表于 2015-7-12 07:38
发表于 2015-7-11 22:24:01 | 显示全部楼层 来自: 中国浙江嘉兴
NC@jiang@nan 发表于 2015-7-11 21:58 static/image/common/back.gif$ Z. |7 m, M  g4 y: L
梁大,我这里测试,属性是添加到了配置特定栏,但是读不出零件材质和重量。我的宏文件写入的代码是"SW-Ma ...

! M  M. c* a$ h, i2 C: S) H如圖所示9 H% _# w, y0 u% l% h& y5 X

! `2 t! g& L9 `! r. {6 R
: o5 C4 i+ o4 z( r YY-1.png
发表于 2015-7-12 01:24:38 | 显示全部楼层 来自: 中国浙江嘉兴
NC@jiang@nan 发表于 2015-7-11 21:58 static/image/common/back.gif5 A+ r" Q) R! C) G2 I
梁大,我这里测试,属性是添加到了配置特定栏,但是读不出零件材质和重量。我的宏文件写入的代码是"SW-Ma ...

) L9 Q4 m7 n: o6 V# n6 O3 t找到問題點了!
6 v6 o- j( ^6 u! `5 [須把WIN作業平台的"文件總管"里,有 "隱藏副檔名" 的設定打勾取消.
" Q* h" M; H- {$ l$ V) n/ u就是 隱藏了副檔名 C變數才抓不到 .SLDPRT 的副檔名.
# M( l4 N+ t6 f" M5 C
' F* K& w" ]' s0 Y) C) h/ c
操作如圖示
6 L, p5 y$ Z; Y5 l7 i9 G( q' x3 K- p; d' y3 C  k8 f

7 L. ~0 f0 H2 D& L PPP-1.png
发表于 2015-7-12 23:14:23 | 显示全部楼层 来自: 中国广东深圳
ryouss 发表于 2015-7-12 01:24 static/image/common/back.gif
8 ~2 S. f2 A* m: P找到問題點了!
. L9 X5 r. c1 R% L& f+ P% _: \須把WIN作業平台的"文件總管"里,有 "隱藏副檔名" 的設定打勾取消.% V' ^  f" Y- f! T! w
就是 隱藏了副檔名 C變 ...
( W* c! i$ ?9 v$ T0 G2 H& h
嗯,我估计也是这个问题。我的个人习惯是不显示已知文件的扩展名。看来只能用我修改的那个方法对付着用了。. g4 W6 Y5 z4 d( g; n; k, L# A
谢谢梁大回复指点。

点评

不謝了,能解決就好!  发表于 2015-7-12 23:58
发表于 2016-1-13 10:38:37 | 显示全部楼层 来自: 中国湖南邵阳
讨论得很精彩,但若要实现“配置名称”图号分离,请问这个也能实现吗?
发表于 2016-11-9 22:02:30 | 显示全部楼层 来自: 中国湖北武汉
仔细研究了这个帖子,不知变量e的初始值是什么?不知哪位能在百忙中抽空解答一下?谢谢!
发表于 2018-7-29 18:39:45 | 显示全部楼层 来自: 中国山东烟台
十分感谢楼主,真的是省了很多麻烦,谢谢
发表于 2019-3-13 18:11:05 | 显示全部楼层 来自: 中国山西太原
ryouss 发表于 2015-7-11 22:24, A$ x3 x& S; q/ |$ K7 R: q
如圖所示
+ M( t, i! E! \2 o* G9 v- W
'设定变量
9 }8 r1 y0 X, E7 z) \# P1 G* I: Mc = swApp.ActiveDoc.GetTitle() '获取零件名( o4 p1 K9 u8 c, M/ F6 c. s
+ j( S6 ~$ h( ^' |: h. Z- w3 }
strmat = Chr(34) + Trim("SW-Material" + "@") + c + ".SLDPRT" + Chr(34)
1 R: `2 f" i+ i' F1 n4 W) Mstrmas = Chr(34) + Trim("SW-Mass" + "@") + c + ".SLDPRT" + Chr(34)/ Y; Z/ [# T1 ?6 t
9 p  _: I, M; N. ]8 p( Y' u# S+ h
能否增加 If 语句,区分开装配体和零件尾缀(扩展名)的抓取,请大师赐教。& s6 ~2 a. @- m. L( g% S7 \0 C

& A3 n! R, p6 i* K7 y'tempvalue = Part.CustomInfo2("", "材料")
: \/ c1 i; x# [8 Gblnretval = Part.DeleteCustomInfo2("", "代号")
' N6 y. g0 I7 U2 {1 @3 i% Ablnretval = Part.DeleteCustomInfo2("", "名称")
( S6 W  O3 d1 M' V0 f9 U1 }  i1 ^$ Tblnretval = Part.DeleteCustomInfo2("", "材料")
2 z( c, Q2 ?% w" bblnretval = Part.DeleteCustomInfo2("", "质量")

点评

应该可以用 if gettype = 1 then elseif gettype =2 then end if 代码来分别操作零件和装配体吧。好几年没研究这个东西了又生疏了,惭愧,惭愧。  详情 回复 发表于 2019-6-29 01:36
发表于 2019-4-15 14:34:01 | 显示全部楼层 来自: 中国山西太原
最近大神也不来了。
发表于 2019-6-25 09:33:52 | 显示全部楼层 来自: 中国山西太原
每天都在等大神来..............
发表于 2019-6-29 01:36:43 | 显示全部楼层 来自: 中国广东深圳
wyz182 发表于 2019-3-13 18:114 C6 M5 V  O& C' }
'设定变量' J! d" Y3 [! x9 y3 D! q' Z
c = swApp.ActiveDoc.GetTitle() '获取零件名

8 j! E( b& l# T% k应该可以用 if gettype = 1 then; H: \7 f! m1 `+ A- G- s
elseif gettype =2 then
) j( P, e% X  T! N* Xend if 代码来分别操作零件和装配体吧。好几年没研究这个东西了又生疏了,惭愧,惭愧。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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