圖號分離

吶，你要怎樣

軟件小白一枚，因為公司需要統一零件模板，并且和我們搭建的PDM關聯，需要將文件屬性寫入配置待定里面。之前用圖號分離宏只能把屬性寫入自定義信息中，配置待定中只有空的標題，分離后的內容不能讀取。
下面是我在網上找的說是可以將圖號分離后屬性寫到配置待定的代碼，實際調試有錯誤，見紅色代碼。
---
Dim a As Integer
. g$ u" \6 m. ]7 H1 \- A9 {
Dim b As String
0 @, Y  j7 k: X# U4 `! D8 \4 G
4 F3 ]. `% a8 K& |: pDim m As String

: D9 a; o$ y( s+ MDim e As String

8 H  r9 F1 R$ l7 F. v; U* R* [Dim k As String
5 N( [( I5 x) [: B
Dim t As String
4 N1 Y+ a+ @1 _& h7 r: v
Dim c As String

5 y" {. e2 ?9 I; X6 K4 s* O" |( MDim j As Integer
: l: k4 J# `: ]/ e" \
Dim strmat As String

Dim tempvalue As String
, c" g. x6 q" n; a5 `9 e
Dim Part As Object
8 ~1 S$ T$ H  C. f
Dim swApp As SldWorks.SldWorks
" y( n' t2 H& l" |  x$ E! e
# _4 V, t4 ?" w3 n7 ]- {Dim swModelDoc As SldWorks.ModelDoc2

Dim swConfig As SldWorks.Configuration
7 @4 i  a& p- Y, [, ~
Dim swModel As SldWorks.ModelDoc2
5 }/ H% z5 j7 R
3 R" `0 q1 i5 z; U* d$ ?' BSub main()

8 ^* k$ K! n& E' D! I4 L9 Q& qSet swApp = Application.SldWorks

1 P! T! n8 s) XSet swModelDoc = swApp.ActiveDoc

; i4 \# N; T# [, M, W, j8 ZSet swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration

0 j4 c" T# P/ ?7 L1 c6 N' q. USet swModel = swApp.ActiveDoc
! g+ H# s5 {# i* B
  L5 ~: k! B1 }Set CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguratio.Name) '配置特定延伸

'設定變量
3 m# L% q, T2 W% }3 T
c = swApp.ActiveDoc.GetTitle() '零件名
! l- o5 k7 ?) b4 _
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
2 p; e' D# s3 |- |, u3 @3 _
, h- D9 D" q3 K3 n, m4 q" s  Ca = InStr(c, " ") - 1 '重點:分隔標識符,這里是一個空格,也可換成其他符號

If a > 0 Then
7 j8 `! y0 c+ L4 Z. N
k = Left(c, a)

) K6 c& N; @: d) |( It = Left(LTrim(e), 3)

If t = "GBT" Then

& P% g0 N" z1 h& _e = "GB/T" + Mid(k, 4)

" n) }1 X: L7 a7 W2 x5 }Else
% k: {; @! R, w, i) x
/ A; {6 d0 J$ ^6 l1 w5 d+ Oe = k
: N8 G+ U% Q$ I2 [5 T; [) [$ y
End If
) J% W3 n! @2 T
b = Mid(c, a + 2)

" \1 _) N" q! [* ?5 Y: r5 It = Right(c, 7)

If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
# p) _0 U0 M% @. G
% a, C$ J( p, ?' xj = Len(b) - 7 '消除后綴(區分大小寫,即含4種)

' R  u2 V3 z+ bElse
( F5 j$ N' V" x: g7 R
j = Len(b)

End If
8 s/ f. ]) ?) m; z) _$ C
' g+ @5 }9 v0 d( D9 q8 W4 im = Left(b, j)
: }8 J/ h2 h" y+ A7 D! P5 f
End If
7 U- ~, g/ w; r' S! g0 u; e, f; s
2 b; L; C; Y  h5 K; q'刪除欄

: |: \1 I! X: `CustPropMgr.Delete ("圖樣代號")

CustPropMgr.Delete ("圖樣名稱")

CustPropMgr.Delete ("材料")

