看下這個是不是開了掛 搞的 圖號 名稱分離？

jiajiang951

零件   故意用   圖號   加  雙引號 名稱    出圖的時候 名字變成了只有圖號 而且 標題欄    也是 只顯示  圖號~

* d: q+ _9 M' |
0 ~, Q4 x& U) p怎么弄的？？  還有左側  他這種   子集    樹狀列表 具體 怎么操作？ 好處是 方便圖紙整理 規范。
8 \" C) h% X5 Y

曉昀

* c3 l( K& F. P; o
看看這個零件的屬性自定義里名稱和圖號那里的信息是什么？工程圖紙中的信息是來自于零件屬性里的信息。軟件就是個聰明的大傻瓜，你讓它做什么，它就做什么。也只做到那個地步。

magicnie

只是個普通的宏命令而已，不要大驚小怪，對于這種的同學我都是贊一個，工作有方法

一毛

經常大批量且有規范的時候，可以這么做，一勞永逸，正常是簡單做個模板。難得出圖的情況下，怎么玩都無所謂了

金卯刀-劉

這個雙引號顯示的是“配置說明”，并非是前面幾個大俠說的圖號分離。從SW原則來說，零件名跟工程圖文件名肯定是同樣的。細看樓主的的截圖就知道前面幾位高手沒說到點上。
關于圖號分離問題，是很贊同樓上幾位的。下面是圖號分離宏（分離到自定義,備注：中間間隔符是空格號。可以根據自己需求改動）
'定義solidwork
Dim swApp As Object
Dim Part As Object
4 D5 Q$ k9 u. c. uDim SelMgr As Object
( H- U' T  l( Q7 g. A+ aDim boolstatus As Boolean
/ S. o& ]1 r8 ?& W, VDim longstatus As Long, longwarnings As Long
Dim Feature As Object
Dim a As Integer
Dim b As String
% O7 G; o" Y5 X2 y* LDim m As String
% ^" c$ e9 g% t6 J1 n' XDim e As String
Dim k As String
Dim t As String
Dim c As String
Dim j As Integer
Dim strmat As String
/ i, X) Z% P% t6 b7 u3 ]0 f& D2 MDim tempvalue As String
" g9 o9 t  y2 N5 ISub main()
$ `8 \$ n* s" d: N; e'link solidworks
9 t( |- q! }+ p5 B7 R: U4 p9 LSet swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
* l8 O2 ^, a6 b3 eswApp.ActiveDoc.ActiveView.FrameState = 1
'設定變量
c = swApp.ActiveDoc.GetTitle() '零件名
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
( R5 O- a' f, p4 Iblnretval = Part.DeleteCustomInfo2("", "代號")
5 O- x( H  h2 G% J5 }, p: Wblnretval = Part.DeleteCustomInfo2("", "名稱")
blnretval = Part.DeleteCustomInfo2("", "材料")
+ [" w* h( |  Ea = InStr(c, " ") - 1      '重點：分隔標識符，這里是一個空格
If a > 0 Then
( i+ X% ]' X2 q; [) g7 T% e5 ~    k = Left(c, a)
    t = Left(LTrim(e), 3)
    If t = "GBT" Then
7 d( E/ |$ r( u8 c8 E- r        e = "GB/T" + Mid(k, 4)
+ ~9 [8 ^" ~- ^/ }% }$ k4 L    Else
        e = k
2 |! X  w" v; |0 b2 U! C    End If
    b = Mid(c, a + 2)
9 t5 r2 {- O% N' H" s; D    t = Right(c, 7)
    If t = ".SLDPRT" Or t = ".SLDASM" Then
        j = Len(b) - 7
1 U, z' \+ j& V6 n- c" V+ i- h    Else
  B6 F+ q' i' J" n- W# ?        j = Len(b)
    End If
    m = Left(b, j)
( F3 x1 t$ o, x! l* a) f- ~End If
blnretval = Part.AddCustomInfo3("", "代號", swCustomInfoText, e)  '代號
blnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)  '名稱
! N' N5 P' j/ g6 ^9 h' r( dblnretval = Part.AddCustomInfo3("", "作者", swCustomInfoText, " 劉騰qq420221716")
End Sub
, |, ^7 W$ u2 ?' h. w  f

金卯刀-劉

下面是分離到配置(備注：間隔符同樣是空格號，并可以根據自己需求編輯)
) r- S. Y$ F, ?# M6 q0 M
'定義sw

4 S  h6 [' H$ m7 B/ I1 j. ]/ l: W9 k/ X% C

Dim a As Integer

" {$ H- x% _7 q# IDim b As String

Dim m As String

& X+ f. x9 l) Y* O; C5 nDim e As String
9 [( }# p% c+ O- M4 z6 t
: X; z8 g  B2 Y/ A7 j6 z- FDim k As String
5 E' s1 Q7 ~! _: `9 w! l
Dim t As String

! l2 Y" e" W  }9 p! h9 A3 a' lDim c As String
) Q  q$ o) _4 ^/ I+ B' E3 F
3 a/ _4 y6 D7 u7 y% b! H( w; UDim j As Integer

  y) ]5 @5 e, w. aDim strmat As String

