机械社区

 找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 8456|回复: 20

图号分离

[复制链接]
发表于 2019-4-22 14:18:55 | 显示全部楼层 |阅读模式
软件小白一枚,因为公司需要统一零件模板,并且和我们搭建的PDM关联,需要将文件属性写入配置待定里面。之前用图号分离宏只能把属性写入自定义信息中,配置待定中只有空的标题,分离后的内容不能读取。6 Y" n& e: u, P% c; b0 v
下面是我在网上找的说是可以将图号分离后属性写到配置待定的代码,实际调试有错误,见红色代码。
7 K" Z# }2 T6 w" c---8 i0 J3 U6 d# Z
Dim a As Integer
9 @9 P% U$ S  F- O9 p4 l" u% F3 N' i: p6 F- |( g2 S1 w, j
Dim b As String
  w3 I; x& w! [& z! k: ?. m6 o1 \+ g; [8 d
Dim m As String
, [# |( d1 g; k7 j' B) A  r/ J( K- Z" y8 K3 _7 k3 k
Dim e As String, R% T: Q% v8 A7 y  B$ B* `0 n
$ P* k' E4 {. n  ]# f- |. G% _
Dim k As String
( d* ^6 K! x1 s& \# g! w; Z% a9 @# y8 w! d. p* G
Dim t As String
3 p; v  ^( ^4 r- @4 C& G/ T- l) T  b3 }8 q, g+ V: z
Dim c As String
; F! q8 O# g  G$ L( E. y8 H" S  x  c+ Z5 {
Dim j As Integer. H3 Y1 }/ K9 S7 ]

0 g! ^. ?: v  K! J. b9 e0 G- E! C. fDim strmat As String
$ Q/ K: p# N( \) G7 P8 W
, s5 A, K& P/ `% H, yDim tempvalue As String
3 ^( p, F1 Y( i( K
7 ~, e# K' N6 w) {Dim Part As Object
7 y! \* E$ V6 ]) y/ W( ^7 q6 D$ S% Q2 J: `+ z. Y$ Z- [
Dim swApp As SldWorks.SldWorks
& q7 }9 B5 J7 t! T. a
4 ?: P; @* w  b3 N9 c1 ]" ZDim swModelDoc As SldWorks.ModelDoc2
3 c+ Q) k( U; B. M. }  g) {& z" L& t3 m, v( F/ `* [
Dim swConfig As SldWorks.Configuration2 N: ^0 ?! R, ]3 _# e& j- w5 u& a, Z7 a5 a

, c2 O8 J4 t3 ]$ t1 `0 Q+ KDim swModel As SldWorks.ModelDoc2, o. y0 f3 ]5 @8 T: R6 p' u

/ k. r% a+ u' G  y% k0 U; X! U. WSub main()
1 x+ |3 Q: |' |# ]( X* \# F" z* Y6 T: v! L/ K
Set swApp = Application.SldWorks+ l' e" \2 M& K- n  i; @& v/ N
. @3 \' ]) C  z. p
Set swModelDoc = swApp.ActiveDoc5 m9 D! e" b  E& w, F0 w

3 P& s( O6 Z7 M1 R+ {Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration% c5 B6 d# Y* S4 b% D

% Z+ j8 m9 u0 B; K& {7 y& B8 nSet swModel = swApp.ActiveDoc9 W6 D: k9 D/ ?' h. p6 i% Y
* d' T) f0 ^3 A/ N* E9 R6 O3 K& }! {
Set CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguratio.Name) '配置特定延伸! m/ J9 h* O% f5 Q( ]3 @3 `

& [0 @# V6 Q* H' h$ @' ~& M% G'设定变量
7 ?  N6 A! h/ c/ P" x6 z" y' z& o' j1 V
c = swApp.ActiveDoc.GetTitle() '零件名
0 D! ]1 P8 B* h) G
2 X. a' y! b$ a' q0 Tstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34): ~! i! @9 _. X  T& N9 T) `$ q; p
8 y3 W0 ~7 `; ^9 x. N+ ?# J
a = InStr(c, " ") - 1 '重点:分隔标识符,这里是一个空格,也可换成其他符号( b, ~/ @2 o9 E8 K( k

) Y6 d" j- |3 K! CIf a > 0 Then% Z8 N/ s% B) g' E/ e7 |8 ^
( `! f) |, c" [0 w; A
k = Left(c, a)
" N' ]9 B' O- U; M% M0 |( A5 T% ^$ ]& R3 g. N
t = Left(LTrim(e), 3)( H0 b1 T2 L4 t& [3 h" E+ Q

2 d4 R' j9 B1 E- C) U& G# ]If t = "GBT" Then
( Q" B5 W- E* k8 F3 V( V* ]- Q9 l  Y1 A% r7 v8 f' z
e = "GB/T" + Mid(k, 4)3 i# u8 j: ]6 I9 X& p( S
6 j$ g! @% C9 j3 H& ]
Else
8 W, o' \- ^8 X5 w9 {% |8 }, [: R! ~. k+ p, y* p% g
e = k2 |) ]; {% h3 h( v+ g

& q6 Q: r/ ^+ m2 z, W% M# hEnd If
, {' d4 `9 G8 l
: F. O5 S1 @& n, V$ Ob = Mid(c, a + 2)
( C9 F" R& w2 \" h  Y# I' m& _0 D$ m3 C$ o; m3 N
t = Right(c, 7)$ v4 F5 U- p5 C3 i- z' I4 _
+ _7 Q: ^! L) d- I6 ~- Q
If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
! p3 q9 W6 {/ k1 u, ]( h2 }
# M7 J, x2 B/ d% d3 L( `j = Len(b) - 7 '消除后缀(区分大小写,即含4种)! v. L" i3 R. B7 |3 J3 M! M

( m" c4 W  l' Y  x; TElse9 C9 L( A; L9 r9 ^' l$ ]
0 j- k6 q. f$ {9 V1 l
j = Len(b)3 E0 q+ e+ z" p6 [$ I" x( q

7 |* ~7 p, m# X' t5 _3 }End If
# A" E- `; h9 b* T: K: y. U7 Y% [2 G; P" p; m( j4 e
m = Left(b, j)
3 Z6 B- W; X$ [2 R0 m
2 F3 e4 X4 ?" D0 D0 h+ c6 UEnd If6 q9 j) A2 D! i

. s% Y. d0 w7 w  Q% w/ ^, f# J'删除栏  `7 j2 z+ X3 n* W6 z

" x" |0 y( U7 q9 \) r4 U4 g8 qCustPropMgr.Delete ("图样代号")
9 c% m4 F4 o! ?( B9 _- p+ n8 y, \: H/ V8 m: D9 `/ p
CustPropMgr.Delete ("图样名称")
. b7 f9 S; r6 x1 p2 |
8 {- I+ h1 m+ m2 g- ACustPropMgr.Delete ("材料")4 `: g0 a: y" B- }" ]8 y. L
3 X' H& R* u+ u  d
'新增
7 O; y2 j0 Q$ u7 A  h- n8 x) z2 _
) V# c3 L" E2 V* |2 WCustPropMgr.Add2 "图样代号", swCustomInfoText, e
" r8 \+ l$ }( L2 W& M* N) Q6 x* Z$ i6 V# {1 D
CustPropMgr.Add2 "图样名称", swCustomInfoText, m
* e7 F( E# N$ V: U  P4 r/ J0 w% U. p& s! T
CustPropMgr.Add2 "数量", swCustomInfoText, ""
+ M9 j3 L: ~' X+ n, U/ {
$ B9 s. v. q/ A6 D2 O6 ?/ G/ ^CustPropMgr.Add2 "材料", swCustomInfoText, strmat
8 I; \6 z) V. p9 _% ^" A. H1 T* j1 W" u# w# O4 f6 y
CustPropMgr.Add2 "单重", swCustomInfoText, """ I* A, S$ j2 A6 s& E
' |6 V* h- j4 ]  u9 H; F
CustPropMgr.Add2 "总重", swCustomInfoText, ""
- A# N3 ]* e" N2 T7 `' E( i0 O( ]+ p2 q4 n) n5 F* S8 R
CustPropMgr.Add2 "备注", swCustomInfoText, ""
3 h, o8 ^: L3 M. S7 J
- l, ~$ A0 \/ u/ h; A4 m/ u$ CEnd Sub
7 `2 j7 Q1 g& b% p: H---
) O+ d. W+ e, E7 O& Y想请教下大拿们,这个代码要怎么修改才能管用。之前的图号分离宏,可以让所有属性出现在自定义里。或者有没有办法加一段自动复制自定义里面属性到配置待定里去的代码?& K$ _+ _: O, E) J( Y1 p$ o, H) h
) W* }* P/ M3 {1 H
在线等大神解惑
% q9 F  N0 ^4 Q9 s6 J( z8 B2 X4 U" j3 \% O& J7 E

6 S9 A4 s" P5 J) M7 o5 U

本帖子中包含更多资源

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

x
回复

使用道具 举报

 楼主| 发表于 2019-4-22 14:32:04 | 显示全部楼层
可以用宏来实现自动复制吗,尝试录制宏,没有用
回复 支持 1 反对 0

使用道具 举报

发表于 2019-4-22 16:58:29 | 显示全部楼层
叫我大哥,我可以分享现货给你。。。哈哈哈哈哈
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-4-22 17:10:44 | 显示全部楼层
Wukui* 发表于 2019-4-22 16:58
5 ~7 V9 {) z  [& J/ D+ W$ f叫我大哥,我可以分享现货给你。。。哈哈哈哈哈

$ H9 X, G' z% \) S5 [大哥好: y2 e) `8 l# U( B1 T1 E& M% |

点评

应该是大哥大嫂过年好  发表于 2019-4-22 19:04
回复 支持 反对

使用道具 举报

发表于 2019-4-22 20:15:19 | 显示全部楼层
6 W1 u' D3 t# q  P$ ?
'定义sw
/ O, h8 j" w1 C, I
% c# d- @3 ^6 U% s5 j# g! ~5 [; k& L/ D' Y* H8 c
- q& a( l+ f7 P2 s5 y0 |! E
Dim a As Integer3 l* A0 I' C. j2 p1 _

$ o( K, w* _% Z7 s8 C! ~# I- F; xDim b As String: T) I7 U0 u4 H! i# d: k
4 Z, g" I3 p2 {
Dim m As String* L; Q( K) _- r& ~2 F3 f
" I! x# C5 W8 C0 u$ ^8 H
Dim e As String( V, C  Y/ k! V. b. _* Z0 j
& t. F$ j/ o* F( d; _2 I9 H2 [4 F3 d
Dim k As String. I; E  g$ @; ^+ ^  b, f  \2 B6 I

" ]/ [; G) D2 [- dDim t As String
- u  W9 v7 z5 f) e! r8 `& e& K7 p- h
Dim c As String
3 f8 k& O3 u/ i% w6 {
& W/ \! t. Y6 N+ _Dim j As Integer$ n- Q9 b& A0 ]" J! T
  M: o  w  X( C# `# [
Dim strmat As String9 I7 w8 Y/ H& k/ b4 v
9 ^+ F4 [1 L" l  b0 u$ t; }# g
Dim tempvalue As String1 u  A0 y; r3 d+ M6 A, x
4 @* _1 U+ J. L6 |# N: M5 o. D1 ^
Dim Part As Object
. \& X4 v5 u& G' _" H. j& M# d" V' b6 u: H! b) o. _+ [
Dim swApp As SldWorks.SldWorks" s7 d& Z7 g7 u

3 Q$ a# O7 e. Y2 @) eDim swModelDoc As SldWorks.ModelDoc24 q# B9 v) r  m+ A

: G( `3 w2 r( v4 P" g& v, x9 a1 ?Dim swConfig As SldWorks.Configuration. C/ |( T8 @4 Q6 f6 W  ]5 ]9 }  S
, Y- \1 T- _4 [6 e8 X( Z
Dim CustPropMgr As SldWorks.CustomPropertyManager- ^6 C+ x1 Y7 c0 \
6 I) X3 ^( [9 f+ Q; b& e# v
Dim swModel As SldWorks.ModelDoc2
4 F( Z, |, i* q; R: C
* L/ v, P+ s( f  [5 m
& C9 ~  B9 i. O5 e5 N% I
4 N) n9 w& B8 n1 ~Sub main()9 A9 B/ S8 P2 f6 [8 D' w% Y
- F, f+ v( @9 W
Set swApp = Application.SldWorks
2 V# p8 i/ s( H2 {' C/ C7 B- {2 }, z! @9 R
Set swModelDoc = swApp.ActiveDoc
+ A6 }( S! R9 h' N4 D8 x/ Z# O: G1 ^
Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration% m- r. i5 @- H/ Y; c$ S% n) C) P
7 ~! Q1 f# X9 J& b  q
Set swModel = swApp.ActiveDoc
" z0 B% B% z6 M5 L! Q9 l$ X$ V% Z- `$ K, Q, A9 E1 w
Set CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸
: H4 ^7 y3 O+ t$ w  L& q
4 Z, @- `* M9 ^- I) r  T7 }$ F  p& M  B+ w) b

0 ^$ I; m8 U) d/ B- ], m+ k) V& Q'设定变量
- C( S2 u4 K6 y' M7 ^1 }' K# m3 }' Z) L" R, d1 z
c = swApp.ActiveDoc.GetTitle() '零件名
/ U4 R" e: t) Q$ [- M1 P3 ?- z
4 ~) J+ f8 M) K. N8 istrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
$ l, C3 \1 s! E' r+ K  `' B' }$ w, D; E3 G0 {: q
a = InStr(c, " ") - 1 '重点:分隔标识符,这里是一个空格,也可换成其他符号& }4 f1 T% k7 r1 \6 I  Q
$ ^1 T- N! z) y" a
If a > 0 Then
+ T2 m7 C" B* d+ G) i. z
! B7 u" _* P3 _  i5 ?k = Left(c, a)
8 K: B. S. E8 G& G' H; h9 j
; ~( S  \. y1 |; t8 ]9 ~t = Left(LTrim(e), 3)
4 F) w5 `9 Y$ H$ k8 ?7 G1 w3 K1 C0 }7 }, F1 C
If t = "GBT" Then
, `4 T7 b( i- o+ H! p5 O! b
# U0 E3 T# V' u& u4 Q  F/ |e = "GB/T" + Mid(k, 4)
# _" I* J0 U0 d- |0 e" T8 J8 X" m* r+ `8 K( [. n: s
Else" Q0 v0 W3 m5 M% g
3 e" t3 N- ^8 G  N+ K' ~) J
e = k
0 `0 R+ z- g+ G$ O% Y& Q% x! q' [% o% O$ I+ ~( [# x
End If
; ?& Z6 ~" d) t( |
$ l0 X( \' P7 ^7 wb = Mid(c, a + 2)8 X# ~/ p) R- @; p
0 T+ @: M. s$ V5 W; [# W6 }
t = Right(c, 7)
. X* e+ f. l$ \4 d0 S
/ i8 q( i  a6 `8 [If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
6 m: Q  P6 ]8 p3 D3 A
7 {' u" f. w# rj = Len(b) - 7 '消除后缀(区分大小写,即含4种)0 Q/ |$ b. ]+ C9 r6 h* q

3 W+ s$ S+ W, ?# S# N8 }Else# ?  X3 c2 A6 _, }. f/ J# L8 j/ I) W& V2 M

/ l' |3 U9 z% i; @' D8 Zj = Len(b)6 |1 ?9 j( @% W1 I% }* e7 Y+ B
- B0 K4 k1 G8 H! x
End If
1 H. }1 L- S- C- n: x  @7 T2 _9 m; L
m = Left(b, j)
9 [7 v" \: @/ J  _1 D
7 D3 Z) u: f! k/ J" ^9 X7 F! cEnd If
7 S6 |# F0 w- `4 S/ d/ o9 x. b  g. q* C# h% Z) f
'删除栏
' n; s5 E/ u& F6 w
: J% H, z. Z( i/ w$ ]7 RCustPropMgr.Delete ("图样代号")" A6 M+ _& n$ }4 o' S
% ~# P/ y  j8 Z1 C- W
CustPropMgr.Delete ("图样名称")
' {+ G% F! ~! n/ v5 s0 B* u+ o/ q! `8 _' U2 s, I
CustPropMgr.Delete ("材料")  {8 M) E) J/ h& R0 f
0 t+ c' }1 q* v# |
( t" V( q) r9 K: \+ T

3 T0 I) X) i1 L( i) z/ B1 j'新增, C" r& m/ K1 B. w. N% }6 }3 ]

% `# s# P$ L4 }8 K. QCustPropMgr.Add2 "图样代号", swCustomInfoText, e
+ L, X- `2 t) }2 N, W# [7 H8 j: R7 z# _/ E/ ?: I' R$ [% [3 T
CustPropMgr.Add2 "图样名称", swCustomInfoText, m
) l* {$ v7 V# W* Y" ~  o* g' S: @2 M' @7 P" [6 ]2 [: U0 W
CustPropMgr.Add2 "数量", swCustomInfoText, "": f2 Y# J# J1 x0 M
4 N8 F7 `; L5 h# j. ~( t
CustPropMgr.Add2 "材料", swCustomInfoText, strmat3 S) u1 [% t; g% q
* ~' ]1 k4 v' t4 I
CustPropMgr.Add2 "单重", swCustomInfoText, ""6 S% S; T, K6 q+ S
7 k, o& v: p. `5 r6 ^
CustPropMgr.Add2 "总重", swCustomInfoText, ""
; @) T. L3 F0 }$ ?* \( h& N3 r* M9 f3 u
CustPropMgr.Add2 "备注", swCustomInfoText, ""7 S- s5 J& A7 g6 `( e
, l/ ~- L: Y7 k$ T6 O3 _( H

" N: w& r- \1 L$ k4 |  E% A+ M' X! M2 {2 k+ {- f. ~1 ]
End Sub
% A7 Y% i* ~, e  ?. O) ?4 W* T
# l8 y9 Y( B+ v* Y亲试管用,注意图号与名称中间间隔是“空格”
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-4-23 09:24:17 | 显示全部楼层
金卯刀-劉 发表于 2019-4-22 20:15% y9 ?* k4 n3 s/ c2 p; a% ~
'定义sw
) M4 l6 ~( _' P4 W3 w) \# ~
感谢大佬,实测有效。但是还是有点小遗憾,不能实现想要的功能。$ q' O1 n$ k! s+ J, Z. L# r
----
1 N# C& a: n. R/ C# N  a; TCustPropMgr.Add2 "数量", swCustomInfoText, ""
3 f3 Q+ f, j) T" N8 ^  m8 P: q0 a! D8 z

  T5 x) R1 ~- C# d  t& M5 v  VCustPropMgr.Add2 "材料", swCustomInfoText, strmat$ _0 z4 l: I1 _) ?! l
7 P2 p! T) _' V# O& n% S6 F8 ?  M; M
----
. M5 p/ W+ ]' g; F* D如上面这两段代码,材料后面strmat,会直接连接零件的材质,而类似数量这样后面是双引号的,则不能链接属性。2 p  L# ~4 i! s- v
属性编辑标签在自定义和配置待定中只能选择一个,这就很尴尬了。5 d! \/ F# s5 a' J. a6 G0 X$ ^0 Z
9 b. T9 O6 z+ D+ y" @2 i
不知道大佬有没有办法,可以将代码中这些信息直接链接相关属性?感谢大佬
9 h, k6 L5 {% j- `/ B# {& W
回复 支持 反对

使用道具 举报

发表于 2019-4-23 15:40:38 | 显示全部楼层
呐,你要怎样 发表于 2019-4-23 09:24
5 ]: u1 ]; M, H; W感谢大佬,实测有效。但是还是有点小遗憾,不能实现想要的功能。
: f% [/ j9 t3 g' a# Z/ O----2 o1 h  L9 b4 S3 }; U- A9 Q
CustPropMgr.Add2 "数量", swCus ...

. J! d' O) I2 o( g+ A" @- I6 {1.有办法在配置特定里增加数量,但那是另外一个宏,是统计整个装配体里的零件自动写数量到你指定是属性名。并且是在配置特定里。& D# m6 _+ P4 P- M
2.材质是要自己选择的,一个宏没办法写不通用的东西。如果想通用只能是关联零件材质属性例如"SW-Material"
, U% y% c1 c+ S7 U; m3.不知道你用过属性模板,你需要的这些是可以通过属性模板实现的
+ s- S( u$ H* u/ Q; \

本帖子中包含更多资源

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

x
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-4-23 16:49:30 | 显示全部楼层
金卯刀-劉 发表于 2019-4-23 15:40
& T9 \+ t5 T: b  e; _& ?9 g6 y0 E' g" U1.有办法在配置特定里增加数量,但那是另外一个宏,是统计整个装配体里的零件自动写数量到你指定是属性名 ...

( N, W% [4 p% r; V4 G+ v  c" G属性标签是有用的,但是不能同时写入自定义和配置待定,只能选一个。零件绘制完以后,材质、数量等信息就已经通过属性标签录入了,现在其实就是想让自定义里的信息同样地出现在配置待定里。
' o, P# R6 h0 i8 P; ^因为看到大佬贴的代码里,最后Add的东西,如下:6 X9 a( q' M7 @* H! S& E- ?
----, v6 v6 j; E) M3 {/ }8 i& y/ ~% `3 @
CustPropMgr.Add2 "图样代号", swCustomInfoText, e# J  g" z& z* F6 s
----
: F5 S' f% a$ m" n3 X0 {+ S) K, {这里的e和我之前的图号分离宏里面定义的是一样的,然后运行完前一个后,再运行你发的代码,它会同样的读取e的信息,然后再配置待定里面就会出现和自定义里面一样的图样代号。只是好像不知道可不可以把其他的信息都定义为某个字母,这样是不是可以相互关联上?
0 |' ~9 |  g0 @/ P! ^6 `

本帖子中包含更多资源

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

x
回复 支持 反对

使用道具 举报

发表于 2021-7-30 10:28:29 | 显示全部楼层
看起来不错
回复 支持 反对

使用道具 举报

发表于 2021-11-30 18:12:42 | 显示全部楼层
金卯刀-劉 发表于 2019-4-23 15:40
+ U* T6 J4 ^9 j2 I1.有办法在配置特定里增加数量,但那是另外一个宏,是统计整个装配体里的零件自动写数量到你指定是属性名 ...
( z1 k" C5 _8 T" K
你好,请问一下图号分离能实现三段分离吗?比如图号 图名 备注
" J* n/ P$ g: J: k
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

小黑屋|手机版|Archiver|机械社区 ( 京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号 )

GMT+8, 2024-12-23 16:48 , Processed in 0.055703 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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