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

jiajiang951

零件   故意用   圖號   加  雙引號 名稱    出圖的時候 名字變成了只有圖號 而且 標題欄    也是 只顯示  圖號~
' h; [- W' F- k
- E$ T6 f" H( o1 Q3 [% H
! h) E  V4 [. x( {, y- Y1 f7 N$ I怎么弄的？？  還有左側  他這種   子集    樹狀列表 具體 怎么操作？ 好處是 方便圖紙整理 規范。

曉昀

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

magicnie

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

一毛

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

金卯刀-劉

這個雙引號顯示的是“配置說明”，并非是前面幾個大俠說的圖號分離。從SW原則來說，零件名跟工程圖文件名肯定是同樣的。細看樓主的的截圖就知道前面幾位高手沒說到點上。
6 U' J& `& }: b, }; {+ O關于圖號分離問題，是很贊同樓上幾位的。下面是圖號分離宏（分離到自定義,備注：中間間隔符是空格號。可以根據自己需求改動）
; K% X) F! ?$ R/ f'定義solidwork
1 S. l4 [7 n3 K( ~/ t) vDim swApp As Object
Dim Part As Object
. n+ c& J3 L: v* O8 h& UDim SelMgr As Object
4 b9 u* O: x- ~% q" }) sDim boolstatus As Boolean
! L, @( ~5 B5 b- ?/ v: ^+ lDim longstatus As Long, longwarnings As Long
7 @  w( r0 a' {/ {, f0 w' d5 |Dim Feature As Object
Dim a As Integer
Dim b As String
- R/ p. C" W4 s) B  y  CDim m As String
Dim e As String
8 f) l5 D' i) w8 w+ S/ UDim k As String
Dim t As String
Dim c As String
Dim j As Integer
Dim strmat As String
% b& ^  `% v! O  N/ eDim tempvalue As String
Sub main()
'link solidworks
( t6 s4 M( }% P/ uSet swApp = Application.SldWorks
7 O2 P6 X, d* h, k- gSet Part = swApp.ActiveDoc
- d6 p# U5 Q7 b& USet SelMgr = Part.SelectionManager
4 F, L" K6 w7 S. d" yswApp.ActiveDoc.ActiveView.FrameState = 1
- V& `: I" R" o- _' e. ~$ u'設定變量
  b9 r# D. J0 H$ O% E2 yc = swApp.ActiveDoc.GetTitle() '零件名
9 L; h( h( a, u# s6 ustrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
8 ]5 d) o, n3 Y# Tblnretval = Part.DeleteCustomInfo2("", "代號")
: _" p8 c+ ?4 x9 E$ sblnretval = Part.DeleteCustomInfo2("", "名稱")
blnretval = Part.DeleteCustomInfo2("", "材料")
a = InStr(c, " ") - 1      '重點：分隔標識符，這里是一個空格
If a > 0 Then
$ F# F$ ?; j. @5 _    k = Left(c, a)
+ |/ N. O/ A" H3 F- O4 m7 d7 ~4 t) U    t = Left(LTrim(e), 3)
    If t = "GBT" Then
        e = "GB/T" + Mid(k, 4)
    Else
4 }8 ^) V& ]1 K        e = k
3 }: K* s4 _8 q* L$ w# D: N    End If
* m9 C, d& Z8 I& T9 t* L, C    b = Mid(c, a + 2)
9 c) B! R0 U2 [    t = Right(c, 7)
    If t = ".SLDPRT" Or t = ".SLDASM" Then
        j = Len(b) - 7
6 P0 T+ o% x3 a* x( H$ G    Else
        j = Len(b)
& |. P- d- A7 L8 n8 P, B    End If
3 G* ~  M2 x9 A) b$ k5 Y% ~; Y    m = Left(b, j)
End If
blnretval = Part.AddCustomInfo3("", "代號", swCustomInfoText, e)  '代號
blnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)  '名稱
6 g. T, c( e1 l1 C+ `, Q9 xblnretval = Part.AddCustomInfo3("", "作者", swCustomInfoText, " 劉騰qq420221716")
' V- `! B( D" r1 sEnd Sub

金卯刀-劉

下面是分離到配置(備注：間隔符同樣是空格號，并可以根據自己需求編輯)
# B% r. g$ J5 U9 r2 u8 \
'定義sw


4 C4 |: c+ b) S; w
1 l1 U) Y- a! \! H6 Q8 E& uDim a As Integer

  I# ^, z! u1 k+ h- H* rDim b As String
