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

jiajiang951

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


怎么弄的,？,？  還有左側(cè)  他這種   子集    樹狀列表 具體 怎么操作,？ 好處是 方便圖紙整理 規(guī)范,。

曉昀

8 X8 b! ^2 l8 T3 z. c$ M
看看這個零件的屬性自定義里名稱和圖號那里的信息是什么？工程圖紙中的信息是來自于零件屬性里的信息,。軟件就是個聰明的大傻瓜,，你讓它做什么，它就做什么,。也只做到那個地步,。

magicnie

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

一毛

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

金卯刀-劉

這個雙引號顯示的是“配置說明”,，并非是前面幾個大俠說的圖號分離,。從SW原則來說，零件名跟工程圖文件名肯定是同樣的,。細看樓主的的截圖就知道前面幾位高手沒說到點上,。
關(guān)于圖號分離問題，是很贊同樓上幾位的,。下面是圖號分離宏（分離到自定義,備注：中間間隔符是空格號,。可以根據(jù)自己需求改動）
'定義solidwork
Dim swApp As Object
Dim Part As Object
3 H, g3 X1 I. M) |Dim SelMgr As Object
Dim boolstatus As Boolean
7 C1 f4 Q: v7 s! z# l8 N/ }6 jDim longstatus As Long, longwarnings As Long
Dim Feature As Object
4 ?' m3 x, h! l: YDim a As Integer
3 I$ g& p7 p& V( r" x0 [- z9 R. f. A5 i3 XDim b As String
5 R6 i- ?! C! i& L. v5 j( PDim m As String
- W6 K9 q+ r: B3 u  M$ _Dim e As String
- v: m* |' a2 K) O  _3 q$ E1 vDim k As String
Dim t As String
: N- l- _0 O) dDim c As String
Dim j As Integer
Dim strmat As String
Dim tempvalue As String
! H( t7 ~$ w: N3 oSub main()
'link solidworks
/ S" j/ D, H1 o+ i  a. RSet swApp = Application.SldWorks
: J. y5 I, j; D: sSet Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
swApp.ActiveDoc.ActiveView.FrameState = 1
'設(shè)定變量
c = swApp.ActiveDoc.GetTitle() '零件名
; f( v/ ^3 f' D- g0 @strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
blnretval = Part.DeleteCustomInfo2("", "代號")
blnretval = Part.DeleteCustomInfo2("", "名稱")
7 c) {4 j. h& }blnretval = Part.DeleteCustomInfo2("", "材料")
" [0 o3 g4 T1 X4 c( H2 ~a = InStr(c, " ") - 1      '重點：分隔標識符,，這里是一個空格
If a > 0 Then
9 n# ^( U3 I2 u7 |5 R    k = Left(c, a)
    t = Left(LTrim(e), 3)
3 V: H7 T1 x2 ]% T1 S" R4 j    If t = "GBT" Then
, U& E+ A6 ?/ i        e = "GB/T" + Mid(k, 4)
# n8 W# q" P4 s$ ?* d. R' B$ ?    Else
1 [4 a# [  O* Q) Q& ]        e = k
    End If
8 x7 ]& ]7 P9 S" ~    b = Mid(c, a + 2)
  M, s6 V( r: I, y, u$ M    t = Right(c, 7)
' {4 ~8 W& m' K9 @    If t = ".SLDPRT" Or t = ".SLDASM" Then
        j = Len(b) - 7
3 W' W! b5 U/ f    Else
$ l! x/ b, |* ^9 B3 d        j = Len(b)
+ d0 `6 |$ Z4 h. U$ [0 ^    End If
! O( s9 }" l# U; [& B6 q. l    m = Left(b, j)
End If
blnretval = Part.AddCustomInfo3("", "代號", swCustomInfoText, e)  '代號
( t; y- @! I7 c8 m% |3 a! H, kblnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)  '名稱
blnretval = Part.AddCustomInfo3("", "作者", swCustomInfoText, " 劉騰qq420221716")
5 K9 d+ b0 x  V5 ]9 I' U; SEnd Sub

金卯刀-劉

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

. K, y& u8 p& E: n0 W! }+ Q6 a: @'定義sw
* O; B$ i4 A$ K6 Z* J" l5 a2 y
3 X0 R; v+ c* ^- o9 G
2 v$ V: r( T+ p  F, j: ~
6 x6 g$ W5 j, p$ t% v. \; v" }Dim a As Integer

5 G! |  I( d* L, K( RDim b As String
' p1 K% M1 C6 U, j+ y6 I' w
Dim m As String

Dim e As String

  m& f/ h, {& m" F& aDim k As String

3 ?8 Y- d3 Z0 `4 J) n" wDim t As String

Dim c As String