' L8 I- z4 `: E1 _Dim tempvalue As String
- E9 L/ p7 X$ q# s
Dim Part As Object
' S. V2 {# y/ Q) {5 Z
Dim swApp As SldWorks.SldWorks

& E; A& O  A; P2 y( }Dim swModelDoc As SldWorks.ModelDoc2

0 r- V  ~0 m2 u7 ?& KDim swConfig As SldWorks.Configuration

Dim CustPropMgr As SldWorks.CustomPropertyManager
- O+ I6 M9 i4 p% u! }4 r# p
5 X: B9 c5 F( h. \1 Q# ^6 r  wDim swModel As SldWorks.ModelDoc2



1 d$ Q+ \+ f+ ~Sub main()
& ~, k; n4 Y# }5 a5 X& F- G
Set swApp = Application.SldWorks
4 L) Z# y4 [# y* R/ \
$ m: O( `" r9 _6 m0 Y) k& OSet swModelDoc = swApp.ActiveDoc

, U. ^2 p, X0 H* ]3 k) lSet swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration
' g4 Y- R% s! B2 `/ K7 S# ]& N
Set swModel = swApp.ActiveDoc
6 @4 d8 L6 x: v  k) n
& ]) N/ [' E5 n5 t9 QSet CustPropMgr = swModel.Extension.CustomPropertyManager
" o5 T5 o, h5 O, `0 x
/ ?- E, S( Q" M) Q% l* _7 w: Q(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸
2 v1 N2 N: Z$ w" c- z% F9 f

! K3 J6 U) c5 f# ^9 z! _
3 n1 _/ s9 i( o& p'設定變量
. j$ a6 l5 k9 _- Y5 K; R8 ~
c = swApp.ActiveDoc.GetTitle() '零件名
4 w8 t% `' X( t  \* H
) _1 R& b$ A/ H! ~1 e/ ~  G4 Dstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)

a = InStr(c, " ") - 1 '重點：分隔標識符，這里是一個空格，也可換成其他符號
' q9 d. p6 ?& \- X* J9 B
If a > 0 Then

k = Left(c, a)

t = Left(LTrim(e), 3)

# `' h9 [5 ~5 ], {' D5 }, cIf t = "GBT" Then

e = "GB/T" + Mid(k, 4)
2 S0 ~" ?: ?4 f. Y. ^
5 S8 Z- D9 p7 {9 r5 zElse

e = k

$ [% ?. q: i! iEnd If

b = Mid(c, a + 2)
1 s5 }! x  T6 M/ M% y7 J1 G% }3 H! A
: V, l% {/ a/ A3 \' U( o6 Z  {t = Right(c, 7)
& `3 u' ^2 R& L  M7 ^$ T( |
. G0 U) O: r& k5 _/ J1 n4 j8 I" YIf t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then

j = Len(b) - 7  '消除后綴（區分大小寫，即含4種）
4 T( c  t8 l2 s) j! i- b
: m8 {2 h7 T! N! z. J- R9 ^Else

j = Len(b)
+ x4 q6 b* i9 K) ~# s
+ j0 B$ g0 ]7 ~& t3 @End If
# g! \- V& M2 r
! n- l" k: ?0 G7 @m = Left(b, j)
; t( |. S+ O0 C! f/ J
, L& @* g1 ~) L& z" i# Y9 FEnd If

'刪除欄

CustPropMgr.Delete ("Number")
. d$ K$ x& X* T  Y
CustPropMgr.Delete ("作者")

CustPropMgr.Delete ("圖樣名稱")




4 c& |$ v4 \$ q" Z# A1 d

1 v: J/ r$ S2 v9 w* _4 r$ x'新增
3 R# I' J+ y+ u& m
8 i0 |# z2 _6 E, z) t2 ECustPropMgr.Add2 "Number", swCustomInfoText, e
7 C" ~5 f) G$ E: Q) t+ `
CustPropMgr.Add2 "作者", swCustomInfoText, "劉騰qq420221716"
; j2 T" O) E6 f/ ^
- I7 ]* D6 P; x2 |0 WCustPropMgr.Add2 "圖樣名稱", swCustomInfoText,  m
. b4 q6 Y  F9 @+ Y. U; l+ ^
5 w1 g4 N5 k5 u8 n$ e- ^

4 ~0 V% q4 j! ?( L) r
End Sub

7 O% T1 w6 s0 a& Z& M' g- s, j

金卯刀-劉

金卯刀-劉 發表于 2018-9-12 10:08
, \; d9 U$ t9 w7 q下面是分離到配置(備注：間隔符同樣是空格號，并可以根據自己需求編輯)

'定義sw

當然這里截圖顯示是上面代碼經過編譯后的效果。
  Y# G  Y  K  Q2 {  L

jiajiang951

金卯刀-劉 發表于 2018-9-12 10:05
" n+ v* X' `* x2 R0 Y這個雙引號顯示的是“配置說明”，并非是前面幾個大俠說的圖號分離。從SW原則來說，零件名跟工程圖文件名肯 ...

他這個 雙引號 沒有顯示在  配置說明的括號里啊 ？直接在 代號后面的

zero8337

學習了，謝謝！

喂我袋鹽

進來學習！