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

jiajiang951

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

6 y- R0 F1 D, j- _3 `- R
怎么弄的,？,？  還有左側(cè)  他這種   子集    樹狀列表 具體 怎么操作,？ 好處是 方便圖紙整理 規(guī)范,。
8 u9 J) r: f' [! b2 Y; `& _

曉昀

( r$ z6 H* b- @/ L5 g: J7 s6 L看看這個零件的屬性自定義里名稱和圖號那里的信息是什么？工程圖紙中的信息是來自于零件屬性里的信息。軟件就是個聰明的大傻瓜,，你讓它做什么,，它就做什么。也只做到那個地步,。

magicnie

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

一毛

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

金卯刀-劉

這個雙引號顯示的是“配置說明”,，并非是前面幾個大俠說的圖號分離,。從SW原則來說，零件名跟工程圖文件名肯定是同樣的,。細(xì)看樓主的的截圖就知道前面幾位高手沒說到點(diǎn)上,。
關(guān)于圖號分離問題，是很贊同樓上幾位的,。下面是圖號分離宏（分離到自定義,備注：中間間隔符是空格號,。可以根據(jù)自己需求改動）
+ }  {: m! D- `: [, |7 x'定義solidwork
Dim swApp As Object
! R. }, S# B/ ~  L' c! f/ hDim Part As Object
" d# l7 M/ L2 T2 F5 ZDim SelMgr As Object
3 X( W- Z  E1 q( H: JDim boolstatus As Boolean
# L! m' r. G% [Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Dim a As Integer
Dim b As String
! `# e2 z' S- S5 mDim m As String
: A4 Z: }) T* q* h" P1 k# U% ]Dim e As String
Dim k As String
Dim t As String
$ `8 P# r8 ]2 j8 S+ V9 lDim c As String
" r2 H- f' Z- w( z5 z5 iDim j As Integer
7 b, ?) w4 e( Y8 ]Dim strmat As String
Dim tempvalue As String
Sub main()
'link solidworks
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
5 t4 L' V7 n( O1 ^swApp.ActiveDoc.ActiveView.FrameState = 1
6 N  x, v& y8 s3 N'設(shè)定變量
/ y/ N5 F+ T7 n1 h( }$ o5 F7 cc = swApp.ActiveDoc.GetTitle() '零件名
) x6 ?5 O" y" @4 Q+ h, c2 s1 h( Kstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
blnretval = Part.DeleteCustomInfo2("", "代號")
2 |5 J# y: E5 K& O2 v/ Z2 bblnretval = Part.DeleteCustomInfo2("", "名稱")
blnretval = Part.DeleteCustomInfo2("", "材料")
a = InStr(c, " ") - 1      '重點(diǎn)：分隔標(biāo)識符,，這里是一個空格
# l2 [) f% g3 r/ @4 ?If a > 0 Then
+ Q8 L8 f! C6 |    k = Left(c, a)
    t = Left(LTrim(e), 3)
    If t = "GBT" Then
7 d8 F0 H8 m0 J: k& G' A        e = "GB/T" + Mid(k, 4)
    Else
        e = k
    End If
    b = Mid(c, a + 2)
    t = Right(c, 7)
  b" x. Y- e+ P0 h  ]0 W    If t = ".SLDPRT" Or t = ".SLDASM" Then
        j = Len(b) - 7
. J- X" A& d/ I% c& ?    Else
" c& E5 E! }$ \0 C( c, b        j = Len(b)
    End If
4 |& W5 U/ n3 f    m = Left(b, j)
End If
* M% W* N& c  S7 p* ]9 J* N, Tblnretval = Part.AddCustomInfo3("", "代號", swCustomInfoText, e)  '代號
blnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)  '名稱
blnretval = Part.AddCustomInfo3("", "作者", swCustomInfoText, " 劉騰qq420221716")
9 q' e, w" Z4 d; sEnd Sub

金卯刀-劉

下面是分離到配置(備注：間隔符同樣是空格號,，并可以根據(jù)自己需求編輯)
. [' x2 k" S) |0 y$ u0 q. j
'定義sw


/ o. ]% s) {7 V- }. ]- n, m0 v5 M
, z9 J' ^1 d4 E; s+ v3 aDim a As Integer
) ^, q: F% f& J+ W$ V
9 @* A7 [" C; v' k9 T0 E/ W# p9 L! yDim b As String
2 K2 N; G& R5 s7 N: _
Dim m As String
( E0 \; Y! B& B; j3 ^9 ~
* x$ J' D& p/ F4 X- O6 G3 LDim e As String

Dim k As String

Dim t As String

Dim c As String

Dim j As Integer

# ~& K; ^& C( k/ H" |0 s: hDim strmat As String
: e1 d5 l/ B* B8 G
2 f/ k% W5 g% x6 U+ pDim tempvalue As String

Dim Part As Object
! r$ o# c4 ^% `3 n* k) D. r  K3 J
Dim swApp As SldWorks.SldWorks
9 c  a. k  W! E# W  Z) V5 `
3 G3 W2 z7 u. s2 {3 G3 H: L: iDim swModelDoc As SldWorks.ModelDoc2

! S, Z- D$ t$ B2 S: H$ H8 Y$ D3 }  o4 lDim swConfig As SldWorks.Configuration
4 p* U4 E1 U6 Z
Dim CustPropMgr As SldWorks.CustomPropertyManager

