机械必威体育网址

找回密码
注册会员

QQ登录

只需一步,快速开始

搜索
查看: 6452 | 回复: 19
打印 上一主题 下一主题

图号分离

[复制链接]
跳转到指定楼层
1#
发表于 2019-4-22 14:18:55 | 只看该作者 回帖奖励 | 倒序浏览 | 阅读模式
软件小白一枚,因为公司需要统一零件模板,并且和我们搭建的PDM关联,需要将文件属性写入配置待定里面。之前用图号分离宏只能把属性写入自定义信息中,配置待定中只有空的标题,分离后的内容不能读取。
$ G$ a. R; c/ Y# V$ W# ^6 q下面是我在网上找的说是可以将图号分离后属性写到配置待定的代码,实际调试有错误,见红色代码。
7 f5 y( j: M* ^, t. Z3 {; T---# ?# J7 A9 y+ q2 Y+ k0 Z Q: `2 ^! J1 ]
Dim a As Integer
0 N2 ^: }8 Z" I" T2 m1 N. H( u7 r3 m8 S5 t
Dim b As String
* F Z! W% H# A+ _4 v1 k j( S$ }/ X# h' H% ?
Dim m As String6 o. u4 I( U0 a/ p! e
8 N) f7 V8 d1 l- a C/ ~( x
Dim e As String
}$ p3 K- O. a) d" q! a9 h3 f/ ]8 l( O {
Dim k As String% l0 r# S! ]! ]6 g

2 t: p+ q# d2 W! X) K% BDim t As String1 l. l* Z: U0 L0 H( I& u
0 I4 T0 V0 K; f! ?5 e* h, p8 v
Dim c As String
& N- e% [& M! g0 P5 x2 \2 [/ M/ R
1 ^* V* V: q$ c. n# q% v: N. tDim j As Integer
& v2 E! _5 \1 b( r0 T+ D
: |# W! ]3 {, z+ e( N& hDim strmat As String; |/ y ?5 i" o# q! ~! k
2 b: Z1 v% s+ X( F, d4 [
Dim tempvalue As String* n7 y8 y9 K0 b# r. m0 T" |1 D

& G" T" H2 D2 H* BDim Part As Object
/ t) e( e @: _ H. S' G3 H+ M/ B- h% ?. V( a
Dim swApp As SldWorks.SldWorks; r$ z" A! u4 m/ y7 m9 X2 \

. i/ ~/ ?5 Z4 }5 h) iDim swModelDoc As SldWorks.ModelDoc2
, d0 _. \* Q% L7 u* ]7 ^% x- S" F/ C% p! _
Dim swConfig As SldWorks.Configuration
+ U5 m: d! X9 Z3 b+ Z
' I# h$ B' X/ H% a0 p; q, H4 t1 B# oDim swModel As SldWorks.ModelDoc2P \' G0 a/ D5 J- S

2 E! N$ [% g; G3 X( GSub main()0 e* D/ }8 a4 ^( r9 b

+ B2 X- A0 K8 X. A- p1 x! VSet swApp = Application.SldWorks) _* o$ o' Z. h/ i& P8 }

, ?+ X: F4 k0 T5 ^Set swModelDoc = swApp.ActiveDoc) n+ L% @. K8 g
3 J; L5 Z* c0 Q
Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration
9 V: l0 h. s6 \) |# [% y5 d5 y; X/ Y, p8 `( d2 N; l# J
Set swModel = swApp.ActiveDoc# a1 `$ i, H, G* B8 v2 O$ h" A! D
1 `9 L. }' n, W. {! @
Set CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguratio.Name) '配置特定延伸9 ]! h- X- i+ Z5 K/ B& g$ Q: J

2 G$ s* _; h" c) L$ l, {+ ]. b* B'设定变量
6 N: q# `+ U' K. A2 r. C2 o: q5 u$ `0 F- Y# i
c = swApp.ActiveDoc.GetTitle() '零件名' w4 w9 T. ]& ~
: W/ I) `; V; N5 k% M0 @
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
# s' n% h v1 _2 X! R4 ?
' x; C3 q6 s/ X$ e6 V2 p& Da = InStr(c, " ") - 1 '重点:分隔标识符,这里是一个空格,也可换成其他符号$ S2 K* X6 `7 _( @( e

* ]7 D! v7 j' i( B3 x: PIf a > 0 Then
' j F; I9 i/ n
6 Q4 \2 K+ M: m' {. Yk = Left(c, a)
9 s* }! J! k7 X2 W
/ j: k. z! Y5 B0 g3 Y7 kt = Left(LTrim(e), 3)1 B: j' p! O7 C: T4 k) o
, @/ H* @+ }$ ]/ F4 T
If t = "GBT" Then) K2 v' G( H9 C$ c4 T+ m
! J7 Q; \, H$ f, Z
e = "GB/T" + Mid(k, 4)3 |% A2 e0 A, i% m/ |, d0 w

