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

foxlord

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

foxlord

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

魍者归来

加个if语句判断一下

foxlord

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

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

c = swApp.ActiveDoc.GetTitle() '零件名
5 c1 ?- }" F  V9 H# [# m0 e想在这加if判断c中字符串第一个字符是汉字或者不是字母数字，但是这个和C语言不一样，不太会，也不知道solidworks中宏的语言是哪种。
) ?. }7 j+ v: k; n4 ?2 o望大神指教或者之前填上吧。万分感谢。

/ m4 ]( g- k. g& V2 W: `* x
! m" o5 B( m. P2 U. b- i3 Tstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
2 T# b$ o9 G9 I6 B5 Q+ u9 e) Q, jblnretval = Part.DeleteCustomInfo2("", "代号")
  u# z+ n  `$ k. x4 K: I* s  v: b- rblnretval = Part.DeleteCustomInfo2("", "名称")
  ?6 }/ ~  m: g* ya = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格
If a > 0 Then
# ]; ]+ f, l+ P2 G0 G2 A    k = Left(c, a)
    t = Left(LTrim(e), 3)
) j8 {4 p( N; L* R) N5 W* ^    If t = "GBT" Then
( X" w" x# @( b2 v: I8 r4 w- M: [% P        e = "GB/T" + Mid(k, 4)
    Else
+ S9 h  e* m# J6 t        e = k
    End If
/ H! M. e7 \* B9 V; ?+ X/ l/ |    b = Mid(c, a + 2)
    t = Right(c, 7)
    If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
4 h' }$ `5 `5 U% ~; y6 }: \        j = Len(b) - 7 '消除后缀（区分大小写共4种）
    Else
+ x3 }# S* K  @        j = Len(b)
# y# z' [7 \6 p3 V0 K) d    End If
    m = Left(b, j)
! x1 ^2 U9 n$ b" p3 yEnd If
blnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e)  '代号
blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)  '名称
: @7 W  q3 y% h: ^. a& @, N9 M# n'blnretval = Part.AddCustomInfo3("", "图号", swCustomInfoText, e)  '图号

foxlord

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

好的。了解。我查查
% A* ~5 V; h' g  A1 D+ {6 F, o

水水5

我也用的这个宏
! h1 e5 M* n8 l: q对于外购件，我一般是这样命名的  比如  轴承  6906   螺钉 M8×10   电磁阀  SY5120-DDDD,等等吧。
) h. Z% ^! m  @7 C. I2 O我对这个宏，稍微修改了一下，就能用了。再弄个宏按钮

bamboo

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

foxlord

加了条语句，已经搞定了。谢谢大家的帮助。
: {1 N/ M8 `/ b'设定变量
# `( K9 {+ N2 H/ R0 \1 u# ec = swApp.ActiveDoc.GetTitle() '零件名
2 g# i( a$ ], f! _! {If Asc(c) > 0 Then
5 t' ^, o3 @$ d+ u
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
6 B, `- A# L' C8 {- W" ?blnretval = Part.DeleteCustomInfo2("", "代号")
blnretval = Part.DeleteCustomInfo2("", "名称")
+ ?- n* U1 h- s% ^* W2 J# {  B% da = InStr(c, " ") - 1      '重点：分隔标识符，这里是一个空格
If a > 0 Then
( D+ b0 t6 s1 |  Q$ t: ]: N0 c    k = Left(c, a)
( Z6 \$ a% b0 m( P    t = Left(LTrim(e), 3)
    If t = "GBT" Then
        e = "GB/T" + Mid(k, 4)
    Else
        e = k
    End If
. K) `. A" \8 Y# i" Q  m    b = Mid(c, a + 2)
( v7 L' a/ _4 {- U% m    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)
6 E' T: n* X& ~    End If
* a8 a1 R, |- H/ C) I( C3 k% h    m = Left(b, j)
1 k0 l, O6 q9 c3 y0 PEnd If
& r5 x+ J+ m& x) a9 _blnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e)  '代号
blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)  '名称
; o% |" g( E+ x7 m( [8 C'blnretval = Part.AddCustomInfo3("", "图号", swCustomInfoText, e)  '图号
2 M- \1 u  }* c* h, S) KEnd If

远祥

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

foxlord

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

还行吧，个人习惯，我用的切换填入信息，不是按钮。
8 q! @1 r" C; u2 L# ?0 y