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

jiajiang951

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


1 ^2 ]6 ?, P. A4 V: S# C) N+ ^/ H5 _# I怎么弄的？？  還有左側  他這種   子集    樹狀列表 具體 怎么操作？ 好處是 方便圖紙整理 規范。

曉昀

/ G1 L  `5 Y, a* j5 i$ \/ R看看這個零件的屬性自定義里名稱和圖號那里的信息是什么？工程圖紙中的信息是來自于零件屬性里的信息。軟件就是個聰明的大傻瓜，你讓它做什么，它就做什么。也只做到那個地步。

magicnie

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

一毛

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

金卯刀-劉

這個雙引號顯示的是“配置說明”，并非是前面幾個大俠說的圖號分離。從SW原則來說，零件名跟工程圖文件名肯定是同樣的。細看樓主的的截圖就知道前面幾位高手沒說到點上。
5 v+ F. W( G/ @5 y' O5 _$ O" r關于圖號分離問題，是很贊同樓上幾位的。下面是圖號分離宏（分離到自定義,備注：中間間隔符是空格號。可以根據自己需求改動）
- r+ x- R. ]3 ]: R0 |$ r'定義solidwork
Dim swApp As Object
% {7 @4 _! L" k+ s! W' {& M& YDim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
& e- j1 r7 i8 ^3 _9 L: sDim longstatus As Long, longwarnings As Long
Dim Feature As Object
% _; g) f% ?( s# |5 SDim a As Integer
: Y( V" Z( Z( i7 FDim b As String
Dim m As String
' `! c2 P2 c' P: DDim e As String
5 u+ N5 T% V- TDim k As String
Dim t As String
- l  m3 v, ?- b# B( M4 r; KDim c As String
Dim j As Integer
Dim strmat As String
Dim tempvalue As String
: o' V! Z- o7 V, z8 uSub main()
'link solidworks
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
; U, b0 y! i) L0 o6 B% S, NswApp.ActiveDoc.ActiveView.FrameState = 1
'設定變量
c = swApp.ActiveDoc.GetTitle() '零件名
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
blnretval = Part.DeleteCustomInfo2("", "代號")
blnretval = Part.DeleteCustomInfo2("", "名稱")
4 \8 L# @/ h  M4 Y/ T6 oblnretval = Part.DeleteCustomInfo2("", "材料")
a = InStr(c, " ") - 1      '重點：分隔標識符，這里是一個空格
If a > 0 Then
    k = Left(c, a)
" [; |, z* @6 a: G    t = Left(LTrim(e), 3)
    If t = "GBT" Then
        e = "GB/T" + Mid(k, 4)
+ e8 f! |* {9 z; Y+ a3 J1 `    Else
9 @# ?4 }& a$ G5 U6 w0 O  T        e = k
    End If
    b = Mid(c, a + 2)
    t = Right(c, 7)
    If t = ".SLDPRT" Or t = ".SLDASM" Then
        j = Len(b) - 7
& ~6 Z$ b1 j  a8 e    Else
        j = Len(b)
    End If
    m = Left(b, j)
End If
, Q3 `' N' W4 rblnretval = Part.AddCustomInfo3("", "代號", swCustomInfoText, e)  '代號
$ ^4 u, Q8 ?- `. m& jblnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)  '名稱
3 d8 _6 \6 }2 J$ D9 Yblnretval = Part.AddCustomInfo3("", "作者", swCustomInfoText, " 劉騰qq420221716")
End Sub

金卯刀-劉

下面是分離到配置(備注：間隔符同樣是空格號，并可以根據自己需求編輯)

'定義sw
" |5 C; Z) r8 f" [, V% Y" X8 s+ ^
9 O, E; y$ q: Q! r9 V& b
9 D, [* p$ ]. Y3 E
7 d3 F& r" L% }5 q2 h7 MDim a As Integer
! D* V$ N" R. Z" `; M4 E
3 v4 m$ n' O( U; [7 i6 C! }Dim b As String

: P9 L, P( h) Z% \6 [' VDim m As String
' m' P. H3 J* o  z
Dim e As String

Dim k As String
8 g1 e8 V7 [' O2 O! H" w# o
; t. K/ {1 m9 i: p) PDim t As String
* L4 e' ~4 U6 a# {. H3 g
Dim c As String

Dim j As Integer
# s( j: D0 D/ a% A* G3 u
Dim strmat As String

6 Q& S8 X3 t6 @4 O1 \: rDim tempvalue As String
9 e6 _( ]4 U5 E# k/ u5 G
Dim Part As Object

8 ]7 s4 s4 D3 B0 w: h% h3 x- SDim swApp As SldWorks.SldWorks
) p/ ?- q# H0 @2 g, ^. O
Dim swModelDoc As SldWorks.ModelDoc2
# ?! \# m  v+ d% S% E
Dim swConfig As SldWorks.Configuration
$ [* O5 F$ j; }' w7 S
Dim CustPropMgr As SldWorks.CustomPropertyManager

) O9 f9 s- d' ?& {Dim swModel As SldWorks.ModelDoc2
; _2 F' X0 J' x. F1 o0 H