* w1 Q: }/ P1 B( C8 _  i'新增
7 G/ T0 M+ Q$ @& V: s2 c
( }( z* G1 d6 C* i: tCustPropMgr.Add2 "圖樣代號", swCustomInfoText, e
6 p3 A- h, K4 L/ X8 y. x0 p( P
9 z) R- A" F3 }6 {CustPropMgr.Add2 "圖樣名稱", swCustomInfoText, m
7 t% w$ C; O# ^+ f
. ]. h& P: t6 u% l3 iCustPropMgr.Add2 "數量", swCustomInfoText, ""

( s9 r% D* g; N! H6 fCustPropMgr.Add2 "材料", swCustomInfoText, strmat
5 S. j: c' f6 e+ ~; v
! U7 K0 X3 ?% G$ F5 cCustPropMgr.Add2 "單重", swCustomInfoText, ""

% ^5 d7 T0 L/ @# w" {CustPropMgr.Add2 "總重", swCustomInfoText, ""

CustPropMgr.Add2 "備注", swCustomInfoText, ""
4 w$ n- {2 l6 E3 v! E! ~
End Sub
---
% }" s; r( ]( X3 H/ Y想請教下大拿們，這個代碼要怎么修改才能管用。之前的圖號分離宏，可以讓所有屬性出現在自定義里?；蛘哂袥]有辦法加一段自動復制自定義里面屬性到配置待定里去的代碼？
) Q6 p  H3 H) d5 d" u& n0 f
在線等大神解惑

- n( p" e! a) A$ T2 l9 L8 L  ]2 _
: L9 P, W9 N( n1 V- S+ V: X

吶，你要怎樣

可以用宏來實現自動復制嗎，嘗試錄制宏，沒有用

Wukui*

叫我大哥，我可以分享現貨給你。。。哈哈哈哈哈

吶，你要怎樣

Wukui* 發表于 2019-4-22 16:58
叫我大哥，我可以分享現貨給你。。。哈哈哈哈哈

大哥好
/ h7 b! J$ |- z; k7 W

金卯刀-劉

% G. ^& h! J( ]; ^  q# w) d9 D'定義sw
# v2 S& E/ U" b9 d
' h6 W, c* d3 e& W4 O, T7 ]5 V

  s. [0 D$ S- y+ J4 j9 K% \Dim a As Integer

3 a0 O! z7 t; D5 Y, X; @- NDim b As String

Dim m As String
$ c* N) ~' y3 f# {; s+ F9 }0 ]
7 R. [0 c3 A3 A% m6 }1 }# oDim e As String

  H; `) K- K+ z6 gDim k As String
! M% T) ^; Y6 A- m2 `, S4 g
Dim t As String

Dim c As String

Dim j As Integer

Dim strmat As String

Dim tempvalue As String

Dim Part As Object
% x0 u" O( e- _) x
' Q% n# [: n; |; r  {Dim swApp As SldWorks.SldWorks

" t9 b: V7 I* k( HDim swModelDoc As SldWorks.ModelDoc2

Dim swConfig As SldWorks.Configuration

Dim CustPropMgr As SldWorks.CustomPropertyManager
  A0 u) ~8 C9 e  q! [$ U3 M8 W
: q- \* F# C1 Z$ R! P8 j2 ~3 PDim swModel As SldWorks.ModelDoc2

/ D1 p9 a& g9 h$ H

5 }6 ^. }( P+ A$ z# e. ?Sub main()
) e, a" o7 u% g7 J3 x& ]4 J
Set swApp = Application.SldWorks
. @+ [! X7 s( t2 r" j% L9 b
+ s5 ~8 X1 V! |+ d- m7 T2 f, w# ?Set swModelDoc = swApp.ActiveDoc

Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration

6 c$ Y7 K# M/ i2 ?& j" }% W' N1 FSet swModel = swApp.ActiveDoc
; B" ~, C( q4 y" Z
! m- ]; P7 ?# R9 o& [2 xSet CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸
4 P) @' E: j& `" \. |, z
7 i* W* l. P; \  c5 o
+ _5 C  R5 d: n# |5 r$ C3 y! R  R
'設定變量
3 K7 I5 W. l7 p% g
5 G6 M9 f9 l, sc = swApp.ActiveDoc.GetTitle() '零件名
8 L! z" u& T. i6 S# `
( D* X; x9 t1 U" }strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
7 j. m0 G" M7 `* O" |6 L
a = InStr(c, " ") - 1 '重點：分隔標識符，這里是一個空格，也可換成其他符號

+ Q/ C& P3 B4 T$ t* {0 GIf a > 0 Then

k = Left(c, a)

" z, f4 {1 m6 T$ zt = Left(LTrim(e), 3)
' K2 x; k, d; S5 k6 U
9 x( s- V8 Z* p  e9 ?7 m& I& `If t = "GBT" Then

e = "GB/T" + Mid(k, 4)
  _1 C. n1 t! L% X" v  t! x: h( h
' O* a# F, u: z7 k6 r: s# }Else

e = k

End If
; }6 D: Z6 |/ r( Z- z3 X2 T% t) e, x
b = Mid(c, a + 2)

t = Right(c, 7)
) H' A& g: n7 P8 c" ?& Z
( Y7 p  n6 g; w* x: tIf t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then

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

Else

7 u8 n+ I# _+ pj = Len(b)
$ E4 F1 ~; k) @# p
End If

m = Left(b, j)

1 S& _0 B: I( E$ s3 Y8 n, D7 O3 LEnd If

  \+ p0 q. d( d0 F'刪除欄
% i& M8 z) Q" ~! L! o
CustPropMgr.Delete ("圖樣代號")
7 I2 B0 I4 O/ `% k7 b
7 o$ }, n. X7 W* bCustPropMgr.Delete ("圖樣名稱")

CustPropMgr.Delete ("材料")
6 m! G6 ]; {5 p& d4 \


'新增
2 @9 h# R+ @5 b$ O7 z0 [. f
8 M" p8 C* ?; b( U! j5 j. jCustPropMgr.Add2 "圖樣代號", swCustomInfoText, e

CustPropMgr.Add2 "圖樣名稱", swCustomInfoText, m
% V5 m; v& }% Z3 o
( r; S' F: P9 Z" vCustPropMgr.Add2 "數量", swCustomInfoText, ""
7 }6 y- ]( `' ]4 @7 `8 U/ D
0 ^# @1 n; L. E- ^& vCustPropMgr.Add2 "材料", swCustomInfoText, strmat
8 |6 W& I1 c* Z- p2 R% O! O1 A
CustPropMgr.Add2 "單重", swCustomInfoText, ""

% L8 e6 x1 U3 ^7 W" |CustPropMgr.Add2 "總重", swCustomInfoText, ""

CustPropMgr.Add2 "備注", swCustomInfoText, ""

5 K' B) `' ^& E6 X2 |1 w  j4 t9 ]3 |

