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

foxlord

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

foxlord

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

魍者归来

加个if语句判断一下
* B. a- t( b3 s3 _% J( A* _# q( n

foxlord

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

大神，你好，刚才看了你在宏中提取名称的视频。
以下是图号名称分离的宏中一段代码：
0 w, i, ?$ n5 V4 v j
! f# Q; e. X! U# J$ D$ Vc = swApp.ActiveDoc.GetTitle() '零件名
. T4 a' v9 h& c8 [1 N想在这加if判断c中字符串第一个字符是汉字或者不是字母数字，但是这个和C语言不一样，不太会，也不知道solidworks中宏的语言是哪种。
望大神指教或者之前填上吧。万分感谢。
* O) i6 }% F2 W3 T! {* }; N

5 e+ A; O! F5 G5 s+ {% p) Estrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
7 `, T2 `$ J) t5 kblnretval = Part.DeleteCustomInfo2("", "代号")
$ \, u. o( d h% L, A1 `blnretval = Part.DeleteCustomInfo2("", "名称")
! C- ?6 }$ e( w# N$ w+ Ma = InStr(c, " ") - 1 '重点：分隔标识符，这里是一个空格
9 s2 N d! g2 l: P( Q7 S- E& j& kIf a > 0 Then
! V4 `0 b. U) H; V! M8 Xk = Left(c, a)
t = Left(LTrim(e), 3)
If t = "GBT" Then
e = "GB/T" + Mid(k, 4)
Else
+ @8 H9 ~) Y" E' b, S/ V8 le = k
$ x3 O" b+ y) @End If
b = Mid(c, a + 2)
% y; F! ]% e# z0 J8 @8 E* xt = Right(c, 7)
If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
j = Len(b) - 7 '消除后缀（区分大小写共4种）
/ W5 w/ c: e! Y3 gElse
! _/ f3 q. C. \ Gj = Len(b)
' ]9 ?8 |) d+ g+ i7 u; uEnd If
m = Left(b, j)
& _; l* J" B4 f1 gEnd If
& t2 F/ I8 Z$ }0 r w4 m- }: oblnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e) '代号
blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m) '名称
'blnretval = Part.AddCustomInfo3("", "图号", swCustomInfoText, e) '图号

foxlord

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

. I, _$ ]; z% e+ b( E* w |好的。了解。我查查

水水5

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

bamboo

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

foxlord

加了条语句，已经搞定了。谢谢大家的帮助。
# v5 t- y2 z! f& p* {'设定变量
c = swApp.ActiveDoc.GetTitle() '零件名
- w; K( Z5 z$ I' dIf Asc(c) > 0 Then
. A, m {9 C; }8 `3 i
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
blnretval = Part.DeleteCustomInfo2("", "代号")
" C5 `+ M+ q: a. Cblnretval = Part.DeleteCustomInfo2("", "名称")
a = InStr(c, " ") - 1 '重点：分隔标识符，这里是一个空格
& ^& N* H% C8 mIf a > 0 Then
1 p! _+ }6 i% p9 c( ^k = Left(c, a)
t = Left(LTrim(e), 3)
If t = "GBT" Then
8 U4 f9 V/ w& i) pe = "GB/T" + Mid(k, 4)
Else
e = k
/ L( D+ P* v- W; t: t- @( U/ U+ aEnd If
b = Mid(c, a + 2)
t = Right(c, 7)
If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
" W* O4 e0 N5 I1 ?j = Len(b) - 7 '消除后缀（区分大小写共4种）
Else
j = Len(b)
End If
, m9 c& @; u; L: n6 H9 Q% \. Um = Left(b, j)
$ Y) N4 v9 _4 N% n+ m. pEnd If
! O0 O& B4 a% Fblnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e) '代号
: B; {$ D7 v/ @blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m) '名称
'blnretval = Part.AddCustomInfo3("", "图号", swCustomInfoText, e) '图号
End If

远祥

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

foxlord

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

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