Dim swModel As SldWorks.ModelDoc2
6 n4 I* ~+ [) e
! H0 g. I; A8 o" z& u

Sub main()

$ X  Q6 r- N# [3 m, j+ vSet swApp = Application.SldWorks

Set swModelDoc = swApp.ActiveDoc
3 h% T. x; {4 M. X4 ?0 \
Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration
8 B, w4 O9 {6 c- z* w7 ]2 k/ T- P
0 W0 A9 w0 ~6 n; U9 ~Set swModel = swApp.ActiveDoc
$ ]- ]$ t6 v5 B$ f, \0 {& [
Set CustPropMgr = swModel.Extension.CustomPropertyManager
0 h0 {0 {" y6 ]% J
(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸
7 F3 _  r' x+ B. R& e, ?/ c4 H


'設(shè)定變量

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

) m2 ?% s. t" r! U' o) ostrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
. g7 p- S8 z, H
# M  ^& U$ G2 x; t9 Za = InStr(c, " ") - 1 '重點(diǎn)：分隔標(biāo)識符，這里是一個空格,，也可換成其他符號

0 l, y  p9 s. |4 P- q- [% VIf a > 0 Then

k = Left(c, a)
8 y6 `/ M+ B* {+ j3 b
t = Left(LTrim(e), 3)
  z  u% J7 [5 M6 G" I: [
If t = "GBT" Then

' K) N9 F, ^! Z3 W! |e = "GB/T" + Mid(k, 4)
! l! n9 _  v. Y
4 M# Q7 Y6 C6 ?3 DElse

' y8 G) g( V! b0 ye = k
/ \: Q, U) h+ n2 `( t; u' c2 r
( g# n+ x+ n0 V3 c( K1 F5 N) f' L) }End If
0 H0 y/ i; h1 f, Q
b = Mid(c, a + 2)

t = Right(c, 7)
% b! {6 K4 |2 O, u2 @
9 j  Q9 k4 V# `- N. mIf t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then

j = Len(b) - 7  '消除后綴（區(qū)分大小寫,，即含4種）

Else
3 F: o9 U' d9 u; P6 r" X8 T
j = Len(b)
. D( e. Z; b- s
5 B3 d9 s8 ^9 n. l" |* u3 REnd If

/ _3 q* P3 z1 i- E5 f. [4 Y9 U9 cm = Left(b, j)
6 e( a7 F3 B9 W% R
8 C4 n8 J8 f+ P( X! P/ U: t5 j' YEnd If
' O/ U' D7 H  E' v5 @+ j% q
& b% J0 c7 d" N' }0 K$ Q' @' L'刪除欄
7 b: ~: C4 y- p  b
: r( y4 B' x6 vCustPropMgr.Delete ("Number")

CustPropMgr.Delete ("作者")

CustPropMgr.Delete ("圖樣名稱")
% ~! c" V; b; P1 t+ y( \+ t

: I4 F9 ^4 }1 }4 B1 L

) _7 U1 ^4 i  M3 _- Z/ I* y

# W/ |! B$ q- t4 d'新增
" T, h$ R8 M1 v/ ?
7 W0 n, Z- Q- A2 PCustPropMgr.Add2 "Number", swCustomInfoText, e
$ t2 Q8 l" E( w% F! f8 X" i; ?
" j3 n- Z7 Q1 L5 b  v- @CustPropMgr.Add2 "作者", swCustomInfoText, "劉騰qq420221716"
, r+ |7 A/ i) X4 x
+ y9 O- ^$ |9 U% o1 rCustPropMgr.Add2 "圖樣名稱", swCustomInfoText,  m
# [. o& u# j: P  o4 [

% \0 E3 o& W! H; U0 h3 w) I, a

End Sub

金卯刀-劉

金卯刀-劉 發(fā)表于 2018-9-12 10:08
! s. H$ p9 {  O9 N& u2 V下面是分離到配置(備注：間隔符同樣是空格號，并可以根據(jù)自己需求編輯)
( C$ d9 V6 Z, g3 c6 ^
'定義sw

8 k4 [8 `3 x4 \) h* P% n. j: w5 B7 |4 z' q當(dāng)然這里截圖顯示是上面代碼經(jīng)過編譯后的效果,。
/ n4 {% j5 R  M/ f

jiajiang951

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

他這個 雙引號 沒有顯示在  配置說明的括號里啊 ,？直接在 代號后面的
' L0 F9 i6 k: }* g

zero8337

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

喂我袋鹽

進(jìn)來學(xué)習(xí),！