圖號分離宏的使用問題

蘇州裝配工

( A: y; r/ g' Y, p1 f
  _& d8 O% I2 E! J- VDim swApp As Object
* b. @+ M( B8 F2 C
; e; y) \0 a% `+ i! IDim Part As Object

Dim SelMgr As Object

- D& Q% E/ y7 M; g- M3 [3 N6 _  GDim boolstatus As Boolean

* c0 R/ _) \+ J( _- LDim longstatus As Long, longwarnings As Long

5 i: `5 \+ p' B+ I) z2 DDim Feature As Object
/ b! v( S, b3 `7 ~7 Q. O
) T+ a# c2 j2 l; W* `& \Dim a As Integer

Dim b As String

" W8 _4 \6 r0 s: I0 mDim m As String
' `& Y# c3 _/ A: n, i
Dim e As String

Dim k As String

, z0 X! a, Z) ~7 d* c( X+ _2 n7 X' \Dim t As String
: o) W( v* T0 W9 N. E" Q) Z- t0 [2 D
/ O& c1 E* X* ^, ~8 X# p* W/ G# UDim c As String
* i8 F3 U* f, Q
) h* y$ D( }  }# t- sDim j As Integer

; l) v5 e! I3 _* ADim strmat As String
  t1 ^7 k# b1 L$ }' w, v+ D
Dim tempvalue As String
5 x9 j( h; G: N; C0 w% K/ Z' z
Sub main()
; q  g7 O0 h# F7 Z8 I2 _
5 m2 o7 p: T8 ~" n$ _'link solidworks

7 A& N. S  B$ v' E7 b  BSet swApp = Application.SldWorks
" k- K8 ^, a! I  W
+ x% J& X/ R; }- _) eSet Part = swApp.ActiveDoc

Set SelMgr = Part.SelectionManager
1 b7 I" O7 p! ?0 p
& K; ?% T4 n. ?" A# LswApp.ActiveDoc.ActiveView.FrameState = 1

% y; d/ U' h. Q. y4 n, F* r" c) k'設(shè)定變量

! b! H% S6 s2 {9 z2 uc = swApp.ActiveDoc.GetTitle() '零件名

0 J; O/ u0 z; p. T1 t, Tstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)

blnretval = Part.DeleteCustomInfo2("", "代號")
" Z7 E5 B7 k8 q1 H8 a
8 |1 R4 y% l6 @5 {$ bblnretval = Part.DeleteCustomInfo2("", "名稱")
+ c$ M! W# s) R) _4 C7 z; _
% Q' f$ N; X+ c& S7 i9 x% Iblnretval = Part.DeleteCustomInfo2("", "材料")
. y/ z% I# I  E
! w. E2 ~8 _* }6 w+ ba = InStr(c, ".") - 1
" d2 u! |- y7 B$ i3 z* ~! x
If a > 0 Then
4 S' e! \$ ~' {2 b; F2 A
- Q2 J2 P8 G' U    k = Left(c, a)
0 M# k% r3 H" \0 V$ m" }# r! w
2 E6 Q4 U' R& X+ @5 Q/ m& Z# V2 f+ W- R    t = Left(LTrim(c), 3)

0 f8 x; f% Y' C8 }    If t = "GBT" Then

        e = "GB/T" + Mid(k, 4)
% l' T- r3 y3 M9 m/ y; v
    Else
$ J; B: k: [6 \& ]4 |+ ?' T
$ e; p1 \6 S  O        e = k
3 ^+ h' W1 G" K. j4 t8 ^$ o* g
    End If

2 A- N8 q* \* `9 q/ Q5 v    b = Mid(c, a + 2)

    t = Right(c, 7)
% c9 g& x6 X- t6 }  ^
    If t = ".SLDPRT" Or t = ".SLDASM" Then
; [  U* S3 e- }, e
        j = Len(b) - 7

    Else

        j = Len(b)

( i; i$ M1 s5 L$ |    End If
0 E( @. ~2 U- g# ~1 M/ Z+ p   
' ]) {' R3 ^6 H. t  If j <> -1 Then
( K* ?0 _7 J: U2 J8 E* |  
5 @& s2 L( B4 y  {& O    m = Left(b, j)

   End If
   
" T% Q3 Q7 ]. M3 ?' `. T! _: `
6 U% r8 W  ]4 [; w2 L( kEnd If

blnretval = Part.AddCustomInfo3("", "代號", swCustomInfoText, e)

5 P) X: S: {+ D# hblnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)
4 b/ X: X3 a1 m# j& ~& s
2 v7 D" C8 _. x; Y1 q* S/ z+ h! @blnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, strmat)
: j5 F. J8 Q! T! k2 r
4 t" [2 M5 ?- mEnd Sub
) H, u: w, U( u, g1 M# o& p----------------------------------------------------------------------------------------------------------------
" z. D( w3 o  h+ ?改了一下，親測可用,。有哪里不符合你的要求回帖再改咯。

半夏丨迷離

魍者歸來 發(fā)表于 2021-3-8 16:46
/ e: ~  W- s2 y$ t悄咪咪的說,，這個原版是我寫的

* @' A" t$ y$ H1 ]: F- g驚現(xiàn)大佬？,？

半夏丨迷離

魍者歸來 發(fā)表于 2021-3-8 16:52
( Z# j  j) c7 I0 F+ s正解,，如果不需要分離文件名，只需要改工程圖的模板就可以了

- G& W$ z) Y' Z8 c& x) Z咋改,？求教

半夏丨迷離

蘇州裝配工 發(fā)表于 2021-3-8 17:14
: j; W% g9 L1 tDim swApp As Object
) f' E( J. S2 x9 x9 U
Dim Part As Object

還是不對

蘇州裝配工

半夏丨迷離 發(fā)表于 2021-3-8 18:04
$ z2 j' d8 s: Z還是不對

最后那三項是宏生成的嗎,？自己圖帶的話,，刪除了，宏自己生成出來估計就對了,，再不對就不知道了,，你可以單步調(diào)試一下。我用著沒事的,。
* P! q1 h5 n/ B  }9 h# @+ K7 X3 h- L8 @+ }

fiyu1314

zhufeng_hgp 發(fā)表于 2021-3-8 15:22
我用的是凱元工具，圖號分離挺好用的,，還能讀取材料,，填入日期，作者等內(nèi)容,，就是非會員一次只能處理9個零 ...

/ d5 n9 v0 K, o8 s* @  我是會員
' }" p9 X7 w: q( m0 r8 s$ t" m

未來第一站

圖號加名稱一種奇怪的存在,。

特斯拉·MY

自定義屬性卡都沒有 弄好 肯定識別不了啦，你要把自定義屬性連接到工程圖模板,，然后畫圖也要用這個模板,。B站 搜 SW自定義屬性工程圖。眾所周知B站是和學(xué)習(xí)的地方

半夏丨迷離

特斯拉·MY 發(fā)表于 2021-3-9 01:19
自定義屬性卡都沒有 弄好 肯定識別不了啦,，你要把自定義屬性連接到工程圖模板,，然后畫圖也要用這個模板,。B ...

0 Z& M0 P: h" z* B謝了，我去查查

( ^- W2 r2 h# _) }- z% `$ ]# w

遠(yuǎn)祥

看起來好復(fù)雜的樣子,。,。