W/ x+ s/ F3 n6 S: nElse3 o! P' R- I1 }: F1 T5 B: S

+ Z) `# v5 X6 te = k
; s# w( A; n) v# y
_$ d i, f& W' i N0 N: eEnd If
& C1 }, n$ {) ]' S% b* y A3 @9 x9 R ^* p. F+ x! A* p0 n) C" u
b = Mid(c, a + 2)
6 }3 S1 @ E p+ b8 L3 A0 d1 Y; x$ \) B7 j1 A* L& I
t = Right(c, 7)
5 }3 S! q8 \% q1 ` m$ a6 U4 @. E/ {% G7 {' Y- Z2 K* O
If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then, I' e4 [8 J, ^, E
# t# I. [9 V4 |: t
j = Len(b) - 7 '消除后缀(区分大小写,即含4种)
- a; Q) d8 w! S; I+ K% B# G* c ~
# V# m% q* e- k" l6 NElse; M3 X o. H, G6 L

9 D' `1 V5 u/ r- C$ p' z- Q2 Q9 Qj = Len(b)
4 X6 ~5 Q6 \- Y& Q! m( @* w: G7 o& {* q8 N, s
End If
( k6 }; {! w* K s9 `5 O
! T: H; j; ]; u+ p, a) ~# Dm = Left(b, j)- s! Y: b, z9 o3 h5 g- u3 n$ P
+ H: O7 P( l6 F9 Z; T+ j. ]+ U
End If
- E) F4 T' [7 L3 [& ~& W5 \( q2 n# E( n& ^9 E% R. g
'删除栏/ V( v/ a* s4 o1 X

/ N8 n' d* H6 \6 ^* G) oCustPropMgr.Delete ("图样代号")
. B- ^1 [* |+ C4 G# A+ v; _7 B$ I0 `( o# i8 c
CustPropMgr.Delete ("图样名称")8 q1 Y- N( p8 v$ M" t' J

% B" a2 M) @! }4 h+ z- z# o8 L5 I5 KCustPropMgr.Delete ("材料")
3 S$ P% y& D, r, L
9 {! s' r5 J3 t G" ^+ i* K'新增
2 U" }8 ?1 a2 }: J, N
& Q) k. Q' O: }9 f# U: o* HCustPropMgr.Add2 "图样代号", swCustomInfoText, e# Z9 p% M r$ G; _" K7 j
! X& {" ~8 t6 C& A3 h
CustPropMgr.Add2 "图样名称", swCustomInfoText, m" k: f/ M$ x% V" V! P

# x+ d e, p, ]% C/ dCustPropMgr.Add2 "数量", swCustomInfoText, ""7 z: M% G, R/ U9 K

+ P# J) a/ s5 h% `- vCustPropMgr.Add2 "材料", swCustomInfoText, strmat, F; g8 {; j( }& o" L0 j5 J
, u; U% k4 D* l; W
CustPropMgr.Add2 "单重", swCustomInfoText, ""' @3 U0 @& j% [! F1 \4 i6 @

4 T0 [" [4 J2 A w; kCustPropMgr.Add2 "总重", swCustomInfoText, ""
) y1 `2 R! ~2 Z& U$ _/ R( J- a: Y: K* O: Z$ @+ f, D5 ]7 g6 Z
CustPropMgr.Add2 "备注", swCustomInfoText, ""6 d6 C/ g! {0 l: m2 V
' M/ ^ i0 A( z
End Sub
+ T: z4 V0 n# ~7 R: [& h5 {---
0 L: _+ c7 l b+ V. Z3 k想请教下大拿们,这个代码要怎么修改才能管用。之前的图号分离宏,可以让所有属性出现在自定义里。或者有没有办法加一段自动复制自定义里面属性到配置待定里去的代码?$ e9 d+ X' S/ L% S
: @1 {% P0 Z& @5 T* c
在线等大神解惑j% O2 @6 y/ R& b
3 `- t1 i1 a! k! d0 ~% z
4 A' H0 s, b+ i( I4 N* s7 {

本帖子中包含更多资源

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

x
2#
楼主 | 发表于 2019-4-22 14:32:04 | 只看该作者
可以用宏来实现自动复制吗,尝试录制宏,没有用
3#
发表于 2019-4-22 16:58:29 | 只看该作者
叫我大哥,我可以分享现货给你。。。哈哈哈哈哈
4#
楼主 | 发表于 2019-4-22 17:10:44 | 只看该作者
Wukui* 发表于 2019-4-22 16:58
$ L# T# t- {7 A$ m+ `叫我大哥,我可以分享现货给你。。。哈哈哈哈哈

: W" X; P( g6 |3 s大哥好% s( t1 o Y; a0 X6 n( H

点评

应该是大哥大嫂过年好 发表于 2019-4-22 19:04
5#
发表于 2019-4-22 20:15:19 | 只看该作者

' z9 S7 A+ E% ~' J8 N6 T# w% X7 D1 {'定义sw
; ?" b0 e8 k' H- e: Z6 u0 y; i1 j
: B- w. _' E9 b Z' f
" P: N" @- f S/ { y4 l, S) J- y, F
( P9 O2 M+ q3 Q* tDim a As Integer/ y9 H, w5 n+ R" ~1 @& P

0 k* H! h& Z q4 K& a; w2 Y7 WDim b As String; k* W. N6 E$ G* ]+ J: m
, d" n0 g9 K3 L* E; i; v) Q
Dim m As String0 w+ U1 o4 R7 a% _0 ^
! j' p5 \' r0 @& p. b/ J4 C6 v ?' p- u
Dim e As String; j8 U3 f0 K4 G
2 @# x- ], R( H1 M$ A8 G
Dim k As String
# R7 [+ z! U* j2 M+ y
; p- ~& N* ]0 s* CDim t As String
1 _2 e. {) \; F: a+ v i: F# H$ C! J( r
0 | W( Z! J" pDim c As String9 A! J5 H; y, }$ x/ [4 J+ H
6 y2 ?% e e: _+ m9 e4 S- v" w+ ~, G
Dim j As Integer2 C/ `. J: `9 b# F \

2 x# c: Z# }1 t8 d( a; d) p2 |Dim strmat As String
1 P$ M1 i' n; ]1 A
0 ~* v2 j0 V: `8 u' K' r% BDim tempvalue As String
" i( ` Y: g3 ?' g1 e Y
9 Y$ ]7 Y7 y7 i* z3 W5 MDim Part As Object
8 n& U3 q% k, d' h: _2 H5 R
W/ O! I4 g; f5 W" B1 \3 G) d% PDim swApp As SldWorks.SldWorks8 x& f4 a. }, O1 n2 y

. L% P: t- }7 E5 R8 IDim swModelDoc As SldWorks.ModelDoc2. M7 T* j1 A; T) G
* v$ ~( A y' B! D5 @8 Z# ^# G8 K
Dim swConfig As SldWorks.Configuration
3 Z3 N2 Z; q. H# s% A4 u9 i3 c: n( s" U: _5 Z
Dim CustPropMgr As SldWorks.CustomPropertyManager
8 ?1 ^2 \) ?6 w, n' F% O1 U2 ]7 |) e. A: L, @! `- J
Dim swModel As SldWorks.ModelDoc20 X k6 J( b& k: }- b
7 m! {: |3 P9 ]0 w2 a1 {$ z

* L3 `) V8 U) b, t3 [6 X. `2 }1 r, e9 b
Sub main()7 a( k7 U% ~- A D, y
/ a: v* r# Z" b% Y4 ^8 o
Set swApp = Application.SldWorks
8 q+ P, h1 Z! \, O4 W7 g O! xK! \1 o0 Z( b* N
Set swModelDoc = swApp.ActiveDoc
+ P- d, \& P% k- g2 W% v! C" z+ N; |& X# H: J1 N
Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration
5 k& W/ y8 B2 p* l
W+ _8 n# A5 f# _9 c: T3 S9 JSet swModel = swApp.ActiveDoc
+ K' W+ Q; N$ Z2 o- V# Q! V( @& {
+ C" S/ ?4 d+ d; Q- `& USet CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸' ]; k* |' @$ D$ I1 D: g4 q$ a) d

u" e* s& z* v- k" H1 x
) x" V1 n5 f. _" y: K/ F6 P) h, @. H D
'设定变量2 {0 O& Z$ a$ U2 e1 D
1 B* r6 ?& [ R' `: L4 }
c = swApp.ActiveDoc.GetTitle() '零件名
5 Z7 A' T( Z6 \5 j+ O8 E( @% ~) {8 H! B! ?
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)5 i7 G9 N& Q' j# Z5 G$ o' I* R7 n

9 `/ K8 r- P2 a7 V6 R6 G( c# ba = InStr(c, " ") - 1 '重点:分隔标识符,这里是一个空格,也可换成其他符号! o, y% T5 b3 M( l, t

4 X6 H2 W( d# sIf a > 0 Then
! K4 Q! N1 p+ d% P( } |$ m1 ^: m; w9 `2 X+ m
k = Left(c, a)7 ?- o. l3 i7 M: P% A1 U

7 e4 \8 x( A+ O) A. it = Left(LTrim(e), 3)
8 l! }1 \: k6 |- h
6 _" E4 M: M; v" w2 P% oIf t = "GBT" Then
) y5 c$ c; |. ^/ t) U5 q( _2 N8 Q g2 h: t
e = "GB/T" + Mid(k, 4)
! c. @1 ] [; B( q/ H+ `: P! {2 A3 G D; Z
Else* _3 Z( G/ m) ?" K( g$ q7 m, ?+ Z+ l; O' q

+ P$ H; L7 }9 y+ w( Se = k, z: N+ X" U2 U8 H# s
$ }* \. V5 Z! ~& G _0 }
End If
; p0 y) `% N- d9 Q1 O& n
: {' c! I% w pb = Mid(c, a + 2)
' Z$ k! \8 ~$ O3 }1 C, E9 N
7 q/ P0 I1 G3 F5 b) k/ ~. jt = Right(c, 7)! m' T. O2 }7 B+ i- f* y

# _* Z4 d& J8 O5 v+ j+ h' D) oIf t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
+ e: [+ r- L+ d$ f/ G+ F/ m8 a6 `/ y* X% n' p6 x
j = Len(b) - 7 '消除后缀(区分大小写,即含4种)4 D! W+ Y3 i: T3 R/ V% b: a

9 y7 K& c# Y% ~3 AElse
. a7 ?- t2 i4 g, C! J I7 B& c% R1 A. @) G* z5 G3 J
j = Len(b)8 e0 e4 g- e, c; M' m
8 ]9 f$ c: P! T4 [0 a
End If7 n& b' N: z0 o# l( f5 m2 R+ e
, s6 ]$ ?9 Z! K5 s, y4 `
m = Left(b, j); U6 ]7 N- w4 d9 E# [' C

# H5 f5 O+ o& z f6 uEnd If
7 H J8 S3 `0 o- {% l- j/ }! J' z; G0 y2 j
'删除栏6 G2 v8 @! p7 V: N

6 d- K' Z& X9 G4 W" |CustPropMgr.Delete ("图样代号")0 [! H7 G2 G7 E/ s, H6 e' ?
6 P- F p( P7 M! Z, \) a8 U
CustPropMgr.Delete ("图样名称")6 p0 F) h! S; Q+ c# C! S
% [1 {% Z# W# v4 w* T) V: J6 z
CustPropMgr.Delete ("材料")
+ | X/ j9 q. ~2 f9 {8 ?9 H$ j
' V$ z N+ v D. O8 l4 W- B( @& A7 `+ P3 h4 Y
4 r/ E, G" ^: k$ Y2 w& V5 ]
'新增
6 ]9 W4 N) b ]! M5 ?/ R, o; l7 u
CustPropMgr.Add2 "图样代号", swCustomInfoText, e
3 O4 e% e" f& ^- S8 y1 x
2 I+ }; u- o& M5 cCustPropMgr.Add2 "图样名称", swCustomInfoText, m- U9 J3 p" R4 W. [) O7 D