0 O' x& J7 v/ dDim j As Integer
1 z- n/ F: G8 L6 O( U4 e/ U! i
Dim strmat As String

Dim tempvalue As String
( D: t3 ^/ z6 l+ K" x  q8 z6 Q
& W* T3 q4 R# C$ r2 _Dim Part As Object
/ x' e$ G- x& Y6 \
9 Z) B* X, z: p+ E1 tDim swApp As SldWorks.SldWorks

Dim swModelDoc As SldWorks.ModelDoc2
5 u5 x: r, G# }) o
Dim swConfig As SldWorks.Configuration
* |5 c& u4 ?( T$ A
0 j0 l8 I' N1 A0 {  q4 gDim CustPropMgr As SldWorks.CustomPropertyManager
( `  X' {$ a! E/ y- B6 ~: b/ t' c
; d+ I" b* Q# l1 p2 q& FDim swModel As SldWorks.ModelDoc2
8 B) I: s) l3 d3 P

+ s' v1 s: S7 j2 ^7 Z) U7 s
/ D7 }) v+ J" C- tSub main()

Set swApp = Application.SldWorks
  C" |' y/ @! t1 D" b) G  R
7 v' f: p" n8 a9 q' B% V( sSet swModelDoc = swApp.ActiveDoc
7 K7 t! S0 J: h
Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration

( D" m3 J9 f1 KSet swModel = swApp.ActiveDoc
; A+ R! l1 y' d" Z
Set CustPropMgr = swModel.Extension.CustomPropertyManager

(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸
5 [2 c0 A( F% i0 i& O& l: J! j
* |& j- T5 ]5 g( R

'設(shè)定變量
# w1 }$ d) x3 S6 ]% @! \! D  Z7 b
5 B: u9 Z  E: R+ I) o. hc = swApp.ActiveDoc.GetTitle() '零件名
6 B# W; }, w& M- j5 C$ l  z
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
& d+ D5 v" q  w4 b8 l" b. L4 b
3 z7 r( s5 X+ ta = InStr(c, " ") - 1 '重點：分隔標識符，這里是一個空格,，也可換成其他符號
) q9 [, z- \" F6 m
If a > 0 Then
% Q& f. x4 h$ L" r4 A  f" q
* {- d& X4 B9 I6 qk = Left(c, a)

8 B! G* O2 X6 Et = Left(LTrim(e), 3)
) f( E. ?, L- X5 q
If t = "GBT" Then

e = "GB/T" + Mid(k, 4)

Else
4 y- ]- N, R4 I0 C4 y# @% F) _
e = k

End If

b = Mid(c, a + 2)

% e1 O2 _5 [8 s7 e! _9 _t = Right(c, 7)
$ Q- w; Z: `8 U8 i" K
If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then

' j0 S  a7 x! O8 q) q/ B" C& R& W4 hj = Len(b) - 7  '消除后綴（區(qū)分大小寫,，即含4種）
) \! H" {* R' a/ p5 D
. D1 h. d& o" [* t2 U5 YElse
: Q' y+ ^+ l3 d) V/ S. e9 `* W
) f/ m  T( h3 Zj = Len(b)

End If

, `6 x1 e7 ]8 p2 dm = Left(b, j)

0 j! c: u! H! Z+ \3 |! U) C; }* tEnd If
) O; F6 e. A- g0 \- G7 [
) p) l7 c9 e+ r6 d1 [" d'刪除欄
/ S( z- T* w7 m# u9 I( r
$ Z: X7 e+ p# j: {- X$ C5 vCustPropMgr.Delete ("Number")
( f" S0 H3 Y' i* q
CustPropMgr.Delete ("作者")
1 i& G7 g0 m) s3 \. x. d+ ?# a
CustPropMgr.Delete ("圖樣名稱")




/ ~' ]3 |0 q1 p' ^# ?; L) {

'新增
$ J# `  F! `- `! b: h/ A- Z% V4 m
CustPropMgr.Add2 "Number", swCustomInfoText, e

) s% Y' Q! D( y% `# h1 r) ]2 TCustPropMgr.Add2 "作者", swCustomInfoText, "劉騰qq420221716"
) u/ W9 R% u* D/ w) }! a
) E6 P% E) u: d  y- L/ Z7 cCustPropMgr.Add2 "圖樣名稱", swCustomInfoText,  m
& i  f2 X( B$ H' A# N
' u9 c' y) V. D9 x! ^1 F! s& R1 X" ]5 H( H) n

: O1 d' D$ d3 N" O9 m8 \
) J6 P0 O% V8 J8 _1 u  NEnd Sub

金卯刀-劉

金卯刀-劉 發(fā)表于 2018-9-12 10:08
下面是分離到配置(備注：間隔符同樣是空格號，并可以根據(jù)自己需求編輯)
( I& d/ W7 O- |, c7 `* K
5 b) L% C' ^1 ], e5 U! S'定義sw

) e0 |, X/ x0 R- T+ e當然這里截圖顯示是上面代碼經(jīng)過編譯后的效果,。
% b; q  X- x- c6 D/ f8 B" i

jiajiang951

金卯刀-劉 發(fā)表于 2018-9-12 10:05
: r/ k1 |1 z2 L& I這個雙引號顯示的是“配置說明”,，并非是前面幾個大俠說的圖號分離。從SW原則來說,，零件名跟工程圖文件名肯 ...

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

zero8337

學習了，謝謝,！

喂我袋鹽

進來學習！