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

jiajiang951

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

# D  `1 o- l, M
. P; N3 k6 N. [% P+ Z" Q怎么弄的,？？  還有左側(cè)  他這種   子集    樹狀列表 具體 怎么操作？ 好處是 方便圖紙整理 規(guī)范。
$ s( K9 ^: J! E9 `

曉昀

+ |0 P! W$ T7 s  O" D8 r, f
4 P0 C  v) D' ~5 @7 H3 g) q看看這個零件的屬性自定義里名稱和圖號那里的信息是什么,？工程圖紙中的信息是來自于零件屬性里的信息,。軟件就是個聰明的大傻瓜，你讓它做什么,，它就做什么,。也只做到那個地步。

magicnie

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

一毛

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

金卯刀-劉

這個雙引號顯示的是“配置說明”,，并非是前面幾個大俠說的圖號分離,。從SW原則來說,，零件名跟工程圖文件名肯定是同樣的。細看樓主的的截圖就知道前面幾位高手沒說到點上,。
+ G0 h- ?% l$ _3 h* e" F: ^4 H4 l6 B關(guān)于圖號分離問題,，是很贊同樓上幾位的。下面是圖號分離宏（分離到自定義,備注：中間間隔符是空格號,�,？梢愿鶕�(jù)自己需求改動）
5 O( O  r5 g- Z1 g, n7 Z* {2 |'定義solidwork
9 b. p6 F8 w( P  {. V1 aDim swApp As Object
Dim Part As Object
  w# B# Y2 x1 X5 T* X2 ADim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
' n0 i, _  A$ p- g; v3 ~- pDim Feature As Object
0 \3 R9 _0 g3 L- }Dim a As Integer
Dim b As String
8 q: Z& F* N4 E- x! ^8 b6 wDim m As String
Dim e As String
Dim k As String
Dim t As String
Dim c As String
Dim j As Integer
3 e$ g" {% g5 J" l, zDim strmat As String
Dim tempvalue As String
Sub main()
  ], ]  c; i2 X9 H: D'link solidworks
Set swApp = Application.SldWorks
3 E  `8 ?0 u0 a: p7 e! f7 p1 C6 d$ `& eSet Part = swApp.ActiveDoc
9 b8 t9 \/ f5 }5 l  r# q- GSet SelMgr = Part.SelectionManager
6 W* H5 M" {7 Z: nswApp.ActiveDoc.ActiveView.FrameState = 1
3 N3 c1 |' T" L0 U8 R) S% n. X4 C) r'設(shè)定變量
2 [! _% M) n6 bc = swApp.ActiveDoc.GetTitle() '零件名
+ k2 n4 f. G8 i  F4 Gstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
( w- F+ o3 Z' {& J: zblnretval = Part.DeleteCustomInfo2("", "代號")
blnretval = Part.DeleteCustomInfo2("", "名稱")
1 J* [: @* c1 c/ K7 Zblnretval = Part.DeleteCustomInfo2("", "材料")
; q4 I, ~" [. p5 h6 e7 [9 la = InStr(c, " ") - 1      '重點：分隔標識符，這里是一個空格
If a > 0 Then
    k = Left(c, a)
# ^! v2 W% j4 P0 M    t = Left(LTrim(e), 3)
; Q; G$ @& ^4 I; U% B# h    If t = "GBT" Then
        e = "GB/T" + Mid(k, 4)
$ m5 w5 n6 Q6 \8 f/ V# ~    Else
: A3 z; ^: f: r9 Y! P        e = k
    End If
* P# S$ c; J& r) M, c. O- L    b = Mid(c, a + 2)
    t = Right(c, 7)
    If t = ".SLDPRT" Or t = ".SLDASM" Then
! Z) @$ @% K1 ^) w( C! ?2 J* l        j = Len(b) - 7
    Else
        j = Len(b)
2 Y; ]' B& F6 r- p: w% m. H    End If
    m = Left(b, j)
End If
blnretval = Part.AddCustomInfo3("", "代號", swCustomInfoText, e)  '代號
1 {: R" D9 ?( O% d( Hblnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)  '名稱
blnretval = Part.AddCustomInfo3("", "作者", swCustomInfoText, " 劉騰qq420221716")
End Sub
( I( [7 ?$ Y+ J7 f

金卯刀-劉

下面是分離到配置(備注：間隔符同樣是空格號,，并可以根據(jù)自己需求編輯)
2 y( P$ {0 \5 w; G
% z& Z, D4 E/ _'定義sw
1 o5 H3 Z% m# `# m
* Q2 f3 I' _; O! z. n
  _% o. Y5 u& c/ v4 P% s& M
" i! ^1 ~$ E; C' c: x: TDim a As Integer

3 M5 N& J: i' O8 M) WDim b As String

7 i1 p5 E7 C; v1 e' @% VDim m As String

Dim e As String
5 J3 @5 b! w% Z8 k0 |8 [
Dim k As String
6 Q0 _# |& E4 g- Q1 E: R- |
Dim t As String

$ h7 E8 V. h! M4 aDim c As String
" X! L- n5 a8 S( V) Z, Y" ^. E
Dim j As Integer

Dim strmat As String
- w. G3 W# z# l& S) `
5 z- V& [8 }. g- n# |. JDim tempvalue As String
: }4 |: ~6 _# M+ B7 e. f
( ^5 C7 @) H. {2 z1 U9 f; m* B, WDim Part As Object
) y# z# l# U! G& ?
! _4 ]% W  Y9 A+ |2 D& L9 V" ~Dim swApp As SldWorks.SldWorks
/ k* T# S; i2 f/ \  A' t( L9 x
7 _2 {3 X- v8 o# B' ^$ F2 j  A% gDim swModelDoc As SldWorks.ModelDoc2
7 X: D9 i% e2 q
Dim swConfig As SldWorks.Configuration

Dim CustPropMgr As SldWorks.CustomPropertyManager
. |5 A( Y2 ~" E1 R" y8 x
Dim swModel As SldWorks.ModelDoc2

: [/ m7 }5 D1 ]1 c% |8 Z2 Z: k

2 F+ i3 W' h& T: G! H* C( F" rSub main()
$ k% Q" s) h  x5 v' W
Set swApp = Application.SldWorks

$ ]) a5 m: R& rSet swModelDoc = swApp.ActiveDoc
$ u; o0 B# j  b' o5 e
8 l6 m" K9 Y$ `4 X$ H/ E) W- f# }Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration
' W  j4 \% i% I: c& H
Set swModel = swApp.ActiveDoc

