|
|
楼主 |
发表于 2021-1-5 14:38:45
|
显示全部楼层
加了条语句，已经搞定了。谢谢大家的帮助。
- U$ `& Y% d0 c- K4 e8 {# W( l'设定变量
! \; k8 _% Z$ q' ec = swApp.ActiveDoc.GetTitle() '零件名% D g/ o; z3 q' j4 O
If Asc(c) > 0 Then
8 k, Z4 E4 Q# ]+ P& h% [6 P, [& l( j( h2 P
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
! B: X: y6 J k, Eblnretval = Part.DeleteCustomInfo2("", "代号")
Y, c1 n# Z' v5 b/ Iblnretval = Part.DeleteCustomInfo2("", "名称")
/ C2 s k5 w: a+ ka = InStr(c, " ") - 1 '重点：分隔标识符，这里是一个空格
% Y! c2 l$ @5 G* n, W* V x; qIf a > 0 Then
( K1 V# I5 @; t: F, ] k = Left(c, a)& |& I7 R ^' [. p2 Y, |
t = Left(LTrim(e), 3)+ N" P: O$ I$ G, c
If t = "GBT" Then* E; w0 t3 t# o: D$ ^4 i* f( ~ T
e = "GB/T" + Mid(k, 4)
8 o$ k% [/ I/ _, \. W Else
: z1 ]4 q; C+ m e = k# m3 m5 K7 d- v) ^
End If
4 I ~9 {+ D8 E2 v* U5 X b = Mid(c, a + 2)9 p7 d' I8 V8 }6 R1 K& g
t = Right(c, 7)
6 n" {8 P$ y5 t- A) } If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
+ v: a$ {: s( a+ d: R ?* P j = Len(b) - 7 '消除后缀（区分大小写共4种）/ S8 Q! F4 o; ^7 e& x$ D
Else
4 H" H3 t) a/ G3 o j = Len(b)
6 ~/ f9 U- ~+ Q* O End If
1 K7 e0 {7 C. Q8 t8 x, h' }+ J$ p* Z m = Left(b, j)
, `1 ~. C0 E, f6 gEnd If g; h1 f+ j9 C7 u
blnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e) '代号
* x: f/ x$ \) g: D+ s3 w9 Q* g+ G& n, Ablnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m) '名称
0 Y, ^( x( ]/ X- F! F'blnretval = Part.AddCustomInfo3("", "图号", swCustomInfoText, e) '图号$ C: i; s/ X& m& [6 }
End If
4 H1 p: a F# p |
|
发表于 2021-1-5 10:09:49
