solidworks中利用宏名稱檢測,，希望大神解答

foxlord

solidworks用了圖號名稱分離,，先有個問題,，標準件一般是開頭是中文，怎么編輯宏命令檢測到中文跳出程序呢,？求大神解惑,。比如：零件名稱： 12354 中文   零件屬性中圖號：12354  名稱：中文；零件名稱是標準彈墊 12345   當(dāng)檢測到這個零件后不進行圖號名稱分離,。
6 X( }2 V& C, a4 V( w1 l( U' {, J

foxlord

solidworks中宏是類似哪種語言呢,？VB？Oracle,？C++,？

魍者歸來

加個if語句判斷一下
. j1 P) t$ _" K+ y% e; r$ l+ p' v

foxlord

魍者歸來 發(fā)表于 2021-1-5 10:20
) h: h: a# [: K! Y$ g加個if語句判斷一下

大神，你好,，剛才看了你在宏中提取名稱的視頻,。
以下是圖號名稱分離的宏中一段代碼：
" B( j( F3 T; \8 c4 S- E
c = swApp.ActiveDoc.GetTitle() '零件名
# f% |& X  q0 W想在這加if判斷c中字符串第一個字符是漢字或者不是字母數(shù)字，但是這個和C語言不一樣,，不太會,，也不知道solidworks中宏的語言是哪種。
望大神指教或者之前填上吧,。萬分感謝,。
) g% y. A& O& M; U% y0 c3 V$ t
% k* X4 T7 _4 y
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
blnretval = Part.DeleteCustomInfo2("", "代號")
blnretval = Part.DeleteCustomInfo2("", "名稱")
a = InStr(c, " ") - 1      '重點：分隔標識符，這里是一個空格
: G: i3 m1 j' {If a > 0 Then
; Q+ K' d3 h" D( R; `    k = Left(c, a)
* E2 m0 W+ }( D+ q    t = Left(LTrim(e), 3)
6 k$ `5 ~4 {8 }- @4 Q    If t = "GBT" Then
* s9 G/ n& A" {; H9 L        e = "GB/T" + Mid(k, 4)
  J! u1 n# O  ]2 A: y    Else
! Q2 x4 }- G' E        e = k
6 u# \! V/ v9 K, O/ k1 d    End If
    b = Mid(c, a + 2)
    t = Right(c, 7)
5 V! O9 h6 m1 v4 g  W1 m    If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
9 y: n2 G; S* X# r# J        j = Len(b) - 7 '消除后綴（區(qū)分大小寫共4種）
    Else
4 C2 d3 [7 k+ O4 Y6 s. {+ I        j = Len(b)
! ~8 \  R# Z5 s    End If
; l6 s+ v3 t9 l2 u    m = Left(b, j)
End If
, `/ K' }7 v" g& m8 b$ _5 }blnretval = Part.AddCustomInfo3("", "代號", swCustomInfoText, e)  '代號
blnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)  '名稱
'blnretval = Part.AddCustomInfo3("", "圖號", swCustomInfoText, e)  '圖號

6 {" M! G# b# s  r% K3 l# A

foxlord

foxlord 發(fā)表于 2021-1-5 10:16
solidworks中宏是類似哪種語言呢,？VB,？Oracle？C++,？

8 B4 D1 |% P5 n好的,。了解。我查查
* F# x9 p6 a7 f( X7 D+ g2 p7 T, Z

水水5

我也用的這個宏
對于外購件,，我一般是這樣命名的  比如  軸承  6906   螺釘 M8×10   電磁閥  SY5120-DDDD,等等吧,。
我對這個宏，稍微修改了一下,，就能用了,。再弄個宏按鈕

bamboo

SW是VBA，有語言互轉(zhuǎn)軟件嗎,？

foxlord

加了條語句,，已經(jīng)搞定了。謝謝大家的幫助,。
'設(shè)定變量
c = swApp.ActiveDoc.GetTitle() '零件名
9 B! T8 o' Z, u. E& A  n1 o* n& EIf Asc(c) > 0 Then
  ~% P2 n* C# X5 }  h2 i, y* ^
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
blnretval = Part.DeleteCustomInfo2("", "代號")
blnretval = Part.DeleteCustomInfo2("", "名稱")
a = InStr(c, " ") - 1      '重點：分隔標識符,，這里是一個空格
+ Z$ o, e- g5 ?- L7 ~If a > 0 Then
5 a8 A0 e" g+ d; K. x* c$ d6 F+ |    k = Left(c, a)
    t = Left(LTrim(e), 3)
6 g% b0 k9 J4 s6 r! s5 V; J! E    If t = "GBT" Then
        e = "GB/T" + Mid(k, 4)
* @. \1 H& @8 d/ U9 K  U    Else
        e = k
    End If
+ P" D$ `' T& a! ]. R8 _    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 '消除后綴（區(qū)分大小寫共4種）
    Else
        j = Len(b)
    End If
5 s/ x. u/ S4 [/ t$ ^    m = Left(b, j)
2 ^' q) H! ?+ ]( a! G4 nEnd If
blnretval = Part.AddCustomInfo3("", "代號", swCustomInfoText, e)  '代號
blnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)  '名稱
'blnretval = Part.AddCustomInfo3("", "圖號", swCustomInfoText, e)  '圖號
* G3 A  \( w( U3 u+ M, W8 XEnd If
1 o; E6 h: N% P+ M

遠祥

這個看似高大上，用起來卻并不快捷呀,！

foxlord

遠祥 發(fā)表于 2021-1-5 16:30
這個看似高大上,，用起來卻并不快捷呀！

7 S# S3 S' f1 W7 _% V還行吧,，個人習(xí)慣,，我用的切換填入信息，不是按鈕,。