圖號分離

吶，你要怎樣

軟件小白一枚，因為公司需要統(tǒng)一零件模板，并且和我們搭建的PDM關(guān)聯(lián)，需要將文件屬性寫入配置待定里面。之前用圖號分離宏只能把屬性寫入自定義信息中，配置待定中只有空的標(biāo)題，分離后的內(nèi)容不能讀取。
下面是我在網(wǎng)上找的說是可以將圖號分離后屬性寫到配置待定的代碼，實際調(diào)試有錯誤，見紅色代碼。
---
Dim a As Integer
. S# D3 P' o+ B: r  X
" V, g0 J; C1 l) n3 ?+ ^7 Y2 \Dim b As String
* d. `* x) v7 `& l
Dim m As String

0 _3 N3 `3 j3 c& e" s. ~! LDim e As String

( p+ r4 r* U% A! V7 n6 qDim k As String
+ y4 K/ Z, |8 s- m/ w3 N
Dim t As String

% p  b: F, i' d+ }Dim c As String
7 d# ~" B8 |/ y
Dim j As Integer
/ R) G" o1 q, p2 G
Dim strmat As String

Dim tempvalue As String
0 h  H, N: V' p- N
) T2 n8 Z) D" @; n; oDim Part As Object
$ m6 h$ A2 z; Q& V! J- F0 \3 \  i
5 R4 W$ K. f8 Z! `/ `Dim swApp As SldWorks.SldWorks
  y9 h/ S5 F) }+ [7 u- ^. @
Dim swModelDoc As SldWorks.ModelDoc2

9 @; ^& H7 @2 w/ h7 YDim swConfig As SldWorks.Configuration
, N* A7 Q8 r( e- y
% x& a- M% p' J/ g" m# g# GDim swModel As SldWorks.ModelDoc2
0 n% o/ y$ F! e5 K3 V
/ J: S! n* u2 b! q9 DSub main()
2 W/ B* z7 K6 k6 ?, N! Z
Set swApp = Application.SldWorks

Set swModelDoc = swApp.ActiveDoc
* ]6 y. F: t! x+ |6 e: U8 i9 p
Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration
9 l  T2 q/ o0 i" h
0 j# L! n' i' h; j9 Q& |( ZSet swModel = swApp.ActiveDoc
4 ]0 p- F  E) d+ R5 x
1 \6 g6 y5 a/ s# x6 U( @8 ~6 lSet CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguratio.Name) '配置特定延伸

" o5 U& X/ C3 @7 [) Y1 Q7 r; |6 S( L  N'設(shè)定變量
& w" S4 g6 \! U: @; P! Z! Y8 C
c = swApp.ActiveDoc.GetTitle() '零件名
( r0 k* X% ^; j5 \+ v! W  I
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
7 l( G/ t. S) C! e
$ }1 n4 h6 d, t  j4 a( qa = InStr(c, " ") - 1 '重點:分隔標(biāo)識符,這里是一個空格,也可換成其他符號
) S; x/ |; Z4 V# w
5 T/ R' x/ o1 K: O$ VIf a > 0 Then

8 g' F* j6 _2 u( c) J" ~k = Left(c, a)

6 {, d: a9 o" n( ^( T( Dt = Left(LTrim(e), 3)

If t = "GBT" Then
: K; N. j1 Y. }: _+ s5 {" |
e = "GB/T" + Mid(k, 4)

Else
; |6 l4 f  k' J2 c' r: y4 f
4 I+ X3 M3 |9 @2 f$ We = k

2 V! r( i, F& h# V, j- {% F, m/ X1 [End If
  s* `5 e7 r; |' z+ d
b = Mid(c, a + 2)

t = Right(c, 7)
$ Z  r4 i  p$ \* h
If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then

j = Len(b) - 7 '消除后綴(區(qū)分大小寫,即含4種)

Else
0 u+ n- e& m; A3 c0 |# f( }4 a
/ B2 F, e2 \% _# y: ~- ~" wj = Len(b)

