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

foxlord

solidworks用了圖號(hào)名稱分離,，先有個(gè)問題,，標(biāo)準(zhǔn)件一般是開頭是中文,，怎么編輯宏命令檢測(cè)到中文跳出程序呢,？求大神解惑,。比如：零件名稱： 12354 中文   零件屬性中圖號(hào)：12354  名稱：中文,；零件名稱是標(biāo)準(zhǔn)彈墊 12345   當(dāng)檢測(cè)到這個(gè)零件后不進(jìn)行圖號(hào)名稱分離。
( @8 ~1 ?* k, t8 `4 o; z

foxlord

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

魍者歸來

加個(gè)if語句判斷一下

foxlord

魍者歸來 發(fā)表于 2021-1-5 10:20
加個(gè)if語句判斷一下

9 X3 Y: o2 L! C3 i. D大神,，你好，剛才看了你在宏中提取名稱的視頻,。
3 n8 J) p! r  k. x; y以下是圖號(hào)名稱分離的宏中一段代碼：
) ^' X# ]( L& ], `  t( k7 x
c = swApp.ActiveDoc.GetTitle() '零件名
想在這加if判斷c中字符串第一個(gè)字符是漢字或者不是字母數(shù)字,，但是這個(gè)和C語言不一樣，不太會(huì),，也不知道solidworks中宏的語言是哪種,。
- @  g$ K+ H+ C( N4 m9 V望大神指教或者之前填上吧。萬分感謝,。
, E& k5 ^" z+ {

strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
' a, N1 s6 y- E/ A" D- eblnretval = Part.DeleteCustomInfo2("", "代號(hào)")
blnretval = Part.DeleteCustomInfo2("", "名稱")
a = InStr(c, " ") - 1      '重點(diǎn)：分隔標(biāo)識(shí)符,，這里是一個(gè)空格
4 i9 O) I, T+ t% F2 `8 \( |+ ^If a > 0 Then
    k = Left(c, a)
: B* g0 p$ j1 r. u* G5 N    t = Left(LTrim(e), 3)
! c8 R+ n- k- ^4 O: K$ y5 l    If t = "GBT" Then
- z* P# X- o! i6 i- i* B        e = "GB/T" + Mid(k, 4)
* @$ F7 z  }3 n. R    Else
        e = k
    End If
    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種）
' D0 _& b$ f- [: X* T: X    Else
! b6 H2 g7 u4 [# p8 a" a% y        j = Len(b)
- }6 {- b/ E3 x$ A' u    End If
    m = Left(b, j)
! |& L  `6 z2 _- T2 x: j3 ^- Q' r1 _' QEnd If
: v. }: }+ `% H4 |' A; B: P7 }, Pblnretval = Part.AddCustomInfo3("", "代號(hào)", swCustomInfoText, e)  '代號(hào)
blnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)  '名稱
'blnretval = Part.AddCustomInfo3("", "圖號(hào)", swCustomInfoText, e)  '圖號(hào)
3 {& M. H# [: Z( K

foxlord

foxlord 發(fā)表于 2021-1-5 10:16
4 i2 w7 I& J8 t+ |5 h% Psolidworks中宏是類似哪種語言呢？VB？Oracle,？C++,？

; V3 F# _  J. w5 V1 w: R$ J好的。了解,。我查查
  j' m7 g5 q  }

水水5

我也用的這個(gè)宏
( A' j% a# ~$ ~2 G' W對(duì)于外購件,，我一般是這樣命名的  比如  軸承  6906   螺釘 M8×10   電磁閥  SY5120-DDDD,等等吧。
我對(duì)這個(gè)宏,，稍微修改了一下,，就能用了。再弄個(gè)宏按鈕

bamboo

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

foxlord

加了條語句，已經(jīng)搞定了,。謝謝大家的幫助,。
'設(shè)定變量
  p: s) y/ W8 o1 F7 r" Uc = swApp.ActiveDoc.GetTitle() '零件名
If Asc(c) > 0 Then
& @! Z$ q& `3 o' h1 j5 u5 |/ Q
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
blnretval = Part.DeleteCustomInfo2("", "代號(hào)")
blnretval = Part.DeleteCustomInfo2("", "名稱")
8 a% m2 S7 a+ \. h% A7 z" |* j7 ca = InStr(c, " ") - 1      '重點(diǎn)：分隔標(biāo)識(shí)符，這里是一個(gè)空格
/ ^% n3 i+ B  w2 \7 P  x1 E$ t0 |If a > 0 Then
    k = Left(c, a)
    t = Left(LTrim(e), 3)
    If t = "GBT" Then
        e = "GB/T" + Mid(k, 4)
    Else
5 |1 H+ g% E5 @$ Z. t: R" ]        e = k
    End If
8 P' k* h  F( K/ M  L    b = Mid(c, a + 2)
    t = Right(c, 7)
    If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
% z: r; I9 ]. c1 ^        j = Len(b) - 7 '消除后綴（區(qū)分大小寫共4種）
0 Y! A: U  {( `0 M8 J. [4 @+ k    Else
; q3 y  m, m: y* p# s7 B        j = Len(b)
    End If
) l' l  _6 N* o' A7 @7 F    m = Left(b, j)
3 Q& }/ ~; K9 t2 ZEnd If
blnretval = Part.AddCustomInfo3("", "代號(hào)", swCustomInfoText, e)  '代號(hào)
blnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)  '名稱
+ m4 w1 Q  l" ^) l* R; Y: H'blnretval = Part.AddCustomInfo3("", "圖號(hào)", swCustomInfoText, e)  '圖號(hào)
End If

遠(yuǎn)祥

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

foxlord

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

還行吧,，個(gè)人習(xí)慣，我用的切換填入信息,，不是按鈕,。
+ r$ c3 ]) c% U/ f0 Y3 s- H