' V8 l+ R- k5 e9 s  z0 \Set CustPropMgr = swModel.Extension.CustomPropertyManager
* ?2 L( M4 [- B
(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸

) e; U! i' ^" e# F1 f
4 `% t, x: s0 p
+ x; a; r1 r2 K! @'設(shè)定變量
/ w; @; d/ f6 b8 v; p4 d6 I
' s' a. k. d+ E0 R  o* Ac = swApp.ActiveDoc.GetTitle() '零件名

strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)

) f  r! G7 u, N2 m  H& `3 Wa = InStr(c, " ") - 1 '重點：分隔標識符,，這里是一個空格，也可換成其他符號

If a > 0 Then
! g# D2 m# v& `- c  R5 P+ {0 M$ P
k = Left(c, a)

* y" X* f3 ^1 [* [* V9 Q; R1 at = Left(LTrim(e), 3)

+ s/ b  n. I' g( |8 q7 bIf t = "GBT" Then
9 y" s: E( ]9 n7 i* U) N* Q0 b& b2 q
" U7 i2 a- r0 j5 c5 E( ?. Me = "GB/T" + Mid(k, 4)

  j# n' B8 B7 K/ `7 rElse
& P6 H/ m, ?& V
1 @/ S7 U9 H4 s' C6 Le = k
& S: ^9 k0 ]6 \& i) `  i9 c
$ Q7 g( i. `9 L) Q& L, q7 y# ~End If

  D$ F$ K3 O+ g' e1 W$ k. `3 |b = Mid(c, a + 2)
) f# ]8 E  |" r6 I& k
t = Right(c, 7)

  F' ^) i$ M  b; c! Z8 wIf t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then

7 W- `0 Y8 d& C6 Q& R& fj = Len(b) - 7  '消除后綴（區(qū)分大小寫,，即含4種）

Else

j = Len(b)

2 s! |5 a+ I+ `- ~7 AEnd If

! V6 }( ]. H- `m = Left(b, j)

End If
) |$ g, X  K4 [) t9 }% F
'刪除欄
  l' e9 V- v# n. i* o
! R4 F! l. n/ N  M1 kCustPropMgr.Delete ("Number")
4 Z8 T, c3 M8 V* f( X
& x9 ^! `+ W7 J  eCustPropMgr.Delete ("作者")

CustPropMgr.Delete ("圖樣名稱")
- S+ s2 t$ k0 G! O
8 K! [: r4 X# w; ]4 f$ A* k/ J
, q  I2 b# T+ t. ]
9 g% t2 L! I6 C! [8 \

  S! }! _. l, E7 }6 p+ X! i1 E
'新增

0 H% T5 E: v; K! z0 NCustPropMgr.Add2 "Number", swCustomInfoText, e
3 k. B: n  H) P4 Q% Z1 A; x
' y8 I. }0 U( H, `4 v7 f1 aCustPropMgr.Add2 "作者", swCustomInfoText, "劉騰qq420221716"

; D) A7 W; [2 v+ pCustPropMgr.Add2 "圖樣名稱", swCustomInfoText,  m
9 j# G  c6 q+ W8 N% z# g$ F$ S

  A3 A9 f9 j  Y; G+ D
' E  r. S. ]' }  b# n
3 Z% k$ B2 O  K1 ~' u7 G" pEnd Sub

金卯刀-劉

金卯刀-劉 發(fā)表于 2018-9-12 10:08
) D4 c+ {6 N; Z* g' j* K9 A下面是分離到配置(備注：間隔符同樣是空格號,，并可以根據(jù)自己需求編輯)

'定義sw

當然這里截圖顯示是上面代碼經(jīng)過編譯后的效果。
. B) \" i0 f) e4 p) b# b5 r5 g( x. x4 W

jiajiang951

金卯刀-劉 發(fā)表于 2018-9-12 10:05
! u. U0 m, F' g( ?這個雙引號顯示的是“配置說明”,，并非是前面幾個大俠說的圖號分離,。從SW原則來說，零件名跟工程圖文件名肯 ...

9 u, W; W1 A% X( Q他這個 雙引號 沒有顯示在  配置說明的括號里啊 ,？直接在 代號后面的

zero8337

學習了,，謝謝！

喂我袋鹽

進來學習,！