机械必威体育网址

 找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
12
返回列表 发新帖
楼主: 半夏丨迷离
打印 上一主题 下一主题

图号分离宏的使用问题

[复制链接]
11#
发表于 2021-3-8 17:14:54 | 只看该作者
本帖最后由 苏州装配工 于 2021-3-8 17:27 编辑 % d$ t4 d4 J+ q  ]! D5 v9 f

5 ^7 R2 [% F) P9 c9 GDim swApp As Object
( l9 a# n3 f% M4 y& Q& e, N( t6 a# y/ z0 W7 ~% W8 {
Dim Part As Object: r4 ~( e1 G- N  X/ [1 c
7 f+ t( `; {5 n+ E# g" G6 K
Dim SelMgr As Object* R8 d$ l5 I: _

& `% G$ ?% W% \& R, @$ J( RDim boolstatus As Boolean
. ^6 x& ^! I9 ]& A! t) t1 ?- @% S5 O! E
! L$ k3 i8 }, c) A% T6 D) ^1 ?1 jDim longstatus As Long, longwarnings As Long6 X" @. n7 f0 O
! p5 P6 p8 U3 l9 w% R3 H6 W
Dim Feature As Object, w( ]/ V/ L- [+ [
+ G. P- ^8 S5 @4 ]( D% |. i
Dim a As Integer& L; P* C9 j/ ^8 F3 b

# O: J, l, {3 h9 ~Dim b As String! i$ r+ v9 ?6 x
* n% f" _6 S, e
Dim m As String1 b7 B# J. h) t) z+ M
% ]/ e' [  P- J% j5 ^. o! j$ B% Q
Dim e As String5 r1 k( L' N+ e8 q/ T' H, G5 F- `

3 X4 q9 o( ], A$ Y/ V" K. C3 `7 R4 kDim k As String
. A. A$ ]* ~/ D8 e
' Z  b  \* C- d! u3 Q- v7 PDim t As String
" n, [* c: b( L' [
  z! T8 A. A& PDim c As String
: F* b) n8 Y2 r' E$ u( U* P0 @7 `+ ?2 V
Dim j As Integer
" `; w+ a7 [7 X' H7 o% |
8 j& D; I% S8 H) @- N* iDim strmat As String
( B/ {; {$ |% d! u
9 W+ U, m. v2 bDim tempvalue As String+ w! B* f( Y4 s+ a7 ?8 \# S& z
! @$ t' T* B# V  V. y* F" P
Sub main()
: w* p9 \0 z9 I2 ?4 \7 ]8 s& k1 H+ w' d6 I
'link solidworks
( y8 \1 R* Z: u# r+ n1 f. n
* O7 m" c& ]9 ?$ h. D2 C( hSet swApp = Application.SldWorks, N! U- y$ a3 ^, U; O

; s) \0 y% U) g  Y4 s( m' fSet Part = swApp.ActiveDoc& Q# l; H; T* @7 M! |8 v9 e

( i1 x+ q" a; n- d& N0 BSet SelMgr = Part.SelectionManager6 F( Y* g% M6 `) Z) z; N& y8 M% j, l

1 E& a; J( _0 |; b5 ]swApp.ActiveDoc.ActiveView.FrameState = 12 F/ @1 {# l' S1 _6 e/ p6 U  u

& \/ F8 U. v: B) z1 j& Z6 ^'设定变量
9 K5 ~" o6 D: b6 m# P, {" l- _
c = swApp.ActiveDoc.GetTitle() '零件名
4 W- J- m* N/ S2 i9 ?# {* D2 q" W1 u
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)2 Q+ X2 L& `) n9 N3 a0 J
1 g# ]5 M# L4 G- S
blnretval = Part.DeleteCustomInfo2("", "代号")
: i: a- O0 h( i
9 i8 C% `- }. b% s2 y6 m$ T) p0 Bblnretval = Part.DeleteCustomInfo2("", "名称")# c2 r4 |* H5 U/ b

+ I9 ]) o9 N/ ]5 [) Qblnretval = Part.DeleteCustomInfo2("", "材料")
+ M! M/ J# ^; B( N% V* o( d% q* D1 H6 o3 ~8 ~
a = InStr(c, ".") - 1
: `4 n- B1 `/ Y7 V) L' n* K( ]* w
If a > 0 Then
5 ^6 l4 k/ |; ~9 M/ H$ c
$ y0 k! C0 `, ]2 Q' d' A, `    k = Left(c, a)
7 H0 n" ^6 B/ J) n- \4 }( c. v- r9 X0 {2 M
    t = Left(LTrim(c), 3)1 ^  v  o9 K  [  x1 [+ e3 y  C
6 x  ?; ?5 l: z! Z; ^
    If t = "GBT" Then
+ T- F: L8 T3 `- ]9 P1 v' _9 j2 ]1 I: }- j
        e = "GB/T" + Mid(k, 4)# ~1 E7 q" j6 g4 Y1 V3 K

3 y) M7 F7 r" `: [4 G  c, I$ {    Else. _; q  C' y5 {: }& A8 t/ U1 o
4 ]3 P  E& T( w. i& G
        e = k& ^/ f' X& G5 Z( Z$ G9 \' w7 I

0 z, W* q# i+ w- o+ x    End If
# g. n/ l% J7 [+ b1 K3 n2 q' I/ x, h7 L, i) e8 Y$ _7 N  J# r
    b = Mid(c, a + 2)
* F! ]$ Z0 @! X) s; U4 O0 r1 Q% `4 L) {1 ]& j
    t = Right(c, 7): {/ J3 h8 e3 h4 ^! I: s
, r% A8 U) t- B7 b- m2 k& L! r
    If t = ".SLDPRT" Or t = ".SLDASM" Then
, n/ O  K2 ~/ y# ?, t& ^: b$ ~, c" H7 y
        j = Len(b) - 7
" ]3 X' Z/ R4 ~5 L) B, i
" G9 D# A/ Z; p% ]    Else$ L* U; T- P2 p6 ~' k; c+ ~% Z$ S6 m

" n5 x! j9 ]2 V        j = Len(b)
, n6 T# p) X0 F5 r/ U$ U" a# t% L; E2 X9 J% f% p
    End If5 J9 R/ }5 a+ d1 i& `+ h
   
. D5 a4 C; \9 v# V! F& W: ?3 G  If j <> -1 Then: \5 W/ z0 q- x+ ?# @6 f7 ]3 b1 G, s
  * g5 K. e& f# |8 D  E
    m = Left(b, j)
: S$ }- U7 b8 |1 V' O' v! o3 [  R* h
3 Z+ y6 g4 h. N' {4 T. `   End If7 [& ^* |) h/ ]8 t, l7 e
   $ p6 T! l1 M  Z$ Z

  q5 U3 F% n1 h3 {' p6 EEnd If5 a" h- e! K  Y. W5 p! i
  ?$ E/ `8 S- v
blnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e)4 P0 o7 f5 |0 P6 l
( Y7 o+ P# V+ V4 f. v* A; X" `
blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)
, `7 F& _- S( {9 c! E1 k; y2 P9 X* `  D' E9 D8 E1 r9 V  ]/ X' C
blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, strmat)
" ]4 C4 J$ j- ?4 R3 m6 `* u! G8 [& T5 G& q3 X
End Sub
: p3 m$ n& }2 p  Z----------------------------------------------------------------------------------------------------------------
0 U, s2 S% `" f: j- t9 X改了一下,亲测可用。有哪里不符合你的要求回帖再改咯。

点评

出现不良后果概不负责,哈哈哈哈哈哈哈哈哈哈哈  发表于 2021-3-8 17:16

评分

参与人数 1威望 +1 收起 理由
未来第一站 + 1 热心助人,专业精湛!

查看全部评分

回复 支持 反对

使用道具 举报

12#
 楼主| 发表于 2021-3-8 17:31:45 | 只看该作者
魍者归来 发表于 2021-3-8 16:46
2 b  x$ h" [1 @# a, d$ @$ [8 n7 G, m悄咪咪的说,这个原版是我写的

7 ]. X! ^) }" W* X/ T惊现大佬??
% n/ ~% O) s& N
回复 支持 反对

使用道具 举报

13#
 楼主| 发表于 2021-3-8 17:32:39 | 只看该作者
魍者归来 发表于 2021-3-8 16:52
# t4 f+ [4 Z5 h* _& G# E! p- T正解,如果不需要分离文件名,只需要改工程图的模板就可以了

5 s5 p  Q/ v$ B+ T% k咋改?求教
回复 支持 反对

使用道具 举报

14#
 楼主| 发表于 2021-3-8 18:04:20 | 只看该作者
苏州装配工 发表于 2021-3-8 17:14, p$ ~0 c0 M! u6 v. B) E: k
Dim swApp As Object& }2 k9 p" B8 y; r" T0 w6 J
" R" T1 R+ z5 G: n6 m
Dim Part As Object
# _/ m$ I4 C9 s2 W3 ~
还是不对

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册会员

x
回复 支持 反对

使用道具 举报

15#
发表于 2021-3-8 18:51:30 | 只看该作者
半夏丨迷离 发表于 2021-3-8 18:04
, t& d' z9 s" ]# J1 S* z还是不对

+ e9 o9 j; m) b% z最后那三项是宏生成的吗?自己图带的话,删除了,宏自己生成出来估计就对了,再不对就不知道了,你可以单步调试一下。我用着没事的。
3 A, o% b  P* g7 i# {: [! O
回复 支持 反对

使用道具 举报

16#
发表于 2021-3-8 19:20:16 | 只看该作者
zhufeng_hgp 发表于 2021-3-8 15:228 ^9 a: c! D: S: M
我用的是凯元工具,图号分离挺好用的,还能读取材料,填入日期,作者等内容,就是非会员一次只能处理9个零 ...

( k7 M& E4 g. f- h6 P: |  我是会员
" d* y7 r# Z  a) ^. X' |
回复 支持 反对

使用道具 举报

17#
发表于 2021-3-8 21:23:47 | 只看该作者
图号加名称一种奇怪的存在。
回复 支持 反对

使用道具 举报

18#
发表于 2021-3-9 01:19:30 | 只看该作者
自定义属性卡都没有 弄好 肯定识别不了啦,你要把自定义属性连接到工程图模板,然后画图也要用这个模板。B站 搜 SW自定义属性工程图。众所周知B站是和学习的地方
回复 支持 反对

使用道具 举报

19#
 楼主| 发表于 2021-3-9 09:27:33 | 只看该作者
特斯拉·MY 发表于 2021-3-9 01:192 a( \" F- W% q' D7 U9 x) t
自定义属性卡都没有 弄好 肯定识别不了啦,你要把自定义属性连接到工程图模板,然后画图也要用这个模板。B ...

  ~8 c- f! G1 l' _3 R! k谢了,我去查查
, I" u2 Y1 K6 ~# [  o# A( U% ~7 T+ C) w6 O
回复 支持 反对

使用道具 举报

20#
发表于 2021-3-10 11:06:04 | 只看该作者
看起来好复杂的样子。。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

小黑屋|手机版|Archiver|机械必威体育网址 ( 京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号 )

GMT+8, 2025-2-19 06:45 , Processed in 0.067363 second(s), 15 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表