看下這個(gè)是不是開了掛 搞的 圖號(hào) 名稱分離？

jiajiang951

零件   故意用   圖號(hào)   加  雙引號(hào) 名稱    出圖的時(shí)候 名字變成了只有圖號(hào) 而且 標(biāo)題欄    也是 只顯示  圖號(hào)~


怎么弄的？？  還有左側(cè)  他這種   子集    樹狀列表 具體 怎么操作？ 好處是 方便圖紙整理 規(guī)范。
  a: k( I) X* w" Y( t% @$ Z

曉昀

! S- d$ \9 u( ^9 t
看看這個(gè)零件的屬性自定義里名稱和圖號(hào)那里的信息是什么？工程圖紙中的信息是來(lái)自于零件屬性里的信息。軟件就是個(gè)聰明的大傻瓜，你讓它做什么，它就做什么。也只做到那個(gè)地步。

magicnie

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

一毛

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

金卯刀-劉

這個(gè)雙引號(hào)顯示的是“配置說(shuō)明”，并非是前面幾個(gè)大俠說(shuō)的圖號(hào)分離。從SW原則來(lái)說(shuō)，零件名跟工程圖文件名肯定是同樣的。細(xì)看樓主的的截圖就知道前面幾位高手沒(méi)說(shuō)到點(diǎn)上。
關(guān)于圖號(hào)分離問(wèn)題，是很贊同樓上幾位的。下面是圖號(hào)分離宏（分離到自定義,備注：中間間隔符是空格號(hào)。可以根據(jù)自己需求改動(dòng)）
'定義solidwork
4 Q! o" n) I8 `) q+ c. f$ W) `/ C) f$ F% lDim swApp As Object
Dim Part As Object
2 `0 `8 c3 T0 q3 r. V+ RDim SelMgr As Object
Dim boolstatus As Boolean
9 ~8 ~  q, ^1 GDim longstatus As Long, longwarnings As Long
! [8 s8 S3 k/ SDim Feature As Object
Dim a As Integer
Dim b As String
6 ?' H% W" e( T& F+ x4 j: p' ?Dim m As String
Dim e As String
! X( w9 m& W7 f" d; XDim k As String
Dim t As String
5 s* V1 {7 i% r# LDim c As String
6 R$ T- n" r5 LDim j As Integer
Dim strmat As String
/ f: K' t8 Z2 h) L0 QDim tempvalue As String
Sub main()
2 h! _; Q: H( g2 g$ B7 d'link solidworks
! B. w- h5 y; N6 ^$ z3 Z! qSet swApp = Application.SldWorks
2 X6 w! K  g* a; I8 fSet Part = swApp.ActiveDoc
5 J& O. L: v/ N. M  d: nSet SelMgr = Part.SelectionManager
4 E( J$ M; {" V- z4 d: _swApp.ActiveDoc.ActiveView.FrameState = 1
'設(shè)定變量
  ]( N, e* c/ m% l: [c = swApp.ActiveDoc.GetTitle() '零件名
5 @+ o) C4 D3 hstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
blnretval = Part.DeleteCustomInfo2("", "代號(hào)")
& Y1 ~- m8 x# `) [4 `0 Jblnretval = Part.DeleteCustomInfo2("", "名稱")
( {  }  Y' X* R) ?) d/ F3 W# |9 I, ublnretval = Part.DeleteCustomInfo2("", "材料")
+ g  v2 X9 A0 j. e9 u' Q7 oa = InStr(c, " ") - 1      '重點(diǎn)：分隔標(biāo)識(shí)符，這里是一個(gè)空格
If a > 0 Then
    k = Left(c, a)
    t = Left(LTrim(e), 3)
    If t = "GBT" Then
        e = "GB/T" + Mid(k, 4)
    Else
, U# Z5 c  g5 _, T        e = k
    End If
    b = Mid(c, a + 2)
    t = Right(c, 7)
    If t = ".SLDPRT" Or t = ".SLDASM" Then
1 F" _% C. y! O  f3 }0 h) \        j = Len(b) - 7
    Else
        j = Len(b)
    End If
( I- x# {; m0 q7 v    m = Left(b, j)
8 P5 |" q  r9 |6 BEnd If
7 [) v1 w4 m" ublnretval = Part.AddCustomInfo3("", "代號(hào)", swCustomInfoText, e)  '代號(hào)
blnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)  '名稱
blnretval = Part.AddCustomInfo3("", "作者", swCustomInfoText, " 劉騰qq420221716")
4 g+ z8 [! P+ ^5 U# kEnd Sub
) n9 e' B6 O! d. m! O, S

金卯刀-劉

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

'定義sw
- N: A. H$ l" x
0 \; {4 n+ ?9 N1 T
" @1 ?1 R( |# g: b) N
! P4 R0 j2 R5 _# o' o- }6 _1 HDim a As Integer

Dim b As String

Dim m As String
$ R5 E* t) l0 x6 c
Dim e As String

& D( h) I' I3 o8 ?1 p5 fDim k As String

Dim t As String
4 |: m+ T9 @8 a; n/ a9 Y0 r
$ x3 Y6 X) A& d1 |$ ^3 U3 [Dim c As String

# z) u; ?% \& HDim j As Integer
; B+ I3 f3 R- l7 h) b
. L" r. q. x3 m2 F: Q1 P5 A, U/ tDim strmat As String

# u: Y, h. _; O5 |Dim tempvalue As String

Dim Part As Object
) G6 o# P0 Z4 K7 X' G" h( W" v
Dim swApp As SldWorks.SldWorks
! g$ ]) I8 n8 S: ^, ^
Dim swModelDoc As SldWorks.ModelDoc2
) E. `* z9 D- {1 X1 O9 O' I4 ?
# d( i5 m2 s" P0 NDim swConfig As SldWorks.Configuration

Dim CustPropMgr As SldWorks.CustomPropertyManager

Dim swModel As SldWorks.ModelDoc2


  c9 I7 S( E1 r0 X* V
Sub main()
+ ?; r! }$ s: c; \4 \. A" \: @
Set swApp = Application.SldWorks

3 r7 q3 v' m; w4 J8 X, CSet swModelDoc = swApp.ActiveDoc

6 a: V2 V0 f' T6 V/ k+ E0 n. r7 gSet swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration

7 W% C3 d& T# O* V& A6 SSet swModel = swApp.ActiveDoc

Set CustPropMgr = swModel.Extension.CustomPropertyManager

(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸

6 ^4 Y' a# Z& O0 X* h% I# @6 p* z
- I- S+ s( h8 z
'設(shè)定變量

$ m- v0 s; R7 d  Gc = swApp.ActiveDoc.GetTitle() '零件名
% Z- P0 Y3 T4 `
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
$ Z3 x; d( W; Y: G+ S  i# M. w
3 J! r* y# l& W" ?6 X8 `" |a = InStr(c, " ") - 1 '重點(diǎn)：分隔標(biāo)識(shí)符，這里是一個(gè)空格，也可換成其他符號(hào)

0 t6 z. M5 @, a. Y: M6 wIf a > 0 Then

! P+ |$ x6 l' Z) u* Y& {k = Left(c, a)
" Y7 O% X' X/ J3 ^. E
) D+ q' C2 \. P/ e$ {% bt = Left(LTrim(e), 3)
4 Y4 H7 X' \/ F
If t = "GBT" Then

+ Y& F8 ]: k; _0 |9 J# Se = "GB/T" + Mid(k, 4)
/ }$ L7 G( f; G8 [) u; M
Else
9 ~& |6 e8 g, w# H( k2 G+ [3 ^' @
( G- W4 K; t6 U3 S" Q% Z: R- e. Ve = k

2 g. }9 h5 U$ \& h: S% h% NEnd If
: k1 }! s  F) n# V* n
; d1 ]" [9 b1 s) B! M8 C, lb = Mid(c, a + 2)

