solidworks中利用宏名称检测，希望大神解答

foxlord

solidworks用了图号名称分离，先有个问题，标准件一般是开头是中文，怎么编辑宏命令检测到中文跳出程序呢？求大神解惑。比如：零件名称： 12354 中文   零件属性中图号：12354  名称：中文；零件名称是标准弹垫 12345   当检测到这个零件后不进行图号名称分离。
! ~$ q& D. P: h7 E+ q- |0 ~

foxlord

solidworks中宏是类似哪种语言呢？VB？Oracle？C++？

魍者归来

加个if语句判断一下

foxlord

魍者归来 发表于 2021-1-5 10:20
加个if语句判断一下

大神，你好，刚才看了你在宏中提取名称的视频。
) |' u# n; I) X以下是图号名称分离的宏中一段代码：

c = swApp.ActiveDoc.GetTitle() '零件名
想在这加if判断c中字符串第一个字符是汉字或者不是字母数字，但是这个和C语言不一样，不太会，也不知道solidworks中宏的语言是哪种。
望大神指教或者之前填上吧。万分感谢。
6 ^: I% a. p! k% v9 V

3 h3 |0 V/ G7 xstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
+ r: Y( ^" H% z" p& g/ n$ {9 \blnretval = Part.DeleteCustomInfo2("", "代号")
* m+ ]4 @* I; N9 g( ?blnretval = Part.DeleteCustomInfo2("", "名称")
/ A4 z, E" q7 U/ J8 s5 R- f# L3 ~a = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格
If a > 0 Then
    k = Left(c, a)
" {  u- `4 o' j    t = Left(LTrim(e), 3)
4 ]6 E. ]& H* X  U, I" d% \' c" Y    If t = "GBT" Then
, t: n& E1 M) |# A, B        e = "GB/T" + Mid(k, 4)
    Else
        e = k
' }' p  L# q1 `& p) O/ A! U  S) D    End If
    b = Mid(c, a + 2)
) L/ k) e/ q2 D  R: C    t = Right(c, 7)
0 l+ q1 S% j& k" n, I( p    If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
" N7 ]2 a6 o. M7 f% Q        j = Len(b) - 7 '消除后缀（区分大小写共4种）
0 c% B3 Z0 y/ d" o0 Q    Else
        j = Len(b)
    End If
, `3 I1 @, W8 r8 C" A' F    m = Left(b, j)
; f: ^  I+ Q; K% vEnd If
blnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e)  '代号
blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)  '名称
'blnretval = Part.AddCustomInfo3("", "图号", swCustomInfoText, e)  '图号

1 P6 y$ v- A6 l# h- Z- C

foxlord

foxlord 发表于 2021-1-5 10:16
( W' w( b' o: `solidworks中宏是类似哪种语言呢？VB？Oracle？C++？

/ }( G- g7 w6 `' q好的。了解。我查查
7 r0 J+ Q/ \" [; E' z

水水5

我也用的这个宏
( J' e7 _- m/ s) j" \; h对于外购件，我一般是这样命名的  比如  轴承  6906   螺钉 M8×10   电磁阀  SY5120-DDDD,等等吧。
我对这个宏，稍微修改了一下，就能用了。再弄个宏按钮

bamboo

SW是VBA，有语言互转软件吗？

foxlord

加了条语句，已经搞定了。谢谢大家的帮助。
'设定变量
8 G5 Y  s+ O' A# G( O- Tc = swApp.ActiveDoc.GetTitle() '零件名
9 R  a- y( D, A% `  WIf Asc(c) > 0 Then
  ]" d- A# h. d7 }* s1 n/ r$ p7 m; k
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
9 S! N* m, E7 R9 r4 S2 N& c8 _blnretval = Part.DeleteCustomInfo2("", "代号")
- h) o6 s7 W7 g  O/ E) n! O/ D+ t, `blnretval = Part.DeleteCustomInfo2("", "名称")
3 j7 o1 R2 U$ U- Qa = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格
0 w& p  I. _5 `2 L3 s, ?- t; ^' oIf a > 0 Then
; }8 b1 {) Y" b: ], V: S    k = Left(c, a)
    t = Left(LTrim(e), 3)
4 v  d; l. a) [% G) H. b1 ~    If t = "GBT" Then
        e = "GB/T" + Mid(k, 4)
8 Y" K, C0 ^- p    Else
        e = k
! D; r& u' B- B& D/ v  x    End If
    b = Mid(c, a + 2)
    t = Right(c, 7)
    If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
3 G  r: [, n2 k( Y- D' a& p        j = Len(b) - 7 '消除后缀（区分大小写共4种）
    Else
        j = Len(b)
    End If
    m = Left(b, j)
# n. _$ n) ^6 {$ UEnd If
blnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e)  '代号
% v( l* U* _  K6 E0 eblnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)  '名称
'blnretval = Part.AddCustomInfo3("", "图号", swCustomInfoText, e)  '图号
End If

远祥

这个看似高大上，用起来却并不快捷呀！

foxlord

远祥 发表于 2021-1-5 16:30
这个看似高大上，用起来却并不快捷呀！

还行吧，个人习惯，我用的切换填入信息，不是按钮。
- y! d6 \( H- H% L8 ]: a! ~