' q( i% }) H$ P( a+ REnd If
, Z( [! p5 }- j+ j, J
m = Left(b, j)

End If
$ Z8 |- [$ e$ q
  \: v2 X# i* m) R1 ^3 P1 i'刪除欄
7 {: c. N$ x9 e
) \: q/ N" }: Z+ P# n' A/ F, ?* {3 ]CustPropMgr.Delete ("圖樣代號")
5 _8 |8 o5 f9 n4 s! y4 G, y4 `* a( d0 ]
- S4 {9 b3 I6 m- HCustPropMgr.Delete ("圖樣名稱")
, S& {7 ]5 `+ A- E/ H/ m2 E0 S
CustPropMgr.Delete ("材料")
6 Y% z) N7 t8 p& Q7 k9 Y
: |. r' O8 C5 X2 K. e$ O: B'新增
6 o7 Q7 X4 `; f8 O5 P2 [/ N
* ^5 `: y0 [8 `6 D! A1 U5 cCustPropMgr.Add2 "圖樣代號", swCustomInfoText, e

CustPropMgr.Add2 "圖樣名稱", swCustomInfoText, m
& D8 N8 x& M  J3 d# u: q2 d
CustPropMgr.Add2 "數(shù)量", swCustomInfoText, ""
% R! y( p2 l% \
2 }, ~3 X3 g8 y1 aCustPropMgr.Add2 "材料", swCustomInfoText, strmat
+ q7 p0 O8 ~; N8 S" Z: [( h
CustPropMgr.Add2 "單重", swCustomInfoText, ""

CustPropMgr.Add2 "總重", swCustomInfoText, ""
6 x$ q  E; U+ u! j
CustPropMgr.Add2 "備注", swCustomInfoText, ""
$ E$ n  w; u* t% {5 ~
# ?& E: i. p+ EEnd Sub
; _' k0 ~; C, l" n. N& {7 I! j---
想請教下大拿們，這個代碼要怎么修改才能管用。之前的圖號分離宏，可以讓所有屬性出現(xiàn)在自定義里。或者有沒有辦法加一段自動復(fù)制自定義里面屬性到配置待定里去的代碼？
- J  _2 W1 ?& c" P
1 s6 n6 ^$ x3 u3 c: m在線等大神解惑

$ f: A4 G9 F+ n4 A% l. I9 f  Q

吶，你要怎樣

可以用宏來實現(xiàn)自動復(fù)制嗎，嘗試錄制宏，沒有用

Wukui*

叫我大哥，我可以分享現(xiàn)貨給你。。。哈哈哈哈哈

吶，你要怎樣

Wukui* 發(fā)表于 2019-4-22 16:58
) T2 C- |3 `3 O1 s& B8 p叫我大哥，我可以分享現(xiàn)貨給你。。。哈哈哈哈哈

3 S) |" f. O, r, f1 W2 L5 K5 w3 V大哥好
+ J- i- i# p  f- p& {& t

金卯刀-劉

'定義sw
0 R& e' z! F0 U) A; T4 ?
. f+ p5 O' c5 |9 N; M& W

Dim a As Integer

) m$ R; x7 p0 ]+ o: G4 K% wDim b As String
, b* ?( x. {/ _0 C
+ M, A4 L1 q3 i6 e* G7 JDim m As String
6 A' }% U0 B+ ]$ r5 E) x$ e; N
Dim e As String
, D, l* X: x3 ^* d+ F$ f$ }
9 b7 Q  D* ]( }$ C8 W) l: XDim k As String

Dim t As String

Dim c As String

6 X+ h$ o5 }4 z# D; dDim j As Integer

Dim strmat As String