. n. i/ O1 W; J6 G0 A
Dim m As String
6 i. g3 U; x" U2 u. |8 A
' u& ~6 n8 K* w! cDim e As String

- Q8 e: Z% ]  p) x9 LDim k As String
/ E! L  U% y6 Y6 i8 Z
Dim t As String
$ s: r' E' Z8 E
Dim c As String

7 c- Z: w  x# gDim j As Integer
. F1 J; b. q, l. m
Dim strmat As String
) ]" E2 G8 R4 g4 S8 p. X5 P5 w8 Z* w
Dim tempvalue As String
# _. p8 A# A; n; i" j8 S5 c
  h* B6 u3 N1 D. C& T5 k& G! fDim Part As Object
* _3 }0 I! c4 F. e, k, t
Dim swApp As SldWorks.SldWorks
% E) J0 w8 j6 q. ?9 Q5 S
Dim swModelDoc As SldWorks.ModelDoc2

  G8 o/ {+ I8 x+ dDim swConfig As SldWorks.Configuration
2 g( h2 V# i) b% G* f
Dim CustPropMgr As SldWorks.CustomPropertyManager

Dim swModel As SldWorks.ModelDoc2

* S; l8 F: t/ m, ?- S9 h
( S# k1 Y4 A/ c% F, S9 t
Sub main()

Set swApp = Application.SldWorks

  P3 g' `  L- E# b- cSet swModelDoc = swApp.ActiveDoc

Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration
4 V+ \" J$ U+ y$ @1 K
Set swModel = swApp.ActiveDoc
. e# ~6 t! z% Q" {) ?
Set CustPropMgr = swModel.Extension.CustomPropertyManager

8 B, ?& Q5 j% [$ U: t(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸


" T. E0 |0 D0 v: W
'設定變量

c = swApp.ActiveDoc.GetTitle() '零件名

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

* ?- u, V. j( }6 b2 I4 R% ?  Ra = InStr(c, " ") - 1 '重點：分隔標識符，這里是一個空格，也可換成其他符號

If a > 0 Then

6 u1 a  x# H- x# n8 h: ?k = Left(c, a)
2 z7 p' B4 Y2 N1 V  E
t = Left(LTrim(e), 3)

If t = "GBT" Then

e = "GB/T" + Mid(k, 4)
5 c# F9 r5 ]2 J9 I! n, E
Else

e = k

End If
1 D4 Y' j  L3 Q, [$ b' w
b = Mid(c, a + 2)

/ ^; }1 u% \, j+ B+ D) L7 ut = Right(c, 7)
" M: {$ i# N" e7 V7 O7 @
If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
0 V. p9 f  W4 F  p
- U: {7 f# l! r" [# V5 p' k, uj = Len(b) - 7  '消除后綴（區分大小寫，即含4種）
. y# @" h7 U2 d
Else

j = Len(b)

7 k' H: Q& j. s% T3 W" s$ s9 BEnd If

# f/ j) m9 q& W! |/ g" ]0 rm = Left(b, j)

) {" ]$ @! K& ?( {/ ~End If

, Z7 _* T' }7 v  N'刪除欄
$ v" }5 ]8 g& x% ]& M
CustPropMgr.Delete ("Number")
% h" u6 U* w" U1 ~
, a/ d6 V5 y- \! h4 ACustPropMgr.Delete ("作者")

CustPropMgr.Delete ("圖樣名稱")

* c) t; N) e2 Z6 X( ]
! ]6 V% \" o+ T/ S- s/ W4 }4 X



1 n3 i; T, {! z: n- k'新增

CustPropMgr.Add2 "Number", swCustomInfoText, e
7 i0 |2 w' p! R& X, k. O; Y9 }
CustPropMgr.Add2 "作者", swCustomInfoText, "劉騰qq420221716"
, }  j5 |; f8 W/ ~, t
9 b6 i1 F' W1 {& ECustPropMgr.Add2 "圖樣名稱", swCustomInfoText,  m


4 r6 ^3 L4 i& ?& c) G4 T0 G

2 ^( G! D2 i3 }( g, zEnd Sub

金卯刀-劉

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

'定義sw

; e0 k3 U+ s4 s+ }# u5 ?7 G當然這里截圖顯示是上面代碼經過編譯后的效果。
; z: ^9 X$ R" u) V* n: C$ g

jiajiang951

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

- T9 m) n* }4 H5 j3 K% x他這個 雙引號 沒有顯示在  配置說明的括號里啊 ？直接在 代號后面的
! [1 n3 r5 F% C1 [+ ?, o1 E( t7 x

zero8337

學習了，謝謝！

喂我袋鹽

進來學習！