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

foxlord

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

foxlord

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

魍者归来

加个if语句判断一下

foxlord

魍者归来 发表于 2021-1-5 10:20
" k$ I: y: V; J8 Y加个if语句判断一下

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

c = swApp.ActiveDoc.GetTitle() '零件名
2 L' K( f! A; Q* d想在这加if判断c中字符串第一个字符是汉字或者不是字母数字，但是这个和C语言不一样，不太会，也不知道solidworks中宏的语言是哪种。
: O. [2 `# A4 x- t, ]望大神指教或者之前填上吧。万分感谢。
- A! l9 _( m0 x  _1 r8 B. W! F
$ U" z  ~" d0 Z8 E6 V# U7 G
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
% I" G5 V  k, c5 s' g* Qblnretval = Part.DeleteCustomInfo2("", "代号")
& x; b9 }& E+ kblnretval = Part.DeleteCustomInfo2("", "名称")
$ d# O7 J9 B! da = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格
If a > 0 Then
    k = Left(c, a)
3 _3 W. v5 Q: f    t = Left(LTrim(e), 3)
8 u7 x, t0 u1 J    If t = "GBT" Then
* T" k2 o, D" k0 p6 m& r        e = "GB/T" + Mid(k, 4)
    Else
" Z) p  a, `  f, g" I/ t: v        e = k
/ O7 w- n8 v: f2 }9 C( R$ |4 ^+ O    End If
$ F. p5 _1 u7 W' J1 p; @    b = Mid(c, a + 2)
    t = Right(c, 7)
    If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
, P& g6 l" X/ A+ g        j = Len(b) - 7 '消除后缀（区分大小写共4种）
$ Q- H$ M6 w. u" n% X7 j/ _9 v) R    Else
- ?7 _/ {1 x6 R5 ]9 w: F, ~        j = Len(b)
1 N" Q) `8 R( d* q7 P0 u    End If
3 {+ m8 H( U8 d% f& f    m = Left(b, j)
End If
blnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e)  '代号
6 x' w) t; z4 U% }, M) `blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)  '名称
'blnretval = Part.AddCustomInfo3("", "图号", swCustomInfoText, e)  '图号

5 S; F7 t+ ]3 }0 ]

foxlord

foxlord 发表于 2021-1-5 10:16
: G3 s( z( F' n/ b! S3 f5 V2 Esolidworks中宏是类似哪种语言呢？VB？Oracle？C++？

2 L$ ?) R- H# x) A( V" ?好的。了解。我查查
& l- n+ K2 m, F& W; l' C

水水5

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

bamboo

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

foxlord

加了条语句，已经搞定了。谢谢大家的帮助。
. K' B- Q/ ^9 y8 s( D'设定变量
c = swApp.ActiveDoc.GetTitle() '零件名
If Asc(c) > 0 Then
- d5 }1 T; Y. {# n3 k; p  M
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
+ I7 y5 G' T* b5 lblnretval = Part.DeleteCustomInfo2("", "代号")
0 u) b" D/ j: f$ ^/ S) @' p, U8 u) dblnretval = Part.DeleteCustomInfo2("", "名称")
a = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格
If a > 0 Then
    k = Left(c, a)
+ @6 @3 P8 {/ ~    t = Left(LTrim(e), 3)
    If t = "GBT" Then
        e = "GB/T" + Mid(k, 4)
    Else
        e = k
$ v6 P% l- A4 W% ]: u6 V' _    End If
9 a! N, j+ j) w    b = Mid(c, a + 2)
    t = Right(c, 7)
    If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
        j = Len(b) - 7 '消除后缀（区分大小写共4种）
    Else
        j = Len(b)
    End If
    m = Left(b, j)
: r6 m# c. v2 T# ]End If
blnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e)  '代号
3 E( ~8 S( w: Wblnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)  '名称
6 G+ ?9 z# n$ a6 |/ V'blnretval = Part.AddCustomInfo3("", "图号", swCustomInfoText, e)  '图号
3 @- d: ]. O& [# qEnd If
3 _; y$ K# B- A

远祥

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

foxlord

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

还行吧，个人习惯，我用的切换填入信息，不是按钮。
. t# t% \5 x$ W3 P2 j" x