u8 o+ @" k5 k2 ~; N7 w' OCustPropMgr.Add2 "数量", swCustomInfoText, ""
3 l8 Q0 S# q7 Z9 Z! K3 S0 s+ D0 _( w x- H1 X, b0 P
CustPropMgr.Add2 "材料", swCustomInfoText, strmat
+ S# o3 D8 V$ R8 x5 [2 L- |( _* D0 t* i) _! s+ {; Y- x) v, `
CustPropMgr.Add2 "单重", swCustomInfoText, ""
$ G* p# z/ Z4 M7 I2 o; V, W) K4 \1 S- v
CustPropMgr.Add2 "总重", swCustomInfoText, ""9 i; y; N/ |" c E# v, o/ ^

. b, N& M- c$ ~CustPropMgr.Add2 "备注", swCustomInfoText, ""% U% B: y1 R5 S$ {' [7 G
" t" w' A* B. f1 m" |; H

1 m' w6 j4 V* u. s/ ?; p' `, k" e6 G+ y9 D6 G! @8 a' w e
End Sub
9 H& ~6 X. k5 _2 C* w
: r# f& A% H. R' M0 Z1 ]; t亲试管用,注意图号与名称中间间隔是“空格”
6#
楼主 | 发表于 2019-4-23 09:24:17 | 只看该作者
金卯刀-劉 发表于 2019-4-22 20:15
2 c" _8 A" X, v# a" ?- H) \'定义sw
, L! a0 ~8 G8 N. V, k) \+ ~
感谢大佬,实测有效。但是还是有点小遗憾,不能实现想要的功能。
- s5 w+ u. X8 w/ v" y! N----R) T, b. t" t" u4 s
CustPropMgr.Add2 "数量", swCustomInfoText, ""7 }5 M/ Z3 c `; Y R% ^

, Y' ?$ D1 |( m# Z) i
0 z/ ^5 x9 C; `" N3 m; t
CustPropMgr.Add2 "材料", swCustomInfoText, strmat6 B8 [9 d- g4 E( ?5 v: U- z
5 S0 _# u0 A) J4 s4 V5 z
----
( X; x: D: e( }, Q, l! p如上面这两段代码,材料后面strmat,会直接连接零件的材质,而类似数量这样后面是双引号的,则不能链接属性。, l2 p3 \ h5 c8 a* Q
属性编辑标签在自定义和配置待定中只能选择一个,这就很尴尬了。' U, g; r' |, U9 a" _7 H
8 x+ t$ Q; \& C2 O% I! D
不知道大佬有没有办法,可以将代码中这些信息直接链接相关属性?感谢大佬: V) x; W2 L% m, x+ ^/ h
7#
发表于 2019-4-23 15:40:38 | 只看该作者
呐,你要怎样 发表于 2019-4-23 09:24 8 [; t! u7 B, i. ? U
感谢大佬,实测有效。但是还是有点小遗憾,不能实现想要的功能。
6 U' ^$ z- R1 P Z' h4 g) y9 L----
8 h' I. `2 m1 O6 j, ?CustPropMgr.Add2 "数量", swCus ...
0 f/ q; U4 o5 {) K. W9 S
1.有办法在配置特定里增加数量,但那是另外一个宏,是统计整个装配体里的零件自动写数量到你指定是属性名。并且是在配置特定里。
' C7 u% i% P# o8 x- l, t2 T2.材质是要自己选择的,一个宏没办法写不通用的东西。如果想通用只能是关联零件材质属性例如"SW-Material"7 H3 E5 Y7 b# [1 v Y( W; m
3.不知道你用过属性模板,你需要的这些是可以通过属性模板实现的
5 _& E* i0 q5 I

本帖子中包含更多资源

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

x
8#
楼主 | 发表于 2019-4-23 16:49:30 | 只看该作者
金卯刀-劉 发表于 2019-4-23 15:40 5 Y7 `, M, Y! s2 V- C/ V0 S5 a/ G, y1 I
1.有办法在配置特定里增加数量,但那是另外一个宏,是统计整个装配体里的零件自动写数量到你指定是属性名 ...

8 U, X/ i$ F4 d" [0 F0 X2 M属性标签是有用的,但是不能同时写入自定义和配置待定,只能选一个。零件绘制完以后,材质、数量等信息就已经通过属性标签录入了,现在其实就是想让自定义里的信息同样地出现在配置待定里。; P6 N+ s% u8 `- b; O
因为看到大佬贴的代码里,最后Add的东西,如下:
5 y1 n, [ k% H! [- r----5 S3 J2 ^, X% C4 k
CustPropMgr.Add2 "图样代号", swCustomInfoText, e* S# |2 B' y( M) R3 l- T
----" k7 T U: i/ t
这里的e和我之前的图号分离宏里面定义的是一样的,然后运行完前一个后,再运行你发的代码,它会同样的读取e的信息,然后再配置待定里面就会出现和自定义里面一样的图样代号。只是好像不知道可不可以把其他的信息都定义为某个字母,这样是不是可以相互关联上?
, X* {2 e7 \/ L

本帖子中包含更多资源

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

x
9#
发表于 2021-7-30 10:28:29 | 只看该作者
看起来不错
10#
发表于 2021-11-30 18:12:42 | 只看该作者
金卯刀-劉 发表于 2019-4-23 15:40
/ L6 z' r2 U _/ s9 m8 X1.有办法在配置特定里增加数量,但那是另外一个宏,是统计整个装配体里的零件自动写数量到你指定是属性名 ...

R9 H0 Q, J) i你好,请问一下图号分离能实现三段分离吗?比如图号 图名 备注
% B! I: P7 O A% S: v
您需要登录后才可以回帖 登录| 注册会员

本版积分规则

小黑屋|手机版|Archiver|机械必威体育网址(京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号)

GMT+8, 2024-5-1 02:38, Processed in 0.063833 second(s), 19 queries , Gzip On.

Powered byDiscuz!X3.4Licensed

? 2001-2017Comsenz Inc.

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