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

foxlord

solidworks用了图号名称分离，先有个问题，标准件一般是开头是中文，怎么编辑宏命令检测到中文跳出程序呢？求大神解惑。比如：零件名称： 12354 中文   零件属性中图号：12354  名称：中文；零件名称是标准弹垫 12345   当检测到这个零件后不进行图号名称分离。
- D$ P  N/ L9 z) b# r5 d" W/ m! @

foxlord

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

魍者归来

加个if语句判断一下

foxlord

魍者归来 发表于 2021-1-5 10:20
" @% r0 t/ Z. ?) M+ S" J9 ]8 B% h加个if语句判断一下

大神，你好，刚才看了你在宏中提取名称的视频。
( o+ T" g; e  D& |3 w" S以下是图号名称分离的宏中一段代码：
4 b9 S  E/ ~$ g3 ^9 N0 W8 A, W3 R
. }; K" V# |6 y+ d0 zc = swApp.ActiveDoc.GetTitle() '零件名
9 Z; P" Y( F4 D) D) Z想在这加if判断c中字符串第一个字符是汉字或者不是字母数字，但是这个和C语言不一样，不太会，也不知道solidworks中宏的语言是哪种。
望大神指教或者之前填上吧。万分感谢。

, L. B  _9 y0 S5 D3 z
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
# H, ?) h5 Q0 Bblnretval = Part.DeleteCustomInfo2("", "代号")
/ D( U' |& k3 M& @" }' _; M8 kblnretval = Part.DeleteCustomInfo2("", "名称")
a = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格
If a > 0 Then
( C6 c4 ~1 R0 E+ F8 B! a    k = Left(c, a)
" _9 q, B  j: V    t = Left(LTrim(e), 3)
( g2 ^6 z) S* r    If t = "GBT" Then
& O+ G0 A% \- O2 \; f! h0 N! W) C        e = "GB/T" + Mid(k, 4)
& J8 ~5 u1 K! F: h, d) @    Else
        e = k
    End If
    b = Mid(c, a + 2)
& c5 |5 ~- L1 c7 z" n) p& H7 }4 K    t = Right(c, 7)
, \0 q9 n1 r* e$ p- _2 u4 Q+ \7 E' [    If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
' w) p; D0 S$ F8 D; A/ [        j = Len(b) - 7 '消除后缀（区分大小写共4种）
    Else
        j = Len(b)
3 |+ m' V4 Y  M7 }' T% {    End If
    m = Left(b, j)
- @3 g4 F! b* ZEnd If
blnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e)  '代号
& S" G& X) w' n( c5 {4 ^blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)  '名称
'blnretval = Part.AddCustomInfo3("", "图号", swCustomInfoText, e)  '图号

. F' g" b5 o/ ]" p6 H/ G

foxlord

foxlord 发表于 2021-1-5 10:16
0 P9 D5 }! w2 ?* _0 F. l+ Dsolidworks中宏是类似哪种语言呢？VB？Oracle？C++？

好的。了解。我查查
- `+ u, L; c" J- p

水水5

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

bamboo

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

foxlord

加了条语句，已经搞定了。谢谢大家的帮助。
'设定变量
: K% Z: k( J  ]- n, gc = swApp.ActiveDoc.GetTitle() '零件名
If Asc(c) > 0 Then

strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
7 X" b- `9 O( h2 |! }( R% xblnretval = Part.DeleteCustomInfo2("", "代号")
blnretval = Part.DeleteCustomInfo2("", "名称")
1 _- R6 y4 Z6 y5 [a = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格
If a > 0 Then
    k = Left(c, a)
2 e8 P+ K7 x, _+ @/ w7 ^! z" P! p    t = Left(LTrim(e), 3)
& d1 Q+ O0 M+ [* C    If t = "GBT" Then
        e = "GB/T" + Mid(k, 4)
- Q, D6 X3 S5 D# v    Else
        e = k
    End If
    b = Mid(c, a + 2)
    t = Right(c, 7)
: E3 |; I0 B% D6 ~    If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
* \' r" N5 }; @! ^* i4 e& v        j = Len(b) - 7 '消除后缀（区分大小写共4种）
    Else
        j = Len(b)
' J  T* ~7 G( n* ]    End If
    m = Left(b, j)
9 w% \' U  F8 \1 L2 VEnd If
. p* e2 p8 [. H% r2 ablnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e)  '代号
blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)  '名称
'blnretval = Part.AddCustomInfo3("", "图号", swCustomInfoText, e)  '图号
End If

远祥

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

foxlord

远祥 发表于 2021-1-5 16:30
: E2 P+ i8 G& U4 k" x% n, m8 \/ R这个看似高大上，用起来却并不快捷呀！

0 v0 r2 ~! s$ G2 [2 L6 n! d5 h0 u还行吧，个人习惯，我用的切换填入信息，不是按钮。