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

foxlord

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

foxlord

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

魍者归来

加个if语句判断一下
7 L  t) b5 i7 `, n% Y7 ^

foxlord

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

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

, p, l- [  g; |c = swApp.ActiveDoc.GetTitle() '零件名
想在这加if判断c中字符串第一个字符是汉字或者不是字母数字，但是这个和C语言不一样，不太会，也不知道solidworks中宏的语言是哪种。
% P6 S0 j$ V4 a% o$ q望大神指教或者之前填上吧。万分感谢。
8 w( q$ _% u# p+ F/ j" V, m

strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
% c( ~4 c3 ^4 c) j) }& nblnretval = Part.DeleteCustomInfo2("", "代号")
# Z; |- H% ]& |6 f$ p7 kblnretval = Part.DeleteCustomInfo2("", "名称")
a = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格
! D; f/ r" d7 `  S0 zIf a > 0 Then
/ S% q# h5 M7 V' p- ?! X. _    k = Left(c, a)
2 o3 s- ]0 j; ?7 p6 x" D    t = Left(LTrim(e), 3)
    If t = "GBT" Then
        e = "GB/T" + Mid(k, 4)
) s8 G/ L- o1 M2 N. n4 k% A    Else
        e = k
3 T( |4 @; y+ s6 Q    End If
( ]  O- y9 a* P' F- W* K    b = Mid(c, a + 2)
, @. ~% R* a  |$ g    t = Right(c, 7)
    If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
        j = Len(b) - 7 '消除后缀（区分大小写共4种）
) g% F) L2 {! @% v: I1 {% g8 I    Else
0 g% ^. S' p/ f% d/ J4 _5 o' }3 s        j = Len(b)
    End If
/ ?6 f' B" O4 T3 u- p# |    m = Left(b, j)
End If
. Q- n2 }# _; z0 Bblnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e)  '代号
7 i! C% l) M: b5 f9 W6 [" [blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)  '名称
& ~' d% X( }3 O. n0 {) l0 b'blnretval = Part.AddCustomInfo3("", "图号", swCustomInfoText, e)  '图号
0 S4 `( |/ Y; h& w. z
! Y% Q4 U8 i2 p) s7 F( O5 }

foxlord

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

好的。了解。我查查

水水5

我也用的这个宏
对于外购件，我一般是这样命名的  比如  轴承  6906   螺钉 M8×10   电磁阀  SY5120-DDDD,等等吧。
我对这个宏，稍微修改了一下，就能用了。再弄个宏按钮

bamboo

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

foxlord

加了条语句，已经搞定了。谢谢大家的帮助。
, m0 s" q8 ~8 w'设定变量
# ^3 m9 ^) Z' p0 p% ]9 f6 Vc = swApp.ActiveDoc.GetTitle() '零件名
2 P/ N. g  @- H- KIf Asc(c) > 0 Then

strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
blnretval = Part.DeleteCustomInfo2("", "代号")
4 M1 V( u3 I0 Z$ W6 r# m: mblnretval = Part.DeleteCustomInfo2("", "名称")
8 M! V5 M; s; p, Na = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格
If a > 0 Then
    k = Left(c, a)
' Y* ~) ]9 q) X5 i; b2 v  a7 |# u. T    t = Left(LTrim(e), 3)
3 k: y. M/ ~8 Y; o    If t = "GBT" Then
/ }% @* B  ^" _( B2 L& P        e = "GB/T" + Mid(k, 4)
* b5 I: X' e% O: O* n3 T: @    Else
        e = k
6 n6 ^' c, O2 @5 I0 q    End If
8 r# \3 |% u; T  ?1 l    b = Mid(c, a + 2)
7 V: h/ [7 \; s# p) W9 R    t = Right(c, 7)
    If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
        j = Len(b) - 7 '消除后缀（区分大小写共4种）
9 @( i% m1 K$ H0 O; F8 M    Else
" f" S3 u  H* Q7 l' Y$ ]        j = Len(b)
    End If
    m = Left(b, j)
End If
$ K# v* m0 L* o, B5 Cblnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e)  '代号
8 N, k+ W/ y8 _0 f/ ~6 T% w% ?blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)  '名称
8 T' H5 ]9 D+ y+ p/ ?9 n2 s'blnretval = Part.AddCustomInfo3("", "图号", swCustomInfoText, e)  '图号
8 m, Q/ t) H5 e8 i7 x0 |End If

远祥

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

foxlord

远祥 发表于 2021-1-5 16:30
: p  ~* O& L1 x1 v: [这个看似高大上，用起来却并不快捷呀！

还行吧，个人习惯，我用的切换填入信息，不是按钮。