看下这个是不是开了挂 搞的 图号 名称分离？

jiajiang951

零件   故意用   图号   加  双引号 名称    出图的时候 名字变成了只有图号 而且 标题栏    也是 只显示  图号~


/ j+ f6 m9 |* s9 g怎么弄的？？  还有左侧  他这种   子集    树状列表 具体 怎么操作？ 好处是 方便图纸整理 规范。
6 c8 ~8 _6 ^/ {  p( i# F  `% b

晓昀

6 ?6 ^4 }4 E1 E$ p! U2 H5 d
* m$ z3 }: i, B6 S0 S看看这个零件的属性自定义里名称和图号那里的信息是什么？工程图纸中的信息是来自于零件属性里的信息。软件就是个聪明的大傻瓜，你让它做什么，它就做什么。也只做到那个地步。

magicnie

只是个普通的宏命令而已，不要大惊小怪，对于这种的同学我都是赞一个，工作有方法

一毛

经常大批量且有规范的时候，可以这么做，一劳永逸，正常是简单做个模板。难得出图的情况下，怎么玩都无所谓了

金卯刀-劉

这个双引号显示的是“配置说明”，并非是前面几个大侠说的图号分离。从SW原则来说，零件名跟工程图文件名肯定是同样的。细看楼主的的截图就知道前面几位高手没说到点上。
关于图号分离问题，是很赞同楼上几位的。下面是图号分离宏（分离到自定义,备注：中间间隔符是空格号。可以根据自己需求改动）
'定义solidwork
Dim swApp As Object
Dim Part As Object
% T  x3 d+ V: y9 G' a: jDim SelMgr As Object
Dim boolstatus As Boolean
: S  N! l5 c  J  vDim longstatus As Long, longwarnings As Long
Dim Feature As Object
Dim a As Integer
Dim b As String
Dim m As String
& J+ t/ T7 F! l3 O# F1 _3 L3 jDim e As String
- E' Q# g3 G0 E; A: j2 F0 ]( HDim k As String
2 Q4 h  D& X7 ]! RDim t As String
3 Q0 P4 E9 }8 z3 r3 QDim c As String
Dim j As Integer
4 ]; U% H+ {1 @& E& a6 V" RDim strmat As String
; l, Z# M0 X8 v7 _- IDim tempvalue As String
% x/ o3 Z  ]. D% @Sub main()
'link solidworks
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
  L- f/ j7 Z2 j# i2 nSet SelMgr = Part.SelectionManager
" N- e' I3 ]& J! K# a# nswApp.ActiveDoc.ActiveView.FrameState = 1
'设定变量
$ D" B0 m& L0 b6 Wc = swApp.ActiveDoc.GetTitle() '零件名
1 W% ~7 h; s- i( j6 i) g3 ^: c( h  rstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
blnretval = Part.DeleteCustomInfo2("", "代号")
blnretval = Part.DeleteCustomInfo2("", "名称")
3 s' I" L! x, P+ |9 pblnretval = Part.DeleteCustomInfo2("", "材料")
/ B' b4 V/ M) R7 G) k( p( B  ga = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格
If a > 0 Then
. v5 g' ]. f. u, ^5 e    k = Left(c, a)
    t = Left(LTrim(e), 3)
# V3 F0 M/ z- p8 Y    If t = "GBT" Then
2 N; O* Q8 L, s/ j) M        e = "GB/T" + Mid(k, 4)
, t2 ^- X! U+ @& z" R    Else
% W8 I, i1 ?- ^5 a5 I        e = k
4 F+ t$ ~( @7 H8 B0 I7 E7 ]2 ^    End If
) J7 H& a; o1 E4 {2 e. E' m9 G: f    b = Mid(c, a + 2)
1 f  U' Y6 x5 T    t = Right(c, 7)
2 ~6 g5 z  |4 T9 L    If t = ".SLDPRT" Or t = ".SLDASM" Then
        j = Len(b) - 7
* {/ }, w5 x7 W* R  o+ `    Else
        j = Len(b)
5 R0 m* _/ y7 q( w! F4 I3 N    End If
; e" y4 `$ ]. x* p: `    m = Left(b, j)
End If
blnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e)  '代号
& Y* l% |6 p7 l5 c" ?2 F% fblnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)  '名称
blnretval = Part.AddCustomInfo3("", "作者", swCustomInfoText, " 刘腾qq420221716")
End Sub

金卯刀-劉

下面是分离到配置(备注：间隔符同样是空格号，并可以根据自己需求编辑)

'定义sw
' h; S7 K! [# }/ U7 z) A
: @. L4 d8 G) R
) o& W: Q! a4 W  T
Dim a As Integer

Dim b As String

Dim m As String

$ ?4 ]* L9 L( i! W$ L3 CDim e As String
. d$ o' S( R/ i5 X  ^* I; k
& |3 q7 ^5 s0 J3 t- U( SDim k As String

  Z: F+ I1 U+ u" u; _Dim t As String

Dim c As String

Dim j As Integer

  G/ ~  s' t3 P+ x, G& [  w  b% JDim strmat As String

Dim tempvalue As String
3 @% o% Z- Y3 D
Dim Part As Object
* }. U! ^* o6 `, B- c
Dim swApp As SldWorks.SldWorks
4 Z+ p1 |2 p0 y! ]" |% @
7 E( @# N+ b8 \& a  l+ DDim swModelDoc As SldWorks.ModelDoc2
- f! n; A* q. L9 p5 ?
' d- _( m1 R6 S2 v1 _Dim swConfig As SldWorks.Configuration
) e* l! M5 b4 h* R
6 }# |6 w4 v3 tDim CustPropMgr As SldWorks.CustomPropertyManager
8 F+ _7 }  Z5 B0 w- E, D) Y. ^
Dim swModel As SldWorks.ModelDoc2

