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

foxlord

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

foxlord

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

魍者歸來

加個if語句判斷一下

foxlord

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

7 u8 e& v& `9 L! l& B, h大神，你好，剛才看了你在宏中提取名稱的視頻。
$ m- A. R3 S0 ^( _9 |3 I9 J以下是圖號名稱分離的宏中一段代碼：

( [  k4 F1 n3 @0 Qc = swApp.ActiveDoc.GetTitle() '零件名
想在這加if判斷c中字符串第一個字符是漢字或者不是字母數字，但是這個和C語言不一樣，不太會，也不知道solidworks中宏的語言是哪種。
$ E* e2 z* o* \' r( ~, |望大神指教或者之前填上吧。萬分感謝。
5 m  b) l* U" j3 p& r7 m! ~

strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
9 S8 p( y! r! @. b4 B+ Oblnretval = Part.DeleteCustomInfo2("", "代號")
blnretval = Part.DeleteCustomInfo2("", "名稱")
& x: [  H3 o3 B( m$ ia = InStr(c, " ") - 1      '重點：分隔標識符，這里是一個空格
If a > 0 Then
    k = Left(c, a)
    t = Left(LTrim(e), 3)
# Q  Z0 b7 I6 e    If t = "GBT" Then
$ R6 P) p0 s: s! T# G/ R+ ?        e = "GB/T" + Mid(k, 4)
    Else
        e = k
% A( S, ^5 c/ I* k3 n    End If
& e- R* J$ |( n; N$ u- J. l5 O" b    b = Mid(c, a + 2)
5 ~. X$ ^& P( n* ~2 @    t = Right(c, 7)
    If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
        j = Len(b) - 7 '消除后綴（區分大小寫共4種）
; d% f5 N) @8 p0 V1 S    Else
        j = Len(b)
3 p; Z5 {* J# O: r" V    End If
# W1 e+ z5 T: e: f  R( a    m = Left(b, j)
/ j1 \7 l1 U5 ?5 O: ]" d2 cEnd If
2 I! E" \8 y* P7 xblnretval = Part.AddCustomInfo3("", "代號", swCustomInfoText, e)  '代號
& @' X8 l4 K  U# Eblnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)  '名稱
'blnretval = Part.AddCustomInfo3("", "圖號", swCustomInfoText, e)  '圖號

foxlord

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

! _: {3 }  z6 k3 d好的。了解。我查查

水水5

我也用的這個宏
對于外購件，我一般是這樣命名的  比如  軸承  6906   螺釘 M8×10   電磁閥  SY5120-DDDD,等等吧。
3 m8 G0 e1 ?! M( p  o' b. i我對這個宏，稍微修改了一下，就能用了。再弄個宏按鈕

bamboo

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

foxlord

加了條語句，已經搞定了。謝謝大家的幫助。
'設定變量
5 {  G9 O! T" T; jc = swApp.ActiveDoc.GetTitle() '零件名
If Asc(c) > 0 Then

strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
blnretval = Part.DeleteCustomInfo2("", "代號")
blnretval = Part.DeleteCustomInfo2("", "名稱")
  C  r1 l3 u! [" Aa = InStr(c, " ") - 1      '重點：分隔標識符，這里是一個空格
$ S- s; G) I: M4 ^' k2 W9 J7 Q* mIf a > 0 Then
    k = Left(c, a)
    t = Left(LTrim(e), 3)
. ^  E. [* f. ^2 U8 H    If t = "GBT" Then
        e = "GB/T" + Mid(k, 4)
    Else
5 r* `3 x. e3 N* h8 F5 X, o3 {        e = k
    End If
    b = Mid(c, a + 2)
' b) Z9 C; j6 S8 l( o    t = Right(c, 7)
    If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
- Q3 Z" A: d4 N/ E4 n" J& w        j = Len(b) - 7 '消除后綴（區分大小寫共4種）
    Else
" t4 W( F4 i4 H! C: Z        j = Len(b)
7 n3 R9 m9 X" a, s- Z    End If
    m = Left(b, j)
9 [. j3 q, W5 V% S3 y) Q3 a$ E2 L7 CEnd If
blnretval = Part.AddCustomInfo3("", "代號", swCustomInfoText, e)  '代號
, c6 t* O* E% `9 e3 _; r* N- `  qblnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)  '名稱
'blnretval = Part.AddCustomInfo3("", "圖號", swCustomInfoText, e)  '圖號
% f8 F1 v4 x6 i/ S5 J, X$ m0 g% cEnd If
" U  ]& q; G- I, C) Z

遠祥

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

foxlord

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

2 ]: B3 r/ ^3 b& H# y% S還行吧，個人習慣，我用的切換填入信息，不是按鈕。
4 w7 G! v$ w3 {- {+ M* \! i' \