End Sub

! ?! n2 Y. N+ j( N親試管用，注意圖號與名稱中間間隔是“空格”

吶，你要怎樣

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

7 j" ~% J. n4 Z) v4 @7 C9 ^感謝大佬，實測有效。但是還是有點小遺憾，不能實現想要的功能。
3 a8 L, i" w  z/ }8 l----
CustPropMgr.Add2 "數量", swCustomInfoText, ""


) \; Z, u6 n* a  G/ b8 [. y6 V. ECustPropMgr.Add2 "材料", swCustomInfoText, strmat
3 _0 Q6 o/ w& b' j+ i
----
如上面這兩段代碼，材料后面strmat，會直接連接零件的材質，而類似數量這樣后面是雙引號的，則不能鏈接屬性。
屬性編輯標簽在自定義和配置待定中只能選擇一個，這就很尷尬了。

不知道大佬有沒有辦法，可以將代碼中這些信息直接鏈接相關屬性？感謝大佬

金卯刀-劉

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

4 X. G" X, E* L; w% u: z( c5 N" \1.有辦法在配置特定里增加數量，但那是另外一個宏，是統計整個裝配體里的零件自動寫數量到你指定是屬性名。并且是在配置特定里。
5 S' [) H  ^2 W/ W$ j2 Z* {. d2.材質是要自己選擇的，一個宏沒辦法寫不通用的東西。如果想通用只能是關聯零件材質屬性例如"SW-Material"
  d+ m( ~7 J& G( s& R/ B9 B& P! A/ ?3.不知道你用過屬性模板，你需要的這些是可以通過屬性模板實現的

吶，你要怎樣

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

' K6 ~% U& k- i  I屬性標簽是有用的，但是不能同時寫入自定義和配置待定，只能選一個。零件繪制完以后，材質、數量等信息就已經通過屬性標簽錄入了，現在其實就是想讓自定義里的信息同樣地出現在配置待定里。
因為看到大佬貼的代碼里，最后Add的東西，如下：
! X4 T2 z8 N: V6 j  I$ `' x& w----
CustPropMgr.Add2 "圖樣代號", swCustomInfoText, e
, n* q1 x" \3 I( e. q! A----
這里的e和我之前的圖號分離宏里面定義的是一樣的，然后運行完前一個后，再運行你發的代碼，它會同樣的讀取e的信息，然后再配置待定里面就會出現和自定義里面一樣的圖樣代號。只是好像不知道可不可以把其他的信息都定義為某個字母，這樣是不是可以相互關聯上？
- V2 A/ G: ?* n8 e

feelling

看起來不錯

太一OS

金卯刀-劉 發表于 2019-4-23 15:40
1 C- a7 m8 p$ m3 m9 Q) _1.有辦法在配置特定里增加數量，但那是另外一個宏，是統計整個裝配體里的零件自動寫數量到你指定是屬性名 ...

4 m% `: s* u6 J你好，請問一下圖號分離能實現三段分離嗎？比如圖號 圖名 備注
4 h& J( q8 T4 |: v8 U% z! G' j