9 L+ V( B. ]. g0 y- Y% d1 st = Right(c, 7)

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

' y& S( _/ {2 c( [8 w) oj = Len(b) - 7  '消除后綴（區(qū)分大小寫，即含4種）
; N' c  o* c  \$ y5 y* _: m/ W2 Q
Else
; }6 J( G* z/ g8 Y4 g
j = Len(b)

6 Z- @% C1 U3 Q, `4 b- o, KEnd If
% A0 B: p7 Y: O; M2 |
5 I# A$ Q$ J0 a! i, [" `m = Left(b, j)

End If

, R2 F. G) Z4 P. B'刪除欄

CustPropMgr.Delete ("Number")
& r) ]0 \' C+ \. A7 f# S0 c
CustPropMgr.Delete ("作者")

6 f7 \* B" q* kCustPropMgr.Delete ("圖樣名稱")



, ], Q" X. R8 h. x' Q0 f( W+ p

) U* D- e- v2 e# N/ n, T
'新增

6 Q% ^( Q6 B# f0 }  E! zCustPropMgr.Add2 "Number", swCustomInfoText, e
1 g' W" K- C: W5 J
CustPropMgr.Add2 "作者", swCustomInfoText, "劉騰qq420221716"

CustPropMgr.Add2 "圖樣名稱", swCustomInfoText,  m

0 H! x% {' X+ d/ F4 H1 v
0 S5 _$ m0 E! n+ _) h

7 c6 n7 K1 Y( E, ~8 iEnd Sub
) Q% ?  h. r& E; _1 b+ p; r; W# k2 R3 |

金卯刀-劉

金卯刀-劉 發(fā)表于 2018-9-12 10:08
下面是分離到配置(備注：間隔符同樣是空格號(hào)，并可以根據(jù)自己需求編輯)
$ Q$ B6 }4 T$ l$ s( G1 Z
'定義sw

. P6 U5 R" N8 \7 b3 i6 i) J當(dāng)然這里截圖顯示是上面代碼經(jīng)過(guò)編譯后的效果。

jiajiang951

金卯刀-劉 發(fā)表于 2018-9-12 10:05
( ], \2 a  a% R3 j這個(gè)雙引號(hào)顯示的是“配置說(shuō)明”，并非是前面幾個(gè)大俠說(shuō)的圖號(hào)分離。從SW原則來(lái)說(shuō)，零件名跟工程圖文件名肯 ...

他這個(gè) 雙引號(hào) 沒(méi)有顯示在  配置說(shuō)明的括號(hào)里啊 ？直接在 代號(hào)后面的
  P: k! w" E5 t. b

zero8337

學(xué)習(xí)了，謝謝！

喂我袋鹽

進(jìn)來(lái)學(xué)習(xí)！