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

foxlord

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

foxlord

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

魍者归来

加个if语句判断一下
' S4 M  b3 P2 J  ^( J

foxlord

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

大神，你好，刚才看了你在宏中提取名称的视频。
以下是图号名称分离的宏中一段代码：

c = swApp.ActiveDoc.GetTitle() '零件名
8 a: e/ d; l3 _5 c1 p6 C想在这加if判断c中字符串第一个字符是汉字或者不是字母数字，但是这个和C语言不一样，不太会，也不知道solidworks中宏的语言是哪种。
望大神指教或者之前填上吧。万分感谢。

; U0 x& Z1 R1 r! I+ c
. ~! X, r/ H* X- Wstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
+ M& P$ B/ m2 B+ F4 Mblnretval = Part.DeleteCustomInfo2("", "代号")
blnretval = Part.DeleteCustomInfo2("", "名称")
a = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格
If a > 0 Then
    k = Left(c, a)
    t = Left(LTrim(e), 3)
    If t = "GBT" Then
        e = "GB/T" + Mid(k, 4)
) s5 X8 h$ j( i* \3 g    Else
5 \8 Q" A+ J* a% {% D- Y. J        e = k
9 g4 Q" l3 r! E) k8 l    End If
& y% o" p; N1 l* e8 Y" C% r    b = Mid(c, a + 2)
    t = Right(c, 7)
    If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
4 s+ |  H  R4 I6 A        j = Len(b) - 7 '消除后缀（区分大小写共4种）
    Else
        j = Len(b)
* N3 v6 [6 B# l& x$ G- ?    End If
    m = Left(b, j)
( W2 m- @9 f! WEnd If
4 j, M/ p/ E- O9 E- Rblnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e)  '代号
blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)  '名称
'blnretval = Part.AddCustomInfo3("", "图号", swCustomInfoText, e)  '图号

' K3 e* }5 x/ Y& _

foxlord

foxlord 发表于 2021-1-5 10:16
solidworks中宏是类似哪种语言呢？VB？Oracle？C++？

好的。了解。我查查
+ }% X9 X+ K9 s" q

水水5

我也用的这个宏
" e1 M6 n  r8 s/ Q3 K- p) O2 B对于外购件，我一般是这样命名的  比如  轴承  6906   螺钉 M8×10   电磁阀  SY5120-DDDD,等等吧。
我对这个宏，稍微修改了一下，就能用了。再弄个宏按钮

bamboo

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

foxlord

加了条语句，已经搞定了。谢谢大家的帮助。
'设定变量
c = swApp.ActiveDoc.GetTitle() '零件名
If Asc(c) > 0 Then
6 m, w/ N; d3 m. [2 ^; P- @) \
* t, X* A- y, k) q! B; n1 Z" m% Zstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
0 S& E: m& V3 k6 |blnretval = Part.DeleteCustomInfo2("", "代号")
blnretval = Part.DeleteCustomInfo2("", "名称")
a = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格
/ J  ^* A5 Y$ ^1 Q8 u+ gIf a > 0 Then
% Y2 |0 I4 P; ~    k = Left(c, a)
    t = Left(LTrim(e), 3)
    If t = "GBT" Then
) D( v! t4 i; x) M- c% ?9 \        e = "GB/T" + Mid(k, 4)
    Else
        e = k
; H  k- I. q1 [  j    End If
; Q' K8 F  o/ M# ~    b = Mid(c, a + 2)
( L8 n' A" I9 r+ a- e    t = Right(c, 7)
    If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
' K7 J+ @6 S6 d7 b  `1 V        j = Len(b) - 7 '消除后缀（区分大小写共4种）
    Else
% D+ s2 Z4 d/ A, \        j = Len(b)
    End If
    m = Left(b, j)
2 a* q, L4 d$ v, u- kEnd If
blnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e)  '代号
  `0 M6 l5 l' ~- Kblnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)  '名称
'blnretval = Part.AddCustomInfo3("", "图号", swCustomInfoText, e)  '图号
End If

远祥

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

foxlord

远祥 发表于 2021-1-5 16:30
9 t9 g3 P; ?+ k5 c这个看似高大上，用起来却并不快捷呀！

* [: v- ?! V! U4 O- c还行吧，个人习惯，我用的切换填入信息，不是按钮。