久久久国产一区二区_国产精品av电影_日韩精品中文字幕一区二区三区_精品一区二区三区免费毛片爱

機械社區

標題: 圖號分離宏的使用問題 [打印本頁]
作者: 半夏丨迷離    時間: 2021-3-8 14:44
標題: 圖號分離宏的使用問題
零件只有圖號，沒有名稱的，用圖號分離宏，圖號識別總是出錯，經常是這張圖，識別的另一張圖的圖號，要么就是直接識別不了圖號，有沒有只識別材質、圖號，不識別零件名稱的宏？求分享一個。2 T6 f+ H& \9 w' q# {! Q, ~
作者: 魍者歸來    時間: 2021-3-8 15:01
這代碼看著眼熟
作者: zhufeng_hgp    時間: 2021-3-8 15:22
我用的是凱元工具，圖號分離挺好用的，還能讀取材料，填入日期，作者等內容，就是非會員一次只能處理9個零件
作者: 半夏丨迷離    時間: 2021-3-8 16:11
魍者歸來 發表于 2021-3-8 15:01) A6 k* k( _( t- J
這代碼看著眼熟

( s& y% H: R3 g不就到處可見的圖號分離宏嘛
5 {9 O: H1 u5 V+ ^( l
作者: 半夏丨迷離    時間: 2021-3-8 16:12
zhufeng_hgp 發表于 2021-3-8 15:22
9 _! q7 V9 B# ~0 o( e我用的是凱元工具，圖號分離挺好用的，還能讀取材料，填入日期，作者等內容，就是非會員一次只能處理9個零 ...
8 }7 F/ l; A( U7 z
我這要是圖號+名稱的格式的話，也挺好用的，問題是現在換公司了，命名格式只有圖號，沒有名稱，再用這個宏就出錯了  P/ |, k5 }2 F: V+ ?
作者: 溺水的咸魚    時間: 2021-3-8 16:13
zhufeng_hgp 發表于 2021-3-8 15:22! ~9 N/ Z$ W1 x* K6 T$ e' r' n
我用的是凱元工具，圖號分離挺好用的，還能讀取材料，填入日期，作者等內容，就是非會員一次只能處理9個零 ...
9 Y$ I8 w" B+ n" _5 u
SolidWorks宏文件其實也能填這些
# u* b- I# f+ m: ]% Z% g4 K3 U
作者: zhufeng_hgp    時間: 2021-3-8 16:19
溺水的咸魚 發表于 2021-3-8 16:13
' S4 p8 u$ \) P. s2 C: ]0 C: tSolidWorks宏文件其實也能填這些
9 n% `) `2 {, a& ]& |* o
宏確實可以用，但是不懂VB和C語言，只能撿現成的
. L# D1 T9 i# k. R: h4 c) |* A
作者: zhufeng_hgp    時間: 2021-3-8 16:23
半夏丨迷離 發表于 2021-3-8 16:123 @, J+ J& w# f" \- e$ J  {+ J
我這要是圖號+名稱的格式的話，也挺好用的，問題是現在換公司了，命名格式只有圖號，沒有名稱，再用這個 ...
) ~4 W/ w( }- X1 ^& U
零件名只有圖號的話，只要工程圖模板中的圖號直接連接到你的零件名稱就可以了，不需要宏的
; {! J# |) P# h8 K! u$ i6 U
作者: 魍者歸來    時間: 2021-3-8 16:46
半夏丨迷離 發表于 2021-3-8 16:11- `2 k1 F8 ^5 N$ p( \' i
不就到處可見的圖號分離宏嘛

$ i0 X/ u9 W$ I% B  h/ t悄咪咪的說，這個原版是我寫的
( \% ^  ^8 `2 \$ t8 k  L, u
作者: 魍者歸來    時間: 2021-3-8 16:52
zhufeng_hgp 發表于 2021-3-8 16:23
" A- H: w' k2 z0 c/ Q% s' y零件名只有圖號的話，只要工程圖模板中的圖號直接連接到你的零件名稱就可以了，不需要宏的
5 L+ ~. D# P: W( x
正解，如果不需要分離文件名，只需要改工程圖的模板就可以了
- ~9 X! B* A+ B& X  J
作者: 蘇州裝配工    時間: 2021-3-8 17:14
本帖最后由 蘇州裝配工 于 2021-3-8 17:27 編輯 * z+ D! c0 @$ R( Q5 t0 K+ K
6 v' D7 x9 V! Z3 y0 S
Dim swApp As Object6 e4 _% c0 D6 P+ q4 J

! Y4 B+ x% Z. Q/ v+ @9 rDim Part As Object( D, U% ~, k! {! l4 s( N, o* {
" X2 Q. G5 c6 t9 V) h" M. W1 ?
Dim SelMgr As Object( g9 a) z! m( }  m2 V0 |4 D

: n! C, W, F4 U5 I9 kDim boolstatus As Boolean2 k: J' O4 q& P( `& K

( L- E" F9 h+ i- ?. y1 y9 H- WDim longstatus As Long, longwarnings As Long
6 ]/ \2 r( G) W' e  R! ?1 L8 n  l0 t! p' g6 }  s
Dim Feature As Object$ Q8 ~7 E  _; j  G

. w9 a+ s+ j5 a2 A6 W5 h0 p( N! eDim a As Integer
. m. Y3 E1 ~9 R. i3 m; C9 Z" T5 J1 H# R4 m6 L
Dim b As String9 R  q  `3 r8 _

- y& O8 u5 T$ X( XDim m As String
" ?) p$ i- r8 N: B) h; N# k- E! b  R: D* u% O& ~
Dim e As String
( R( U7 ^$ L  c3 u. }5 p7 O/ Q( _8 K/ G, {' l6 x2 @) V6 I
Dim k As String6 n* t4 m+ l$ V1 W+ @

: ]% w3 `" K" d& ~0 q4 w( kDim t As String
" D& Q, F6 U4 {# z. U7 M7 H8 q5 {3 ]  D7 v* e7 D
Dim c As String
" Y$ C' _- ]6 a& S1 i. E, _* \/ P6 j# g# b) n) j' C2 e
Dim j As Integer
* B4 Z7 L( h8 c. m+ u! z9 V
/ ~! l* k- Q, o0 \( x! IDim strmat As String
  U$ i1 j: L$ b: L4 O& L+ X8 J" n: u1 \
Dim tempvalue As String# |7 h! Q6 ^* l+ K% g. Z
8 C) J1 N) L. t* c; H6 P9 T
Sub main()
2 e: k- R- U# b' W; j5 {3 t: @% X; v9 ^/ E& g5 N( b, n4 U9 N
'link solidworks+ k4 A$ J0 ]: o% b8 c

% D- p  V- c# y$ GSet swApp = Application.SldWorks
8 K2 L/ D* K  ]$ V+ h" g$ V
1 w* s- f( `7 Q! y+ O4 [& E0 mSet Part = swApp.ActiveDoc9 B  {! _7 g8 Z

2 h& E# t) t3 `: rSet SelMgr = Part.SelectionManager; [& o/ I# e/ B$ J
2 [- M' v2 q1 G2 v' s
swApp.ActiveDoc.ActiveView.FrameState = 1, a6 b( N2 A: }/ U$ C+ Z- @+ u
, h5 M; l7 f" @
'設定變量8 H2 h$ }$ y3 E8 t2 V  E& \
, ?! @4 V3 K; a0 m! Y  R
c = swApp.ActiveDoc.GetTitle() '零件名
9 O+ s9 g* E- i5 z5 ]- |% D; \/ ?; |% s) C. Y$ E8 m, I
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
1 w8 G% _3 `- Z  V3 H5 w, V7 Z5 ]$ Z* R. M, L2 f
blnretval = Part.DeleteCustomInfo2("", "代號")1 M1 q1 G  d+ G8 V- a* @/ k
4 N, s( x) e) B' A4 H$ \2 {
blnretval = Part.DeleteCustomInfo2("", "名稱")" P$ t0 y5 B1 z
& q7 E- I; n, A4 ]' O) ^, J# P
blnretval = Part.DeleteCustomInfo2("", "材料")5 U4 a- K3 H( T! e3 [$ B8 O
" y" W( A3 s2 n- q* Y
a = InStr(c, ".") - 1
  t* w* j- e$ J% r9 l* i  x: m% X6 }2 E3 k7 N. c
If a > 0 Then$ ~1 q6 R4 e, E! M9 e: z

) p3 u6 R$ j/ e4 X4 ?) v    k = Left(c, a)
' k' ~9 {+ t! v8 f& ~4 x8 A$ w$ v6 Y; A4 q3 a
    t = Left(LTrim(c), 3)
5 u- B8 o5 d" o5 I& E/ C/ l. \9 S4 a1 ?- E
    If t = "GBT" Then
, w* G  i: ?( g: R* V
6 f% k& E8 M. G* ]3 e- ^! f+ e; m        e = "GB/T" + Mid(k, 4)
1 |% `  [7 s$ e& R. ?7 I% e% Z; U
    Else0 F% |' w' I4 l5 x

6 v  c: Q8 y- U5 _9 D- g' I$ _        e = k+ {9 t. a8 x; V  Q5 ^4 q, y

' F3 n1 W& X8 b$ Q& a    End If  t  o/ V$ P5 T$ ?8 q9 r0 e$ g  {9 j

: ~8 N" g' }! G  v3 E6 m1 q( i$ P    b = Mid(c, a + 2)
. N$ Z6 U7 [* I" l5 t7 H
$ E, d, Q. {6 j; Z6 |    t = Right(c, 7)
0 [3 R+ Y" m0 F9 [: m; n& \
  }& Y7 t  e! K5 U    If t = ".SLDPRT" Or t = ".SLDASM" Then
. I5 Z. B8 ^+ [) a( ^! G; P$ j4 U
, J2 o: }4 U# X3 U* T        j = Len(b) - 7- M- m$ X5 s4 _6 J0 u$ I
. J. P! D3 i7 Y" P# V. s* k
    Else+ Y+ o; N- y' X8 Y  A

& d# B; C& f* v+ q* V+ j' H        j = Len(b)
: s7 }) ~5 U3 c/ q) y
. F# W4 I+ r9 U0 f5 r6 p    End If8 T+ }3 q% I  g% u* F) [
    3 @$ g  N1 }% L
  If j <> -1 Then7 H/ q6 ^+ S" q2 v- a
  1 G' }% k: `% s9 j& u
    m = Left(b, j)
9 l' T- h5 s3 N2 i
$ m& L( R' k, U% D2 p   End If) z* e- g$ ^7 r. T5 E
   % l* Q" `9 N* D9 l0 o* J& A! f
. m+ Y* q8 W" R( S' l8 p! l& c
End If
$ J' f+ \! h8 f4 g. P; W$ u
2 J4 }/ u4 b' \' x2 f* U1 eblnretval = Part.AddCustomInfo3("", "代號", swCustomInfoText, e)
- Z. ^; ^7 s, m* M- H/ `
, V, a- g% K! hblnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)
- T5 C  _2 @6 U9 y  V  ~# y9 Z
6 ]1 C4 X( A: w' P# ^9 Cblnretval = Part.AddCustomInfo3("", "表面處理", swCustomInfoText, strmat); D0 C1 E% [7 T% Q0 w6 {- f

! l( Y/ ]4 \  E% W& ^4 e" `9 [End Sub: j/ [5 k/ r- }& N6 U7 M
----------------------------------------------------------------------------------------------------------------
: i, u  p% ?& M$ g4 v) B+ u改了一下，親測可用。有哪里不符合你的要求回帖再改咯。
作者: 半夏丨迷離    時間: 2021-3-8 17:31
魍者歸來 發表于 2021-3-8 16:46. |7 x2 W* f5 C1 L9 K  J& g6 M
悄咪咪的說，這個原版是我寫的

9 n1 G! \. e0 I  @驚現大佬？？* D3 I2 Q; t; @/ s1 N
作者: 半夏丨迷離    時間: 2021-3-8 17:32
魍者歸來 發表于 2021-3-8 16:524 M; u$ B" i' b' I4 g3 m
正解，如果不需要分離文件名，只需要改工程圖的模板就可以了

. E8 n1 p* l/ b( [; s咋改？求教
作者: 半夏丨迷離    時間: 2021-3-8 18:04
蘇州裝配工 發表于 2021-3-8 17:14/ f% {0 }, q2 s
Dim swApp As Object6 A, \5 V2 R1 v/ e

4 H# ^3 M5 R# j' ~Dim Part As Object

1 u' ^& S$ g# d4 z" v* J0 x$ M還是不對
作者: 蘇州裝配工    時間: 2021-3-8 18:51
半夏丨迷離 發表于 2021-3-8 18:04
* y) P- A5 t! ~) ?還是不對
3 E6 \8 R! `0 V  _
最后那三項是宏生成的嗎？自己圖帶的話，刪除了，宏自己生成出來估計就對了，再不對就不知道了，你可以單步調試一下。我用著沒事的。/ ^4 V+ z% M- ]6 w0 J9 S" z6 `* P
作者: fiyu1314    時間: 2021-3-8 19:20
zhufeng_hgp 發表于 2021-3-8 15:22# m' H8 l9 a/ X4 L/ `2 x, w
我用的是凱元工具，圖號分離挺好用的，還能讀取材料，填入日期，作者等內容，就是非會員一次只能處理9個零 ...
. a$ v: O1 J8 g% O- ?
  我是會員+ |8 W9 v8 B) T# Y' c
作者: 未來第一站    時間: 2021-3-8 21:23
圖號加名稱一種奇怪的存在。
作者: 特斯拉·MY    時間: 2021-3-9 01:19
自定義屬性卡都沒有 弄好 肯定識別不了啦，你要把自定義屬性連接到工程圖模板，然后畫圖也要用這個模板。B站 搜 SW自定義屬性工程圖。眾所周知B站是和學習的地方
作者: 半夏丨迷離    時間: 2021-3-9 09:27
特斯拉·MY 發表于 2021-3-9 01:19; H; I  [9 z7 G0 H/ |9 _* _: @
自定義屬性卡都沒有 弄好 肯定識別不了啦，你要把自定義屬性連接到工程圖模板，然后畫圖也要用這個模板。B ...
9 F: \8 k0 F: k
謝了，我去查查
& y7 H" E% D( k( t; T' M% o+ [  t  f  V( L9 T) A/ K
作者: 遠祥    時間: 2021-3-10 11:06
看起來好復雜的樣子。。



歡迎光臨 機械社區 (http://www.ytsybjq.com/) Powered by Discuz! X3.5