马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 jianmuguo 于 2016-11-8 08:31 编辑 3 R+ M$ A x, K* N" J1 k3 F2 K
# k5 F8 w' A" _! m& e4 u" W
执行宏前图号名称没有分离
未执行前的图号名称没有分离" O( @7 i8 z" c5 T# D
宏按钮设置
' M7 {6 w) k' ?, N9 m8 `( f关键是宏按钮的新建：打开工具-宏-新建-另存为对话框-自己给起名字-复制填写代码
+ [+ c4 l6 j3 T! }) C; L另存为对话框
9 A. {' z' `. w, t2 m, e: }6 R
3 a$ T. l% A1 n, D
代码可以复制下面的-最后点保存
# d+ z& e( T; M. W8 D! B- Y0 y下面是按钮制作: L8 X* v" }7 O6 h* T+ O0 r
, g$ c a6 A3 k+ S* u- g4 y+ n; z% N/ d/ i2 H) U1 {5 `& H
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 8 m8 b/ }, C% q
. M8 J# V# f3 {1 F& fDim 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 & _" l3 Z3 Z2 @7 G7 T, |; A9 d$ ?* {
7 L" Z) ~5 k& G+ _7 O6 F, ?+ w6 z7 T' u s' ^# w6 c4 @
Sub main()
4 x& D. ]1 c3 E'link solidworks Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Set SelMgr = Part.SelectionManager swApp.ActiveDoc.ActiveView.FrameState = 1
) @0 U6 I( b4 { S- g4 o P4 |$ v, C'设定变量 c = swApp.ActiveDoc.GetTitle() '零件名
9 D8 K/ r) l; @5 Ystrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
' |: v7 X9 Y! j3 d) {6 kblnretval = Part.DeleteCustomInfo2("", "代号") blnretval = Part.DeleteCustomInfo2("", "名称") blnretval = Part.DeleteCustomInfo2("", "材料")
9 t. K5 M1 t& }8 h+ W- \3 e; `( g: u8 D; t- g0 R) E( U: S9 h8 k& @
a = InStr(c, " ") - 1 '重点：分隔标识符，这里是一个空格 If a > 0 Then k = Left(c, a) t = Left(LTrim(e), 3) - i G0 [, L4 M/ I' M
If t = "GBT" Then e = "GB/T" + Mid(k, 4) Else e = k End If
6 ?& C/ d" y) o/ j6 O9 ~ 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 Y$ m* Q! _' ]
blnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e) '代号 blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m) '名称 blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, " ") 6 O# y4 @6 }8 k8 e% J
End Sub - Z6 j# W% L7 w! r. E8 h$ ]
# _, s) F1 O8 B: J- I3 d) [* E. \3 R. @1 r2 W0 |; s
6 g7 `( `+ h7 |: R7 x: ^
4 _9 |+ K7 |" k7 h: [. f1 u4 a
, T1 r4 ^3 p$ O6 [
执行宏后图号分离
8 V: {) J l- |- q! C/ @
点击按钮，执行后得到的结果。后续出工程图调用时使用。
+ a5 k5 {1 p: [( g* W* N9 D* q( S8 J* Y) f$ O
1 B9 ^* e# N) Y, b+ L U
2 Q \6 D+ a, h6 Q6 V' R' r5 q | 
发表于 2016-11-8 08:31:50
楼主
