圖號分離

吶，你要怎樣

軟件小白一枚,，因為公司需要統(tǒng)一零件模板，并且和我們搭建的PDM關(guān)聯(lián),，需要將文件屬性寫入配置待定里面,。之前用圖號分離宏只能把屬性寫入自定義信息中，配置待定中只有空的標題,，分離后的內(nèi)容不能讀取,。
下面是我在網(wǎng)上找的說是可以將圖號分離后屬性寫到配置待定的代碼，實際調(diào)試有錯誤,，見紅色代碼。
---
* ?$ D, @- Y) \& Q: yDim a As Integer
/ M0 Q2 h1 q! f; W
8 a  t- e4 G" O4 l2 SDim b As String

- x1 ^/ E* k( \; MDim m As String
2 O" _* q$ [7 c7 J- Y
Dim e As String
( ?, e% o/ ^5 |
Dim k As String

  \. C" K+ A% i; a( U8 Z+ zDim t As String

Dim c As String
2 f( r( U4 u( o6 e
+ l+ P1 ]/ `/ X0 FDim j As Integer
/ o( S5 b1 B) o( o, P; w
* o8 \- ^) m. V+ S9 aDim strmat As String

5 i  ^6 y: h( ?" A: I& U) r: PDim tempvalue As String
$ @- Y; M8 N# R) p
Dim Part As Object
8 R, y/ W+ ~8 y  j
. e0 j% P+ m; f3 fDim swApp As SldWorks.SldWorks
( B- R- n! @0 t: C
# {7 \" m3 f1 ?. @- F" X+ {5 C2 `# Y2 \Dim swModelDoc As SldWorks.ModelDoc2

) T" ?; P5 f' n+ j- S' b; nDim swConfig As SldWorks.Configuration

Dim swModel As SldWorks.ModelDoc2

4 t- w1 {% C3 Q; x5 D( TSub main()
6 y% I4 L! W' a4 S5 h+ r
1 e8 F! B3 R4 f* s/ ]6 ~Set swApp = Application.SldWorks
' T& |3 U0 u! ]
Set swModelDoc = swApp.ActiveDoc

Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration

* b& S  F; J& N7 A: S3 ZSet swModel = swApp.ActiveDoc
* ?. ^! U+ V' {8 E1 p2 k
Set CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguratio.Name) '配置特定延伸
0 f4 b+ U/ F9 j
'設(shè)定變量
" n9 m6 t) L4 X+ N+ g, f+ P' c, X% J' C
c = swApp.ActiveDoc.GetTitle() '零件名
8 D8 P& O8 R* g6 l7 I; Z  v3 N
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
/ D( W( N2 F( B- }' Z
a = InStr(c, " ") - 1 '重點:分隔標識符,這里是一個空格,也可換成其他符號

$ r" V1 [9 r2 Q8 UIf a > 0 Then
5 g% _" _" W  f# b% ^: g% ?0 u- [
k = Left(c, a)
6 C1 ]' M, [* @: e" p' ^/ ]' X
# K+ w' b/ P8 z% kt = Left(LTrim(e), 3)
* i* H( i( P+ v, c
& a8 b6 n3 A9 u4 xIf t = "GBT" Then

8 R  a  m) K+ {! J8 [0 h4 me = "GB/T" + Mid(k, 4)
% ~+ ]: W& y1 K' {
Else

! D  T% V1 W/ P4 ^- qe = k

End If
0 o4 [9 P% R) _3 V
b = Mid(c, a + 2)

t = Right(c, 7)
5 J( t* U- X, R! b
If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
1 {4 @2 ]! u- t7 t; z0 H5 o
j = Len(b) - 7 '消除后綴(區(qū)分大小寫,即含4種)

Else
  f- J4 o. q2 I  t
, J4 H- k* M, b/ Aj = Len(b)

End If

m = Left(b, j)

End If
9 d, T8 ?9 i5 N; p  V
6 U' G: J* z( k9 @' i'刪除欄

7 U1 h" K2 F* U! [$ M* s% K4 UCustPropMgr.Delete ("圖樣代號")

CustPropMgr.Delete ("圖樣名稱")

CustPropMgr.Delete ("材料")
. p8 h( h- F2 s( F1 o. `$ b
'新增

- S  `4 }! g& j) X" i9 u6 wCustPropMgr.Add2 "圖樣代號", swCustomInfoText, e
$ R# h; @( N. z; p" O+ }
CustPropMgr.Add2 "圖樣名稱", swCustomInfoText, m
& q0 V5 M- a$ E: @! `8 c3 k
CustPropMgr.Add2 "數(shù)量", swCustomInfoText, ""
5 h9 b( ~+ r" [/ Q
CustPropMgr.Add2 "材料", swCustomInfoText, strmat
% V% z( l9 s: A; F8 @% @
; _- b4 N; B; `' ?CustPropMgr.Add2 "單重", swCustomInfoText, ""
: }3 e$ J* T/ J% L
CustPropMgr.Add2 "總重", swCustomInfoText, ""
5 a& T  j# ^% L) K7 _, x  K' i  d
CustPropMgr.Add2 "備注", swCustomInfoText, ""

End Sub
---
想請教下大拿們,，這個代碼要怎么修改才能管用,。之前的圖號分離宏，可以讓所有屬性出現(xiàn)在自定義里,�,；蛘哂袥]有辦法加一段自動復制自定義里面屬性到配置待定里去的代碼？
7 b7 j* z9 q- \( ]  f; W! R* s
$ w" a. g0 V& d% ]在線等大神解惑
$ J) P& {% Y/ A, Y  V$ G! w! F; V

, T* a7 |4 s, b( o' }- U, v

吶,，你要怎樣

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

Wukui*

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

吶,，你要怎樣

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

/ l" i$ K# {" ?; t2 H( I3 |大哥好
2 g7 A$ Z& e) Z

金卯刀-劉

, N& T: ?7 d' Y'定義sw

+ g5 g7 n, j* m) V4 H& Y9 y

' l* o  h# H! D" r! HDim a As Integer

* ~8 u: X1 Q1 K- B9 WDim b As String

: w. b6 [% e; j7 e# V# ZDim m As String
- @% @, K! b( i# `
Dim e As String
. L# y& r7 {9 }  W1 H1 z( r
Dim k As String

6 c, w+ O5 u! gDim t As String

Dim c As String
: g+ z+ l! u$ h: n0 m- Z2 `$ p
Dim j As Integer
/ G! J0 U% {/ q
6 A: i& v( C5 [! i# C* U* fDim strmat As String

2 q3 k  R7 a, Z0 W. y# K  jDim tempvalue As String

Dim Part As Object
' n) ?( l7 m# q( V
$ f- X7 h, b4 D* o5 R, eDim swApp As SldWorks.SldWorks
$ g6 m+ y) w: Q. ^8 I! M/ m
, h8 O6 v0 _( h7 K$ w2 ^Dim swModelDoc As SldWorks.ModelDoc2
4 b% t% Y# N" L" x# r- O
% z. w1 d! t/ T3 [7 y# m7 lDim swConfig As SldWorks.Configuration

Dim CustPropMgr As SldWorks.CustomPropertyManager
) B3 d7 P4 n3 F$ X2 ~* T
2 ^* T2 V0 _( @; `3 N" |Dim swModel As SldWorks.ModelDoc2
& T# P! V% r: s  d1 m  K! |6 ?
2 T5 j: y4 r5 I* C7 q3 S0 [

Sub main()
4 t0 t; l) O4 ?. t2 C7 e5 @
; l; n  H, s0 \$ Z5 tSet swApp = Application.SldWorks
1 D3 F! F1 a' V1 n# {" m
Set swModelDoc = swApp.ActiveDoc

/ [# D. l9 m- R+ D3 O( \( J% n1 |Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration
7 Q; Q! J- ?% h& Y6 E. D
Set swModel = swApp.ActiveDoc

( y/ x0 p. a- ^Set CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸



. R$ Y6 E/ \6 W" P# D5 L'設(shè)定變量
$ n% S; C3 U; r0 v
# \# |7 s, j3 Nc = swApp.ActiveDoc.GetTitle() '零件名
7 V7 Y, P' m* l
& z$ x5 U% M6 d- U( @; Gstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)

: i% z$ T3 |7 @0 |! Aa = InStr(c, " ") - 1 '重點：分隔標識符,，這里是一個空格,，也可換成其他符號

If a > 0 Then

k = Left(c, a)
$ o6 U) N6 Q& K% [1 \% {; K; F) \* u- _
2 L: v$ |8 [% {$ at = Left(LTrim(e), 3)
/ g. p9 G' f1 A$ q: B
If t = "GBT" Then

e = "GB/T" + Mid(k, 4)

Else
+ v5 _! v6 S; [( e
! u! x% m; l% T8 b9 `e = k
5 B: z, m1 c7 v$ R5 C  _. q/ H
End If

b = Mid(c, a + 2)

; B$ P5 F5 Q, [: }t = Right(c, 7)
8 j3 O! C1 z, T  u% g$ T3 G
4 S. }% Z. x; N& f7 R" lIf t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then

j = Len(b) - 7 '消除后綴（區(qū)分大小寫，即含4種）
7 S! K+ `" C8 f3 \, V
Else

j = Len(b)
# F, e: i7 U, i$ O. ?% ?
) J/ \' z& u4 Q" w/ \0 N* dEnd If

  f! v- q% _% Zm = Left(b, j)
9 G0 Y8 ~6 b+ r5 p% W
1 g0 n$ H4 y, O/ w% FEnd If
, M. r$ j; W, R9 G2 l+ l& l1 |
'刪除欄
# v$ H; P$ B& _/ A" T
CustPropMgr.Delete ("圖樣代號")

CustPropMgr.Delete ("圖樣名稱")

! w: c8 }4 i- e* o" FCustPropMgr.Delete ("材料")


( |$ ]- ]- O9 m6 o' I
'新增

CustPropMgr.Add2 "圖樣代號", swCustomInfoText, e
8 }9 R  f* p# y% w8 S" i
CustPropMgr.Add2 "圖樣名稱", swCustomInfoText, m
5 ^2 ]" q- [- N5 z' N- b& ?2 l
( G; f  G3 r* c+ z, d2 sCustPropMgr.Add2 "數(shù)量", swCustomInfoText, ""

CustPropMgr.Add2 "材料", swCustomInfoText, strmat

8 ]+ a8 p$ `7 S  D5 Y8 kCustPropMgr.Add2 "單重", swCustomInfoText, ""

CustPropMgr.Add2 "總重", swCustomInfoText, ""
. B: W# R! H! h2 H  b/ i
CustPropMgr.Add2 "備注", swCustomInfoText, ""
) @% t% D1 o3 m  e& W" k
$ _2 k2 J. w* ], S+ g+ o/ q' g

7 v2 l/ j5 \0 J) }+ c8 C6 _End Sub

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

吶,，你要怎樣

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

) W& D2 A3 u% v感謝大佬,，實測有效,。但是還是有點小遺憾，不能實現(xiàn)想要的功能,。
; Z, w$ O8 Z- A----
CustPropMgr.Add2 "數(shù)量", swCustomInfoText, ""
; `; B) ~: b0 N5 S# x# m2 s9 G

CustPropMgr.Add2 "材料", swCustomInfoText, strmat
/ p2 k! T3 Z+ l
0 K) B" x# u0 G* t" g----
5 v+ n2 s8 ], ?1 u8 e- a2 X7 C, |% {1 h如上面這兩段代碼,，材料后面strmat，會直接連接零件的材質(zhì),，而類似數(shù)量這樣后面是雙引號的,，則不能鏈接屬性。
屬性編輯標簽在自定義和配置待定中只能選擇一個,，這就很尷尬了,。

不知道大佬有沒有辦法，可以將代碼中這些信息直接鏈接相關(guān)屬性,？感謝大佬
2 a7 e, \& n- r2 \9 P% o4 R# n* k: e

金卯刀-劉

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

# b! Z: S/ ~7 `1.有辦法在配置特定里增加數(shù)量，但那是另外一個宏,，是統(tǒng)計整個裝配體里的零件自動寫數(shù)量到你指定是屬性名,。并且是在配置特定里。
2.材質(zhì)是要自己選擇的,，一個宏沒辦法寫不通用的東西,。如果想通用只能是關(guān)聯(lián)零件材質(zhì)屬性例如"SW-Material"
& k9 v* e% s; C2 a2 G3.不知道你用過屬性模板，你需要的這些是可以通過屬性模板實現(xiàn)的

吶，你要怎樣

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

% E1 i& k) L4 _# L' `屬性標簽是有用的,，但是不能同時寫入自定義和配置待定,，只能選一個。零件繪制完以后,，材質(zhì),、數(shù)量等信息就已經(jīng)通過屬性標簽錄入了，現(xiàn)在其實就是想讓自定義里的信息同樣地出現(xiàn)在配置待定里,。
因為看到大佬貼的代碼里,，最后Add的東西，如下：
- f, p' B# S7 h" A----
0 O% z5 T, [! ~) d/ ?# r$ x; c; ^1 \CustPropMgr.Add2 "圖樣代號", swCustomInfoText, e
----
這里的e和我之前的圖號分離宏里面定義的是一樣的,，然后運行完前一個后,，再運行你發(fā)的代碼，它會同樣的讀取e的信息,，然后再配置待定里面就會出現(xiàn)和自定義里面一樣的圖樣代號,。只是好像不知道可不可以把其他的信息都定義為某個字母，這樣是不是可以相互關(guān)聯(lián)上,？
" x- i. u' F$ |% c

feelling

看起來不錯

太一OS

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

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