圖號分離

吶，你要怎樣

軟件小白一枚,，因?yàn)楣�司需要統(tǒng)一零件模板，并且和我們搭建的PDM關(guān)聯(lián)，需要將文件屬性寫入配置待定里面,。之前用圖號分離宏只能把屬性寫入自定義信息中，配置待定中只有空的標(biāo)題,，分離后的內(nèi)容不能讀取,。
下面是我在網(wǎng)上找的說是可以將圖號分離后屬性寫到配置待定的代碼，實(shí)際調(diào)試有錯誤,，見紅色代碼,。
% t7 W3 h; a7 s---
Dim a As Integer
/ y0 Z0 H7 |8 ]) N+ Z0 ~! f# ?$ e1 f
Dim b As String
  X5 x9 n% W) E/ H" M0 z
Dim m As String

Dim e As String

Dim k As String

Dim t As String

Dim c As String
; h% R& ^% M4 p! J
Dim j As Integer

9 Y; Y3 O7 X: Y- r7 lDim strmat As String

/ X3 i. K& C. |2 ~( I( k- n$ aDim tempvalue As String
/ T! D& h7 a6 E
$ t7 K+ Z& v. s$ ?Dim Part As Object
$ [3 R, f4 E. g9 T; k
Dim swApp As SldWorks.SldWorks

Dim swModelDoc As SldWorks.ModelDoc2

2 D1 s' @7 h! S9 K5 J  P9 RDim swConfig As SldWorks.Configuration

3 {$ X! P, I& ^+ |! `& @+ BDim swModel As SldWorks.ModelDoc2
- }! E( N* `$ N  h' j% x
7 c, a; v2 T% [* m6 v4 d/ |$ ^1 HSub main()
" X& }7 a, F/ C: p  m3 U
% }) ^! p8 r+ k9 i, wSet swApp = Application.SldWorks
0 m3 d4 @$ m# P9 \1 `; O4 F0 e
7 y5 W( o3 |* XSet swModelDoc = swApp.ActiveDoc

( {9 p# L2 E, a. j& ~Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration

. i# h- \' k  r7 SSet swModel = swApp.ActiveDoc
8 j- d+ }5 f% z% G$ k+ R
Set CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguratio.Name) '配置特定延伸
6 q  A6 U1 S" ?  o
+ a* X& t' w) w" s'設(shè)定變量

% |, x& [2 {# I. P* h. F4 X2 Lc = swApp.ActiveDoc.GetTitle() '零件名
' ~( f8 W( j) ?& P
3 w+ @1 n, {7 _, ^4 {9 Zstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)

a = InStr(c, " ") - 1 '重點(diǎn):分隔標(biāo)識符,這里是一個空格,也可換成其他符號
$ m, p3 i1 A% P& M8 O* H1 I4 b2 l
# M/ k7 l* H4 k5 M+ dIf a > 0 Then

k = Left(c, a)
, [9 g2 b& ]+ S( a, ?, @! H0 g' ?# U
t = Left(LTrim(e), 3)

2 \& @" S3 J  H- Q! iIf t = "GBT" Then

9 D! z' }, F$ [8 g3 He = "GB/T" + Mid(k, 4)

Else
4 i0 @2 D  T6 S7 r& S7 Z4 }
" U9 j: Y% A( g% te = k

End If
$ h! Z) `$ D# ]+ V
b = Mid(c, a + 2)
; V+ J+ f" r' S4 c
! @0 _4 b' r3 Q' ?" H+ Xt = Right(c, 7)
* d, ^) |1 p* D% q1 k( i
" }( I# A  u$ P0 U( F- JIf t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
: N9 K# Y; P. K! u: Y; ^
. P3 M0 W! T- n$ ?j = Len(b) - 7 '消除后綴(區(qū)分大小寫,即含4種)
2 O" Z( h6 |- a: |/ Q0 U( e! N5 Q
Else
# i) J$ _/ z% j/ z4 U: w9 }
- a- g' S6 a5 hj = Len(b)
1 f6 Q8 f6 B) m9 W3 V! ~9 G
End If

& W6 r0 X: J. x$ W- G: Q' t# Rm = Left(b, j)
" C; v) v" ~1 t* [- k! E9 B
End If
8 f  d$ K. z  u5 a) P. V5 {
'刪除欄

; Q) V. v& v! I( m8 U0 `7 i( cCustPropMgr.Delete ("圖樣代號")
8 k# i! K/ e/ ~* O! k
! m* a. J0 V: i+ G# A; O( b* NCustPropMgr.Delete ("圖樣名稱")

CustPropMgr.Delete ("材料")

5 R5 w# W$ o; W: R6 \'新增
: l+ Q+ d1 [" l6 R0 r
CustPropMgr.Add2 "圖樣代號", swCustomInfoText, e
3 [" B$ X8 p! {, V+ g
1 _: \, Q6 N$ b( L5 c+ wCustPropMgr.Add2 "圖樣名稱", swCustomInfoText, m

. M8 h: P4 h( K6 A5 J+ p0 o% `CustPropMgr.Add2 "數(shù)量", swCustomInfoText, ""

- \1 c. t7 ?& K9 W8 kCustPropMgr.Add2 "材料", swCustomInfoText, strmat

CustPropMgr.Add2 "單重", swCustomInfoText, ""
& J0 s$ C" e+ k3 X; B- X
CustPropMgr.Add2 "總重", swCustomInfoText, ""

CustPropMgr.Add2 "備注", swCustomInfoText, ""
  Q! t( K4 a5 M  H! t! m5 z
End Sub
---
想請教下大拿們，這個代碼要怎么修改才能管用,。之前的圖號分離宏,，可以讓所有屬性出現(xiàn)在自定義里�,；蛘哂袥]有辦法加一段自動復(fù)制自定義里面屬性到配置待定里去的代碼,？

在線等大神解惑
/ j! E- e( w# T* K
% g6 ]- N, M. i8 i9 I0 \

吶,，你要怎樣

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

Wukui*

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

吶,，你要怎樣

Wukui* 發(fā)表于 2019-4-22 16:58
叫我大哥,，我可以分享現(xiàn)貨給你。,。,。哈哈哈哈哈

大哥好
0 r% ?7 A( W0 m) ]9 B4 j" \

金卯刀-劉

! h& b; A4 ~% M+ e8 {* m7 O* J& r% R'定義sw


( I4 x: G. v8 t3 h
: h. B: c3 H. l0 ]1 P3 bDim a As Integer

Dim b As String

Dim m As String

& t5 ?( I1 |) y" g$ |) V5 {Dim e As String
1 w0 k2 `! L& E  n' _3 n
Dim k As String

Dim t As String

Dim c As String
+ ^4 a% ~: J2 I( O; T6 m
% ~$ w8 \) A* J. }Dim j As Integer
" t1 U" u( D. B5 s, z
Dim strmat As String

Dim tempvalue As String
( }2 c: G; j9 K: J6 n6 z8 r( h- ~
& T6 i" u) i4 p3 y& yDim Part As Object
. A9 V, w$ Q4 @/ [
Dim swApp As SldWorks.SldWorks
, `# E  m6 w0 h: N! ~/ d
Dim swModelDoc As SldWorks.ModelDoc2
8 k3 ~, h' c# S5 s1 {$ {6 p# I% A
Dim swConfig As SldWorks.Configuration
# Q/ ?, f. v. r# [# J( E
Dim CustPropMgr As SldWorks.CustomPropertyManager

Dim swModel As SldWorks.ModelDoc2
4 C$ s3 t1 K; m


% `% V- `/ c# f2 x" b2 z: s, y- ySub main()
) G: X* O- x. V4 o
5 q+ D; r. T$ U6 VSet swApp = Application.SldWorks

Set swModelDoc = swApp.ActiveDoc

+ z: p( F, h) n2 r( w( [! OSet swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration
: H- w9 L* @& F+ G& R/ Z
+ `% z4 p! A3 j# t0 [Set swModel = swApp.ActiveDoc
8 E) m2 L2 f7 P7 a  B" M0 d
+ w' o, ^  j- P' R! ASet CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸
4 f5 `. a+ \( Z/ j8 S- o, |; b
3 W( d* c* D, M4 A. j  J1 o- ^8 o
) ?& d- p8 U3 ]5 N9 E
'設(shè)定變量
/ c( }3 c4 {- v+ L7 S: a* a
- Z/ A) P5 }8 h5 ?( J$ f4 Mc = swApp.ActiveDoc.GetTitle() '零件名
- V7 q& A. \& H# Q
3 o5 B  t! E; }strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)

* H8 a% g/ A' y; I# n5 da = InStr(c, " ") - 1 '重點(diǎn)：分隔標(biāo)識符，這里是一個空格,，也可換成其他符號

If a > 0 Then

& o" T% X4 K% b3 o4 zk = Left(c, a)

t = Left(LTrim(e), 3)

If t = "GBT" Then

0 z# Y0 W1 l# B+ p- U# T( ^3 f. Pe = "GB/T" + Mid(k, 4)

. x5 P3 \$ ?5 e3 eElse

( D/ w) t% P" U, M7 A7 `  p! b' Le = k
0 `6 P, \# q$ U9 o
7 m8 q: N/ Q+ F5 d4 A* s$ a& `End If

b = Mid(c, a + 2)
2 l- Y0 h7 m. |* v9 }) q7 g/ u
* Q8 B! o$ h; ?* Q4 a* _' Ut = Right(c, 7)
3 \4 C/ ^2 E1 W) y. ~0 o! v" N
If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then

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

. a* R8 O+ \( H4 ^; FElse
% M  L; E) \5 U9 d; F0 U* h
6 l$ W; i* @& `7 o5 G; i/ Q* zj = Len(b)

6 L. c9 ~+ K+ ?End If

& j+ P0 G. N! P$ g, I- X% pm = Left(b, j)

End If

'刪除欄
( i+ Z$ c8 G4 M/ |! X
CustPropMgr.Delete ("圖樣代號")

3 _) L# ^( s1 kCustPropMgr.Delete ("圖樣名稱")

# i% s$ }: F4 }1 [CustPropMgr.Delete ("材料")

; h# g# @9 m- z4 w+ H4 S

7 e$ t6 Q2 T6 F2 O2 A'新增

CustPropMgr.Add2 "圖樣代號", swCustomInfoText, e

7 A$ ~, |; [  k# H/ B  nCustPropMgr.Add2 "圖樣名稱", swCustomInfoText, m

CustPropMgr.Add2 "數(shù)量", swCustomInfoText, ""

+ }6 T" Q$ |) G" w2 l2 ACustPropMgr.Add2 "材料", swCustomInfoText, strmat

+ H) n/ \* d- h; f( ?CustPropMgr.Add2 "單重", swCustomInfoText, ""
" A: R* K0 a& S5 d/ e2 j- A! `  p
CustPropMgr.Add2 "總重", swCustomInfoText, ""
( s* i" Z  i2 H  S3 q7 |1 ~3 w
CustPropMgr.Add2 "備注", swCustomInfoText, ""

: T2 M( ?1 l; ^. W. v) O5 x

8 Q5 Q9 m2 f! {$ n7 ^! f2 [4 dEnd Sub

親試管用，注意圖號與名稱中間間隔是“空格”

吶,，你要怎樣

金卯刀-劉 發(fā)表于 2019-4-22 20:15
7 H# e! S8 I' d( Q- u% e9 w'定義sw

; u* B9 y) X! B5 _* e9 K2 o感謝大佬，實(shí)測有效,。但是還是有點(diǎn)小遺憾,，不能實(shí)現(xiàn)想要的功能。
----
; [' I1 M& w# M! qCustPropMgr.Add2 "數(shù)量", swCustomInfoText, ""
0 f/ }" r% _; S- J( M

CustPropMgr.Add2 "材料", swCustomInfoText, strmat
# f' c$ f* J, v6 g" c* K
----
如上面這兩段代碼,，材料后面strmat,，會直接連接零件的材質(zhì)，而類似數(shù)量這樣后面是雙引號的,，則不能鏈接屬性,。
8 v" H2 L$ P, x0 r屬性編輯標(biāo)簽在自定義和配置待定中只能選擇一個，這就很尷尬了,。
* f2 l4 V& W* K$ j2 J; a
1 b0 D: |# U2 d( f( c0 z不知道大佬有沒有辦法,，可以將代碼中這些信息直接鏈接相關(guān)屬性？感謝大佬
  o# ?  v* Y* {& n5 z5 Y' R) o; O, G2 _

金卯刀-劉

吶,，你要怎樣 發(fā)表于 2019-4-23 09:24
感謝大佬,，實(shí)測有效。但是還是有點(diǎn)小遺憾,，不能實(shí)現(xiàn)想要的功能,。
----
CustPropMgr.Add2 "數(shù)量", swCus ...

1.有辦法在配置特定里增加數(shù)量，但那是另外一個宏,，是統(tǒng)計整個裝配體里的零件自動寫數(shù)量到你指定是屬性名,。并且是在配置特定里。
) a! l  S5 y7 q4 D2.材質(zhì)是要自己選擇的,，一個宏沒辦法寫不通用的東西,。如果想通用只能是關(guān)聯(lián)零件材質(zhì)屬性例如"SW-Material"
3.不知道你用過屬性模板，你需要的這些是可以通過屬性模板實(shí)現(xiàn)的

吶,，你要怎樣

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

屬性標(biāo)簽是有用的,，但是不能同時寫入自定義和配置待定,，只能選一個。零件繪制完以后,，材質(zhì),、數(shù)量等信息就已經(jīng)通過屬性標(biāo)簽錄入了，現(xiàn)在其實(shí)就是想讓自定義里的信息同樣地出現(xiàn)在配置待定里,。
! T: k# J, P1 Q& K3 p% w因?yàn)榭吹酱罄匈N的代碼里,，最后Add的東西，如下：
& F$ j" H) G/ a: e3 Y" C) ~----
CustPropMgr.Add2 "圖樣代號", swCustomInfoText, e
----
2 D; h$ [* }$ Z% Q  J1 D6 k) l/ x  Y5 W* P這里的e和我之前的圖號分離宏里面定義的是一樣的,，然后運(yùn)行完前一個后,，再運(yùn)行你發(fā)的代碼，它會同樣的讀取e的信息,，然后再配置待定里面就會出現(xiàn)和自定義里面一樣的圖樣代號,。只是好像不知道可不可以把其他的信息都定義為某個字母，這樣是不是可以相互關(guān)聯(lián)上,？
# c8 i' |# m% O8 a0 p4 Y3 v

feelling

看起來不錯

太一OS

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

# ?4 Y3 n$ \# V  W, {4 p' k你好，請問一下圖號分離能實(shí)現(xiàn)三段分離嗎,？比如圖號 圖名 備注