/ p0 P  y; e! a- u1 a* K
( A$ _- x7 k) H' C: F- _! z
Sub main()
3 V. c6 P( M% B% W3 F
1 R/ [" K6 X/ {7 S, O% H. i6 |Set swApp = Application.SldWorks

Set swModelDoc = swApp.ActiveDoc
# B8 Q1 J! @5 p
Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration
0 q0 ]. Q, o& ?& p2 s0 q3 C
Set swModel = swApp.ActiveDoc
4 k/ b% d7 X3 ~) H, `2 e# z3 _
Set CustPropMgr = swModel.Extension.CustomPropertyManager
' K$ k( {5 X) V+ h, ]8 T! O2 f0 {
(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸

: f1 x9 M' o5 J5 x6 R+ ?6 v
  }- A" o+ b# A; J$ [; ^1 s
'设定变量

% `$ q) h& H' F+ z. W  V) [" bc = swApp.ActiveDoc.GetTitle() '零件名
1 R" L/ R! Z. ^! T6 d' j8 g
2 K& l7 C/ X; s/ }0 ~/ Qstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)

6 R# B! F# R( u1 {+ ?a = InStr(c, " ") - 1 '重点：分隔标识符，这里是一个空格，也可换成其他符号
! A5 q7 f" m7 O* ~! J9 }6 b
If a > 0 Then

' a0 p& ?1 d/ Y, y) O+ Hk = Left(c, a)

* _- y" o: }( ?# x4 D" C8 ~t = Left(LTrim(e), 3)

If t = "GBT" Then
, u6 z" @9 @- k' J; e( T
e = "GB/T" + Mid(k, 4)

+ S+ T9 H( Y9 O* T* DElse
9 k$ D+ a) f8 W. [; _
e = k

% J( E, {/ j1 o* }9 m9 h; KEnd If

1 e/ }0 P- j5 g; Vb = Mid(c, a + 2)
0 F- z) W. }; E/ v& l" Z
t = Right(c, 7)

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

j = Len(b) - 7  '消除后缀（区分大小写，即含4种）

Else

j = Len(b)

/ S3 l  P- m# k) |& }! X0 N3 O# Q; f5 MEnd If

m = Left(b, j)
/ l) Q, g) x7 s7 E
End If
) N- _1 @8 c# ~$ O9 @4 {
'删除栏
  B* m* L6 X& x% {  z
: Z( m+ N* v6 a! f" A; l: u& TCustPropMgr.Delete ("Number")

CustPropMgr.Delete ("作者")

CustPropMgr.Delete ("图样名称")
3 Q/ d. c1 s* V8 I

% X' r! ^$ B- S6 j0 W! \


5 `  D' S7 T" b& @/ L5 V9 U( n
'新增
  B4 T4 t) J! x4 E" U
CustPropMgr.Add2 "Number", swCustomInfoText, e

- `* x/ L7 r% W$ oCustPropMgr.Add2 "作者", swCustomInfoText, "刘腾qq420221716"

CustPropMgr.Add2 "图样名称", swCustomInfoText,  m


$ s# q! S0 _/ c$ e
' p  x. L' q  [3 L/ E
End Sub

金卯刀-劉

金卯刀-劉 发表于 2018-9-12 10:08
下面是分离到配置(备注：间隔符同样是空格号，并可以根据自己需求编辑)

: u2 h, Q, Y; |( [/ a8 m2 P2 t'定义sw

& Q( W% J5 H  _! l' f" @& a% x当然这里截图显示是上面代码经过编译后的效果。

jiajiang951

金卯刀-劉 发表于 2018-9-12 10:05
: @# u$ z- B( H! a+ B这个双引号显示的是“配置说明”，并非是前面几个大侠说的图号分离。从SW原则来说，零件名跟工程图文件名肯 ...

他这个 双引号 没有显示在  配置说明的括号里啊 ？直接在 代号后面的

zero8337

学习了，谢谢！

喂我袋盐

进来学习！