. [" s9 B( ~9 y1 JDim tempvalue As String

2 q- a3 h8 w$ w! n6 TDim Part As Object

Dim swApp As SldWorks.SldWorks

Dim swModelDoc As SldWorks.ModelDoc2
) m. q! p, }: N/ s7 s- R' y  ]
Dim swConfig As SldWorks.Configuration
+ R7 q( B5 B: X7 s( H
- _% C0 t+ e! Z/ W, |: bDim CustPropMgr As SldWorks.CustomPropertyManager

' L3 J: u6 s( M" m. @: i+ a6 l1 yDim swModel As SldWorks.ModelDoc2


: M4 w. T; Y0 R: @. x: c7 \& e
6 s9 {, H, u! K: XSub main()

: v6 k4 E8 F% x& K% ?% d: s( TSet swApp = Application.SldWorks

+ ?+ Q& G6 B  USet swModelDoc = swApp.ActiveDoc
* K5 `, u: G4 r& j
* S6 m" m- c/ p# M! C; s/ I+ XSet swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration
1 G0 ^+ B5 z7 {1 R4 n
Set swModel = swApp.ActiveDoc
! E3 g4 N1 N9 Z# f
Set CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸
4 n" I' n$ Q2 {9 J


'設(shè)定變量
, T, F  G/ U7 H  c! X% Y! R9 P5 i
# ~( o! R! l; F$ @3 x; N" O: X8 O% oc = swApp.ActiveDoc.GetTitle() '零件名

strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
( q- b& E" H4 [; T, W8 _; Q$ L$ |
a = InStr(c, " ") - 1 '重點：分隔標(biāo)識符，這里是一個空格，也可換成其他符號
6 y5 O4 v1 u9 A) c, m! e+ B4 q
If a > 0 Then
3 p/ i% Y* }4 K
k = Left(c, a)
$ k% M+ x9 ^8 D. A( {2 h; a0 g
: O% b6 |5 i) y2 p# \% r) v! A/ M" U- @3 At = Left(LTrim(e), 3)

If t = "GBT" Then
" L. u* q0 x: v' @6 B' t
( z. u; K+ t: C$ Oe = "GB/T" + Mid(k, 4)
, J/ P  W2 I9 g; H; f6 s
4 c8 Z* r/ f9 {& R* G2 v9 ?9 lElse

e = k
6 E. `8 A& b8 q
8 A3 g' i. n3 M1 U# HEnd If
* c' @6 T9 |6 r% H
b = Mid(c, a + 2)
5 @: i; I7 H' I( h7 l! Z4 y
t = Right(c, 7)
0 U# ^1 T6 x9 ^- i& P
If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then

# J) x, x* Q; c9 Gj = Len(b) - 7 '消除后綴（區(qū)分大小寫，即含4種）

Else
2 z7 _# @! v4 `6 p4 G& |
8 {- R* n0 `( h$ q+ m2 s7 gj = Len(b)

End If
- L& n: r( P) O1 A) o, Z( Y+ ~
: {0 N1 q( W/ h1 @+ _m = Left(b, j)

End If

'刪除欄
$ f( |/ b4 C3 H1 S" y1 |! c
CustPropMgr.Delete ("圖樣代號")
8 q2 A: R: y6 C! p" Z+ T
CustPropMgr.Delete ("圖樣名稱")

' S* f$ H* Y8 `  {0 ?( g7 UCustPropMgr.Delete ("材料")



/ x3 B6 M) X: D& Y! [  c'新增

; y- x; D4 F' n9 T7 F' c. ?CustPropMgr.Add2 "圖樣代號", swCustomInfoText, e
# m& F' B' f. N! D! j
3 k$ F* n; l4 ^: P3 [* d& HCustPropMgr.Add2 "圖樣名稱", swCustomInfoText, m

CustPropMgr.Add2 "數(shù)量", swCustomInfoText, ""
9 P6 n! t) Y( A4 E* D) ?
CustPropMgr.Add2 "材料", swCustomInfoText, strmat
5 H! I3 O6 J! P% e& ^6 }$ p% g4 E
* T0 |/ ^# z! `  |CustPropMgr.Add2 "單重", swCustomInfoText, ""

CustPropMgr.Add2 "總重", swCustomInfoText, ""
) [. G9 X4 I. x& X$ d+ |* a
1 a$ l/ c/ |" W. {* j3 LCustPropMgr.Add2 "備注", swCustomInfoText, ""
) K4 Z3 m' L. L( D$ n, }4 ?/ M: c7 L

& g  h: e5 e3 s+ k% D* c
End Sub
. u# F4 R+ T9 W7 W( Y- G7 i
親試管用，注意圖號與名稱中間間隔是“空格”

吶，你要怎樣

金卯刀-劉 發(fā)表于 2019-4-22 20:15
'定義sw

感謝大佬，實測有效。但是還是有點小遺憾，不能實現(xiàn)想要的功能。
/ u8 _; t: b7 U* |8 Z----
( t* P0 i2 m7 a+ _' H9 \1 k2 v+ SCustPropMgr.Add2 "數(shù)量", swCustomInfoText, ""
: n) @8 `4 k7 j" `: L* K

  @4 k6 B  H7 q4 i' j  iCustPropMgr.Add2 "材料", swCustomInfoText, strmat
4 B; ^; y( Z; D5 \
2 z; ]0 S. r, _" q5 k5 T----
) h' G4 G/ I0 Y4 }9 I3 X如上面這兩段代碼，材料后面strmat，會直接連接零件的材質(zhì)，而類似數(shù)量這樣后面是雙引號的，則不能鏈接屬性。
/ O3 h/ i3 L9 k7 d屬性編輯標(biāo)簽在自定義和配置待定中只能選擇一個，這就很尷尬了。
# w1 R& x: R3 L% M9 @+ K; i7 v) m
不知道大佬有沒有辦法，可以將代碼中這些信息直接鏈接相關(guān)屬性？感謝大佬
( b& c/ W) M$ r8 D

金卯刀-劉

吶，你要怎樣 發(fā)表于 2019-4-23 09:24
( ?* ^, |; L& d& j8 K$ o感謝大佬，實測有效。但是還是有點小遺憾，不能實現(xiàn)想要的功能。
----
CustPropMgr.Add2 "數(shù)量", swCus ...

9 H+ j; K3 t/ s7 Q# M# }6 Y3 e1.有辦法在配置特定里增加數(shù)量，但那是另外一個宏，是統(tǒng)計整個裝配體里的零件自動寫數(shù)量到你指定是屬性名。并且是在配置特定里。
' x# c+ F6 x+ n) f" F! [. F* H2.材質(zhì)是要自己選擇的，一個宏沒辦法寫不通用的東西。如果想通用只能是關(guān)聯(lián)零件材質(zhì)屬性例如"SW-Material"
3.不知道你用過屬性模板，你需要的這些是可以通過屬性模板實現(xiàn)的

吶，你要怎樣

金卯刀-劉 發(fā)表于 2019-4-23 15:40
) A' S  M' x% n! u1.有辦法在配置特定里增加數(shù)量，但那是另外一個宏，是統(tǒng)計整個裝配體里的零件自動寫數(shù)量到你指定是屬性名 ...

8 A% k1 l9 i  t8 \屬性標(biāo)簽是有用的，但是不能同時寫入自定義和配置待定，只能選一個。零件繪制完以后，材質(zhì)、數(shù)量等信息就已經(jīng)通過屬性標(biāo)簽錄入了，現(xiàn)在其實就是想讓自定義里的信息同樣地出現(xiàn)在配置待定里。
; u9 h5 e' d: t3 Y因為看到大佬貼的代碼里，最后Add的東西，如下：
6 }; x" U) A% `7 K----
CustPropMgr.Add2 "圖樣代號", swCustomInfoText, e
9 J4 k: z! W" Q6 O0 h: [8 d----
這里的e和我之前的圖號分離宏里面定義的是一樣的，然后運行完前一個后，再運行你發(fā)的代碼，它會同樣的讀取e的信息，然后再配置待定里面就會出現(xiàn)和自定義里面一樣的圖樣代號。只是好像不知道可不可以把其他的信息都定義為某個字母，這樣是不是可以相互關(guān)聯(lián)上？

feelling

看起來不錯

太一OS

金卯刀-劉 發(fā)表于 2019-4-23 15:40
1.有辦法在配置特定里增加數(shù)量，但那是另外一個宏，是統(tǒng)計整個裝配體里的零件自動寫數(shù)量到你指定是屬性名 ...

你好，請問一下圖號分離能實現(xiàn)三段分離嗎？比如圖號 圖名 備注