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

foxlord

solidworks用了圖號名稱分離，先有個問題，標準件一般是開頭是中文，怎么編輯宏命令檢測到中文跳出程序呢？求大神解惑。比如：零件名稱： 12354 中文   零件屬性中圖號：12354  名稱：中文；零件名稱是標準彈墊 12345   當檢測到這個零件后不進行圖號名稱分離。

foxlord

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

魍者歸來

加個if語句判斷一下

foxlord

魍者歸來 發表于 2021-1-5 10:20
加個if語句判斷一下

4 u0 Z) S4 d6 g) O; o. T大神，你好，剛才看了你在宏中提取名稱的視頻。
以下是圖號名稱分離的宏中一段代碼：

6 D1 X* B+ k' ]/ B. r1 yc = swApp.ActiveDoc.GetTitle() '零件名
想在這加if判斷c中字符串第一個字符是漢字或者不是字母數字，但是這個和C語言不一樣，不太會，也不知道solidworks中宏的語言是哪種。
& u1 l/ m; Q  r) R! I望大神指教或者之前填上吧。萬分感謝。


/ H  O+ Z/ _3 S7 w2 ~strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
  Q7 O' M/ [8 u( pblnretval = Part.DeleteCustomInfo2("", "代號")
blnretval = Part.DeleteCustomInfo2("", "名稱")
( V5 e7 A! C; A! Z( F3 C( Da = InStr(c, " ") - 1      '重點：分隔標識符，這里是一個空格
$ P" V$ m7 M. yIf a > 0 Then
/ S4 I  I) T/ c3 d+ u. X" K  Q    k = Left(c, a)
# H& n9 E1 Z0 v; G! P2 C    t = Left(LTrim(e), 3)
    If t = "GBT" Then
        e = "GB/T" + Mid(k, 4)
8 [3 v0 H  B3 ~& |1 E# h9 A' e7 E% Y    Else
5 U9 U1 ?! t, y) G3 T+ B        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 '消除后綴（區分大小寫共4種）
    Else
        j = Len(b)
    End If
: A( a3 g: ^) n/ N7 s/ i8 @; E% X" X    m = Left(b, j)
5 ?' r% m0 C3 t1 ?. c; |" F: YEnd If
blnretval = Part.AddCustomInfo3("", "代號", swCustomInfoText, e)  '代號
blnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)  '名稱
: _% ^5 p# P3 s' U'blnretval = Part.AddCustomInfo3("", "圖號", swCustomInfoText, e)  '圖號
8 l% ~. }5 ^' T. P
5 m8 ?* P' R7 Z

foxlord

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

好的。了解。我查查

水水5

我也用的這個宏
% s7 ]5 V0 a# A' {5 Q7 y對于外購件，我一般是這樣命名的  比如  軸承  6906   螺釘 M8×10   電磁閥  SY5120-DDDD,等等吧。
. M0 p* m& L! D我對這個宏，稍微修改了一下，就能用了。再弄個宏按鈕

bamboo

SW是VBA，有語言互轉軟件嗎？

foxlord

加了條語句，已經搞定了。謝謝大家的幫助。
'設定變量
7 l/ }1 c# @9 B$ f9 a4 f, ]4 Zc = swApp.ActiveDoc.GetTitle() '零件名
If Asc(c) > 0 Then

; e8 x6 C2 O# b9 A' B/ Lstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
! P; v$ X0 }" I! i# iblnretval = Part.DeleteCustomInfo2("", "代號")
% i5 H  B7 {5 A, Qblnretval = Part.DeleteCustomInfo2("", "名稱")
* W, x3 N7 f; S: i  U  @$ L: C& K. ja = InStr(c, " ") - 1      '重點：分隔標識符，這里是一個空格
If a > 0 Then
    k = Left(c, a)
3 k* S* Y$ a4 O- G& g' L# O" q: _- K    t = Left(LTrim(e), 3)
8 U* A  x1 Q* Z' H+ S: q    If t = "GBT" Then
        e = "GB/T" + Mid(k, 4)
    Else
" W; H9 B4 ]9 x/ o: l6 }# G        e = k
    End If
& L4 A* r) p' F# {3 t# v    b = Mid(c, a + 2)
* X7 S, O9 O; [5 E* f    t = Right(c, 7)
    If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
) P/ ?! z4 Q$ w8 B8 g4 N  u        j = Len(b) - 7 '消除后綴（區分大小寫共4種）
    Else
& B; I: h4 \+ s3 g( o! W        j = Len(b)
    End If
    m = Left(b, j)
& W1 E: q! V0 f% o% J' e2 _End If
blnretval = Part.AddCustomInfo3("", "代號", swCustomInfoText, e)  '代號
, z- b5 K2 E6 X! wblnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)  '名稱
'blnretval = Part.AddCustomInfo3("", "圖號", swCustomInfoText, e)  '圖號
7 `) q% c. X) X, lEnd If
! q" J* f/ [# K$ _

遠祥

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

foxlord

遠祥 發表于 2021-1-5 16:30
' g3 `% b3 q/ v( y2 i. Q8 s這個看似高大上，用起來卻并不快捷呀！

還行吧，個人習慣，我用的切換填入信息，不是按鈕。
4 o6 F- d  \( v2 m! O  Y