1 ^* `+ Q7 H* q( `
3 g0 R0 G) d; S! \0 jSub main()

Set swApp = Application.SldWorks
4 I1 m/ G! O( ]1 n
! p: C& m1 z+ {& G% CSet swModelDoc = swApp.ActiveDoc

" Q3 q5 x% Z0 H$ n4 {Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration
5 }! ~4 u6 |" ~) }
Set swModel = swApp.ActiveDoc

& k% ?5 t8 w6 J  g+ w1 `Set CustPropMgr = swModel.Extension.CustomPropertyManager
  c8 _+ s$ V9 f1 }) y7 `
6 a* M' l( q: X  k  d(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸
& }" Z7 ~0 r) m' u6 @

( o& d' N: W0 m  H0 ~% K
'設定變量

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

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

a = InStr(c, " ") - 1 '重點：分隔標識符，這里是一個空格，也可換成其他符號

If a > 0 Then
+ i" a0 F, }: N1 f5 s- j
& f) Y7 P) D# d$ ]! ^  W6 g* z" u* Ek = Left(c, a)
6 `  F5 W( }+ a) t3 L
0 a/ w) j0 a( z+ l% At = Left(LTrim(e), 3)
; {0 X8 m" g2 ]3 R( k
If t = "GBT" Then

e = "GB/T" + Mid(k, 4)
2 ?4 G; c4 v% g' E$ i5 W
Else

e = k

End If
. N' n6 s( g) p7 m
b = Mid(c, a + 2)

, d# \- M, A; [, T$ U8 B3 `t = Right(c, 7)

If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then

! L2 J2 D% I9 A0 Aj = Len(b) - 7  '消除后綴（區分大小寫，即含4種）
- W$ o8 P& c: ?) U+ l
" o6 r0 x& ^* e$ Q; u$ q4 h' EElse
, `7 ?+ |2 m- ]. f5 a6 y
# b) i1 d: K$ v( p* jj = Len(b)

3 ^# z! a# s$ N/ V1 f& n; lEnd If
6 Z9 ]9 [. A, @+ o
2 \7 r0 s$ Z7 J8 G3 Zm = Left(b, j)
7 {+ `& i$ Z; o: j/ s$ P3 Y. H* |9 ?3 z
& Z8 l; T& e4 ]5 |! ]  ZEnd If

'刪除欄

CustPropMgr.Delete ("Number")
2 ~% B  \4 m/ D' S% Q
CustPropMgr.Delete ("作者")

" Q5 P3 Y9 R6 L( m' Y% qCustPropMgr.Delete ("圖樣名稱")
$ b+ I+ q  c4 C+ S6 [. G3 b
3 o/ M( M% o1 Z6 U  g% f8 B
7 ^. U+ G/ x8 t; \$ K



'新增

+ u- |4 s& l) j! g; PCustPropMgr.Add2 "Number", swCustomInfoText, e
. T+ g, ^+ S. T
CustPropMgr.Add2 "作者", swCustomInfoText, "劉騰qq420221716"
* x- Y2 b+ f' O5 R0 g! q
9 e/ v* m  X  q, cCustPropMgr.Add2 "圖樣名稱", swCustomInfoText,  m

8 G$ H  q- A3 v! L: T6 x5 v

, U% U/ F$ `( [- k( a2 A+ ^1 u
End Sub

金卯刀-劉

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

'定義sw

當然這里截圖顯示是上面代碼經過編譯后的效果。

jiajiang951

金卯刀-劉 發表于 2018-9-12 10:05
5 a# o* b/ I! t& o1 T: ]這個雙引號顯示的是“配置說明”，并非是前面幾個大俠說的圖號分離。從SW原則來說，零件名跟工程圖文件名肯 ...

3 V- w7 ~8 t# w" V他這個 雙引號 沒有顯示在  配置說明的括號里啊 ？直接在 代號后面的

zero8337

學習了，謝謝！

喂我袋鹽

進來學習！