机械必威体育网址

 找回密码
 注册会员

QQ登录

只需一步,快速开始

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

图号分离宏的使用问题

[复制链接]
11#
发表于 2021-3-8 17:14:54 | 只看该作者
本帖最后由 苏州装配工 于 2021-3-8 17:27 编辑
1 m" ^+ |* ?8 \2 j+ N  k4 `" r9 z9 _$ t5 x
Dim swApp As Object
3 e$ A" O4 M6 S1 w1 W0 [% P# |5 i* `7 _( e
Dim Part As Object0 v7 K" t3 ?9 f# C) B
* Y% j5 x* p% Q( i5 V4 S
Dim SelMgr As Object! b. N  d9 [6 l/ j
8 b# r$ j& U+ _1 E' t+ x
Dim boolstatus As Boolean% U$ T+ i. B% i

8 {( H! W: j7 w6 D8 ADim longstatus As Long, longwarnings As Long
  z# F7 U* u6 B! w6 C( @6 D- G1 k: Y" x8 U
Dim Feature As Object9 Z; x& b3 }* z6 O

( r! q% K$ C! L" l5 L+ }) MDim a As Integer
& J) |' b) y4 v4 K
! b: o( ^5 Y5 e* a5 ]$ YDim b As String
& Y* l7 d) L. q# F) @, Z! }
" B) L% U1 j: c# u0 q6 Z# I' J, |Dim m As String
2 U) M8 H7 i$ L+ M/ `+ X$ }& l; S5 U- r& n0 I6 x; M: s
Dim e As String% V7 A+ L2 r7 q; I0 ?# H

6 T1 N2 T' J7 Y/ G6 t' dDim k As String
3 M: P  o7 \0 {
2 g0 @  a3 J' jDim t As String
' H  {8 {1 q0 ?- F, z! J3 u* R! l" ~
Dim c As String8 ?: P  A* ]6 O8 p9 n
1 |% h8 e0 v2 W& g& \
Dim j As Integer
! ]' d) c! {- O: P) O' c$ q* V9 ]+ N5 u/ g
Dim strmat As String
7 p; J8 @. i& h* I( R, c, l7 U) _/ k6 X0 G1 z4 X9 w
Dim tempvalue As String
! I4 W) O% E7 ]! L
: I! q7 i* m$ y3 X: oSub main()
* U- p# d! P$ e0 E/ G4 [
% i" R$ G- u9 S2 d* n! k5 K'link solidworks
' s6 n9 u* D. ]( k) ]5 T/ j& h2 k
" J5 V5 z! p6 y: Q+ x3 ^- jSet swApp = Application.SldWorks
7 N, H8 A% Z+ J, k3 `  C! w- D, ^) C) X/ f- b
Set Part = swApp.ActiveDoc0 A4 B. \. u' s* q) H. N1 K8 n' e( `

4 e' ?+ P" v; H, j. \" J; zSet SelMgr = Part.SelectionManager  `, F6 u0 P# f/ V  Y, H- U

  Y, s. Q- H* V3 j; M2 NswApp.ActiveDoc.ActiveView.FrameState = 1
$ u" z6 w4 U7 K9 a/ B* S
9 t1 s$ ?- b* X0 B( H+ u'设定变量
$ X7 h$ M4 A( C# F! G
9 `3 X: W' J& I9 P* q4 ~3 ~c = swApp.ActiveDoc.GetTitle() '零件名* `* @! X& L: }
' q5 Q6 D6 \* i3 u% |% `3 k* Q
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)4 f8 c- a" H* I+ \  w4 u5 g8 p' H" B

( R, o4 l# V/ G' Xblnretval = Part.DeleteCustomInfo2("", "代号")+ }0 X+ P$ e$ D  u! P
0 d& b" D% P$ E) I1 y0 o
blnretval = Part.DeleteCustomInfo2("", "名称")
; Y% r( |9 ~- k6 {; O: V$ N1 n
& ~1 N0 Z8 v) B2 ~blnretval = Part.DeleteCustomInfo2("", "材料")+ m' P0 }# O4 ~/ i
  v; `/ W0 r8 U& @" `" g
a = InStr(c, ".") - 1( g- B' a) s7 T" L& h* E* k
5 E5 T1 W3 H' u7 ?) D
If a > 0 Then
5 |9 H" K9 J, N
: h, x' n8 G1 M) Q" x$ z    k = Left(c, a)
$ X! a7 V. x- J$ h9 f/ Z9 D4 y
) C! }5 N& g4 f; M+ _    t = Left(LTrim(c), 3)
. y, c& M- l4 d5 Y6 `% c6 ]4 ~' q/ h+ h) Y+ Y
    If t = "GBT" Then
4 E6 ]: `) D; p1 c, V
; _* A# i# w; ]' x6 e* P$ e- p7 |        e = "GB/T" + Mid(k, 4)5 O' V' y$ Q" k) T

: V9 @- g( r. {* N    Else
& f9 L" a+ F- B' O8 x+ P- l5 y9 t( J* C3 y# Y* U9 I: w6 l" e
        e = k
1 U4 J# z& \' e: o
* ?9 x5 ]5 y8 v* E- F    End If
% I* J3 A1 M; k2 ?
) k  ~$ Q6 w5 b: a    b = Mid(c, a + 2)3 y5 m$ r' R2 S1 s6 T+ |/ ?$ f! A

6 x- {# }6 M$ N+ O6 K5 \  p- j' M    t = Right(c, 7)4 c/ |' {" i. n4 @
* @( A$ i+ j& i8 b# h0 x6 z. ^
    If t = ".SLDPRT" Or t = ".SLDASM" Then/ G# t0 U/ K$ B4 I/ y9 x; {, _+ I
6 t& `1 t' c, P; p% M" Y8 d
        j = Len(b) - 7
8 H" K: M; ^8 b& @6 C
+ f1 a" W) s1 R, o( U* U    Else! \/ a& n& z: g  x  G5 n& A) T

0 d# v( y, _; x. H5 D  q( \7 u        j = Len(b)0 Y4 O* O- F8 M" ]2 m' x% {1 C
! g/ Z( R3 K) E
    End If, Z9 z* }  ]& o7 B. y7 G3 |0 m$ {
   
5 J: z2 ~) m. p$ u; p  If j <> -1 Then
+ q* [" a) R% g5 }  " z* y6 y% h0 v
    m = Left(b, j)
; z- r8 D% ^. Y2 F) Q5 x' T- l) c) m; A) s" b4 M4 A  h, @
   End If# ]' g  A( Y6 G# z
   
& x2 d/ X7 x0 ~% c+ D) t# Y7 ], ^) P, u1 R
End If
( o. a4 }) l, k! x5 p
8 Z( d$ K$ I2 Z+ O2 N1 Sblnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e)# b/ i0 P$ d8 {+ a+ @6 `7 P
0 ~- d: ?& @" R3 t3 D- {' s
blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)9 z8 n0 H: E/ w" t& J; ~, W6 n8 _

! a. h  k+ P" ?( b& s. mblnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, strmat)$ ~$ e8 i# g8 A. |" b# \

& _: y& n; s, H" v" f( cEnd Sub5 \% T" `; w1 |/ ^3 \( k
----------------------------------------------------------------------------------------------------------------
9 X! L4 N- b7 Q& q改了一下,亲测可用。有哪里不符合你的要求回帖再改咯。

点评

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

评分

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

查看全部评分

回复 支持 反对

使用道具 举报

12#
 楼主| 发表于 2021-3-8 17:31:45 | 只看该作者
魍者归来 发表于 2021-3-8 16:461 z* ]* @0 i, X, D' s! l2 N  P
悄咪咪的说,这个原版是我写的
8 J0 e9 Y% J( ], @" f1 |; v2 S
惊现大佬??! l; @' q' T4 k
回复 支持 反对

使用道具 举报

13#
 楼主| 发表于 2021-3-8 17:32:39 | 只看该作者
魍者归来 发表于 2021-3-8 16:52- g. g. \, ~6 Y+ m/ e- z0 R$ T
正解,如果不需要分离文件名,只需要改工程图的模板就可以了

: o: K& I9 r5 M! `0 h( r咋改?求教
回复 支持 反对

使用道具 举报

14#
 楼主| 发表于 2021-3-8 18:04:20 | 只看该作者
苏州装配工 发表于 2021-3-8 17:14
7 k, m( g5 w6 d" S3 zDim swApp As Object5 x5 L6 n' r7 b& J3 A5 P
% e% u( P! S0 b3 Y# Q. ^" B9 i
Dim Part As Object

/ n# w3 R. J7 w# Z还是不对

本帖子中包含更多资源

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

x
回复 支持 反对

使用道具 举报

15#
发表于 2021-3-8 18:51:30 | 只看该作者
半夏丨迷离 发表于 2021-3-8 18:04
. W1 j2 o4 q- p. u还是不对

( j! s+ B6 M0 `# C9 k- C最后那三项是宏生成的吗?自己图带的话,删除了,宏自己生成出来估计就对了,再不对就不知道了,你可以单步调试一下。我用着没事的。
" s) S5 w! C8 g/ A& R5 K; S
回复 支持 反对

使用道具 举报

16#
发表于 2021-3-8 19:20:16 | 只看该作者
zhufeng_hgp 发表于 2021-3-8 15:22
" N/ ?, D# N+ F1 X* d3 N我用的是凯元工具,图号分离挺好用的,还能读取材料,填入日期,作者等内容,就是非会员一次只能处理9个零 ...

: |; i: P" O  _+ S' N/ K  我是会员
8 [$ I9 Z* E  h. O- c- Y
回复 支持 反对

使用道具 举报

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:190 _& c$ Z& z: m4 J, a
自定义属性卡都没有 弄好 肯定识别不了啦,你要把自定义属性连接到工程图模板,然后画图也要用这个模板。B ...

# ^) @) H  n9 c+ v* N; O5 W, X谢了,我去查查
9 Y' j, d) Y6 ?
5 K7 v/ T+ v4 I* M: u9 K) Q
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

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

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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