教你如何将SolidWorks2016图号名称分离到零件属性中

jianmuguo

4 x" ~2 _3 Y8 t

执行宏前图号名称没有分离

未执行前的图号名称没有分离
+ z, F4 T) J% m7 Z7 S4 c

宏按钮设置

. [0 b$ X2 z1 k8 B关键是宏按钮的新建：打开工具-宏-新建-另存为对话框-自己给起名字-复制填写代码
另存为对话框
, K% x) I1 F) Z+ a$ c
代码可以复制下面的-最后点保存
4 s; t$ C8 O( j# W$ O下面是按钮制作
% U- F# J& \; X4 W3 l5 y
$ F* g) e) ?. ]8 e$ g
, j$ q. Q: f) ^# p

Dim swApp As Object

Dim Part As Object

Dim SelMgr As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Dim Feature As Object

6 z: Q& t7 i, s7 Q3 z: X4 ]  L: |1 i

Dim a As Integer

Dim b As String

Dim m As String

Dim e As String

Dim k As String

Dim t As String

Dim c As String

Dim j As Integer

Dim strmat As String

Dim tempvalue As String

. i. ^+ K: l' W4 q
) O% h- d. \/ f) f
) S1 N3 z7 U' [1 Y1 g/ s! [: e% R+ |

Sub main()

, T& N& Z* H! F& c* k1 s

'link solidworks

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Set SelMgr = Part.SelectionManager

swApp.ActiveDoc.ActiveView.FrameState = 1

2 ~0 x+ U# b4 Q" i

'设定变量

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

4 }) ^7 y. i* T

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

blnretval = Part.DeleteCustomInfo2("", "代号")

blnretval = Part.DeleteCustomInfo2("", "名称")

blnretval = Part.DeleteCustomInfo2("", "材料")

" B$ H  |( f# o& q* A4 o
. Y9 d" n: b7 u/ |8 `

a = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格

If a > 0 Then

    k = Left(c, a)

    t = Left(LTrim(e), 3)

. ]8 c2 ~9 M8 h! z- H

    If t = "GBT" Then

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

    Else

        e = k

    End If

! a3 _) |& b/ ^' E  c- [

    b = Mid(c, a + 2)

    t = Right(c, 7)

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

        j = Len(b) - 7

    Else

        j = Len(b)

    End If

    m = Left(b, j)

End If

7 i* I# }4 {5 @' c

blnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e)  '代号

blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)  '名称

blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, " ")

End Sub

* y3 M% o/ A( T5 x7 p- {( _0 s

8 u% t$ r3 Q2 h' S2 E1 a1 D

执行宏后图号分离

9 j2 v: A6 H: V' K点击按钮，执行后得到的结果。后续出工程图调用时使用。
3 d- a% \* K# l+ |! Y1 s+ z0 a
( e1 _, T  O* @' B! @' p2 P
0 `- p5 t8 H8 S6 Z
4 j& S, b7 y+ g% C. N

jianmuguo

补充：零件命名规则，图号名称中间必须有个空格

sxl_sxl

赞一个

NC@jiang@nan

文件名用图号和零件名组合，中间加空格，这如果是标准件的话就会有点问题了，因为外购件和标准件的型号代号很多带有空格的，我还是建议这个空格换成下划线。
这些东西都可以做成批量处理的。SW-API。不过我现比较喜欢SWDM-API，不用启动SW就能处理，速度快很多倍。

cnzheng

NC@jiang@nan 发表于 2016-11-8 20:11
文件名用图号和零件名组合，中间加空格，这如果是标准件的话就会有点问题了，因为外购件和标准件的型号代号 ...

1 t" s) S( q" I5 a* n, K能否象楼主一样详细介绍一下？

soso2006

6 g! t% i3 `8 V# Y- [' v5 w( k! ~
谢谢分享，刚试过了，不错！与材料有关的内容我处理过了，只是不知那变量e的初值是什么？

NC@jiang@nan

cnzheng 发表于 2016-11-8 22:15
能否象楼主一样详细介绍一下？

7 M% \/ s7 [2 a: b1 R, R/ LSWDM-api我也不熟呢，只是在学习。学好了才能考虑做这种程序了。SWDM-API比SW-API还难搞呀，优点就是不用启动SW就能完成在SW中完成的功能，处理速度可以比在SW-API中快很多倍。

cnzheng

NC@jiang@nan 发表于 2016-11-9 19:41
2 g- a9 ^$ Y* D8 M  e# nSWDM-api我也不熟呢，只是在学习。学好了才能考虑做这种程序了。SWDM-API比SW-API还难搞呀，优点就是不用 ...

  a2 [! w5 S9 b: y谢谢，回头找点资料学学。

jianmuguo

不靠谱的江静

早在很多年以前，三维网的一位大神就把图号分离宏做出来了，一键分离，配合闷大的常驻宏可以实现切窗自动分离。

青春如此清纯

真的很好用 谢谢大神分享