设为首页 |收藏本站 |帮助 |加入VIP |积分充值

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

12下一页
返回
发新贴
展开

通知     

全站
goto3d 说: 版主微信号：caivin811031；还未入三维微信群的小伙伴，速度加
2022-07-04
全站
goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！
2022-03-11
查看: 9114|回复: 41
收起左侧

[已解决] 装配体的名称图号分离宏修改

[复制链接]
秋韵舞-江枫
发表于 2017-8-10 11:57:47 | 显示全部楼层 |阅读模式
安装
主题分类用于问题归类:

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要 登录 才可以下载或查看，没有帐号？注册

x
本帖最后由 秋韵舞江机 于 2017-8-16 11:21 编辑
: u& `- k5 n2 e# w% Y1 g7 D* N# N' y: M# @
各位大大，我手上有一个名称图号分离宏，对零件来说，非常好用，装配体也可以，就是装配体下的子装配和零件还得一个一个手动去运行，能不能改成遍历所选的装配体，连同装配体、子装配、零件一起修改，因本人不懂宏，我想请论坛里的高手大大们帮我修改一下，能在装配体的模式下用，现在只能在零件的模式下用，请高人出手，谢谢！！！文件名称图号命名规则：图号+空格+名称5 G# y8 P1 [) }4 v/ \
下面是宏文件：6 h$ o/ @3 W: w( H' H! X

, L" w6 s$ G& Z7 V8 P! E, N: |6 @9 i. [: o4 w- _

( F. J4 \* q/ @7 J/ Y, G* l" C 名称图号分离.rar (8.42 KB, 下载次数: 156)
回复

举报

ryouss
发表于 2017-8-10 15:46:12 | 显示全部楼层
有個簡單的宏,在裝配体執行效果如图是否適用?( `6 u5 d2 E; B4 S, g4 f
: \; _* k0 p  Y$ Q& a
  _1 t/ Q4 ]8 u1 v/ Y/ m
1.png
回复 支持 反对

举报

NC@jiang@nan
发表于 2017-8-10 20:28:33 | 显示全部楼层
我在SW2016下测试你的这个宏在装配体下能正常使用
回复 支持 反对

举报

秋韵舞-江枫
 楼主| 发表于 2017-8-10 23:10:44 | 显示全部楼层
本帖最后由 秋韵舞江机 于 2017-8-10 23:14 编辑
5 l+ I) x! |. D+ N
ryouss 发表于 2017-8-10 15:461 P0 W+ H- v. x2 t' {' g  C: ?: O
有個簡單的宏,在裝配体執行效果如图是否適用?
4 {2 a' |$ R/ a( r, W
谢谢梁大回复，这个宏对名称和图号长度在限制吗？另请教一下这个宏能在装配体的状态下连装配体及装配体下子装配和零件一起修改吗。: p" `+ v1 [+ U4 e  c4 ~& `1 ]
回复 支持 反对

举报

秋韵舞-江枫
 楼主| 发表于 2017-8-10 23:12:39 | 显示全部楼层
NC@jiang@nan 发表于 2017-8-10 20:28, u2 H! T( s/ z' K" _- y
我在SW2016下测试你的这个宏在装配体下能正常使用
. Y" R/ {' E0 t9 T
N大可能误会我的意思了，可以修改装配体的名称图号，我的意思是在装配体的模式下，运行此宏，连装配体本身及子装配和零件一起修改！
回复 支持 反对

举报

o1ojacko1o
发表于 2017-8-11 10:46:45 | 显示全部楼层
楼主的 想法是 把 图号分离宏 嵌套进 遍历宏中去' R& w1 q: t; S8 L1 J4 t8 h3 l5 I
执行遍历宏之后   会遍历装配体中的每一个 子装配  每一个零件
1 A% L& y' [- x4 M* B4 y5 l这个可能要你自己 研究研究 VBA相关的东西了
回复 支持 反对

举报

287636713
发表于 2017-8-11 14:48:23 | 显示全部楼层
本帖最后由 287636713 于 2017-8-11 14:53 编辑
1 j5 }' ~. S4 i; |  t4 h. F1 ], F& m: T4 `& G3 c
俺只会笨方法，仅供参考。
4 r* {7 s- m& k5 V$ c1.利用网络上大大分享的批量修改属性工具，打开所有需要修改的零件及组件档案；  f6 A. M" w& l2 W+ g
2.利用Excel数据》分列工具，将档案名称进行分列处理；
3 e, C& d! ]9 a6 K6 ^9 C1 e% h+ v: C% O9 q" p# m
00.PNG 01.PNG 02.PNG 3 _; p" x( {# ]  O' v* \
3.批量写入需要导入的属性（如图号&名称）
! G1 ?  E1 O% b% E! ] 03.PNG
, E4 t# B* K* }$ I, h+ K, F) q0 }# N7 Z( r- J+ o- _+ h
ps; 免责申明：非原创，俺从别处学回来的。" K$ n0 T7 }$ ~. x. F: l. f

: ?  ^, ]1 b/ k  N% O8 @. ^+ f) H# L8 ?+ B0 X6 }: C

4 d9 e: s  B- z0 X7 G

点评

大鹿
感谢28同学献出自己的龟宿  详情 回复 发表于 2017-8-11 14:53
回复 支持 反对

举报

大鹿
发表于 2017-8-11 14:53:23 | 显示全部楼层
287636713 发表于 2017-8-11 14:48# J9 Y! w8 a" u6 X1 Q3 X
俺只会笨方法，仅供参考。
$ Y, l( h, V3 S# }; }1.利用网络上大大分享的批量修改属性工具，打开所有需要修改的零件及组件档案； ...

/ \1 ~& T+ T1 e/ E感谢28同学献出自己的龟宿
回复 支持 0 反对 1

举报

ryouss
发表于 2017-8-11 16:17:05 | 显示全部楼层
本帖最后由 ryouss 于 2017-8-11 21:43 编辑 6 p7 y. |( I+ A; L
1 J9 a( u$ t' o3 o6 N( }6 H; o
參考眾大師的結晶,稍加整理一下,因沒經大批量及大容量的組件測試過,
: W7 z8 t- l2 J) u& q+ W所以建議僅在小批量及小容量的組件試試看了!4 L6 m# y; ]4 a) ~& \4 i+ s  Q8 V
) G/ z+ D8 ^6 ]4 T: V1 {9 i& p1 a8 U2 a9 p
執行效果如附图." s, D2 N. w0 F6 u: r3 C

7 q- u! Q' b3 k; ^) q 1.png
1 X+ U5 }' N$ B5 T$ O
  K+ H) h: y& D3 A5 x$ g7 \  | 2.png * y/ ~6 t1 l, d) [. o

. k! p% \: ~( k( X. v1 C) w+ f* v 3.png
  1. ' ******************************************************************************" s6 M8 r, C9 M% k
  2. '  macro recorded on 08/11/17 by lsc
    3 d$ _- Z4 ~3 m- @/ O& U+ g7 O# F
  3. '
    - E" P1 M* |( G
  4. '  組合件及零件自訂屬性名稱.7 d% f9 |3 s) f' q4 L, e/ S5 k$ \# W
  5. '+ M2 Z3 V3 @) T
  6. '  本例之編號名稱是以 "_" 之符號分隔.
    - e, ?$ \, b' g) c' V; ?% L( D
  7. '
    5 k3 l5 I+ P8 A3 V( n
  8. ' 1. 把組件及零件置放在 "同文件路徑" 下
    : H' g, b: [7 N. c: e2 E
  9. '
    9 A! D0 X* v# e2 X, ?
  10. ' 2. 開組件,執行 main 宏
    2 t# q1 u+ n) M& w7 b$ Y7 ]( v
  11. '
    & C3 C/ {; B. X6 Y
  12. ' ******************************************************************************/ M# ?6 z! s2 K3 |+ a; k8 y
  13. Dim TopDocPathOnly As String7 C. w2 l* H0 U/ q$ ?
  14. Dim swModel As SldWorks.ModelDoc2
    ' y$ F9 u2 i; n/ J3 t
  15. Dim swApp As SldWorks.SldWorks1 V+ r0 M4 D  B+ F( E; m
  16. Dim longstatus As Long, longwarnings As Long( u4 `1 @' M8 W) q8 j$ o) G! |

  17. 7 _- _; x5 m. X; u4 R" e
  18. Sub main(): h8 S* G0 z7 @: a
  19. Set swApp = Application.SldWorks
    6 @$ s5 n; y$ _  b
  20. Set TopDoc = swApp.ActiveDoc '總裝對象) o. g- Y8 o1 i3 r$ s3 O9 w
  21. If TopDoc.GetType <> 2 Then
    : K3 A  i: t$ y! o
  22.     MsgBox ("Open Assembly")2 \( w, T; Y( e3 [
  23.     Exit Sub '不是裝配=退出
    , C- l' }; U4 l4 W( i
  24. End If  m/ F7 D( j  Z& f
  25. TopDocPathSplit = Split(TopDoc.GetPathName, "") '分割
    8 d. `; G$ l; @; B1 K3 J4 r
  26. TopDocName = TopDocPathSplit(UBound(TopDocPathSplit)) '總裝文件名稱
    # v5 ?! V# s# p* J+ ~. R8 x
  27. Path_ = TopDoc.GetPathName
    % u" u% a% W) D: }# |7 |2 A& N
  28. TopDocName = Left(TopDocName, Len(TopDocName) - 7) '總裝文件名稱（排除.SLDASM）
    ; b& J6 [/ V( L; l; \9 A5 i
  29. TopDocPathOnly = TopDocPathSplit(UBound(TopDocPathSplit) - 1) '總裝目錄名稱
    1 e# h' J  u/ g, k$ d% @" u
  30. TopConfString = TopDoc.GetActiveConfiguration.Name '總裝配置名稱
    4 r* m4 w; o* t; W& l: W& C
  31. SubAsm TopDoc, TopConfString '遍歷
    2 i3 `0 f+ }+ U3 t0 T

  32. 1 s! m. S$ u2 A. L. v
  33. End Sub
    8 ]3 Q9 k# c- P" u$ E+ M% U
  34. : @# X% m% H* E" j4 @
  35. Function SubAsm(AsmDoc, ConfString): X0 Q5 r. H$ r6 J$ O
  36. Dim name_ay() As String
    , n$ ~0 J! h: T; Q8 I2 P
  37. Set swModel = swApp.ActiveDoc. \0 U, [) a8 x/ p. U
  38. Set Configuration = AsmDoc.GetConfigurationByName(ConfString)
    4 n+ w3 }, O& X: u$ m
  39. Set RootComponent = Configuration.GetRootComponent
    9 Z$ L: K: \9 R0 L+ p5 n
  40. Components = RootComponent.GetChildren
    % u: V( Y! }" }, y6 m% r
  41. For Each Child In Components '總裝抓全部零件名稱. B1 @1 A8 O3 @# d, _) d4 E7 K
  42.     i = i + 1
    # S" L0 N2 }# Q- N
  43.     ReDim Preserve name_ay(i)
    1 t, o, e2 x/ l0 @0 U  S
  44.     Set ChildModel = Child.GetModelDoc
    * C- G- q# V! q/ d* ^
  45.     ChildPathSplit = Split(Child.GetPathName, "") '分割
    6 M+ S' b) _' \1 t7 m
  46.     ChildName = ChildPathSplit(UBound(ChildPathSplit)) '零件文件名稱
    / h7 x' w, w0 ~% C8 U' v  w
  47.     name_ay(i) = Left(ChildName, Len(ChildName) - 7) '編號_名稱
    * d/ v# |1 a+ |4 G0 d( \
  48.     swModel.DeleteCustomInfo2 "", name_ay(i)
    - g9 u& C$ `! i# \2 s, {+ ]
  49.     swModel.AddCustomInfo2 name_ay(i), swCustomInfoText, """SW-Material@" & name_ay(i) & ".SLDPRT"""9 q& x9 j" U* h, W( s
  50. Next: y+ P! N* `* t/ l
  51. % \0 H  C! b. U8 o5 J
  52. '~~~~~~~ parts_property ~~~~~~~( T3 k3 e- l7 Z+ C- c8 _6 |6 d6 i3 T
  53. Dim longstatus As Long, longwarnings As Long* D* q$ P3 Q0 ]/ G" O
  54. Dim retval As String0 m5 l9 K- h; G& J' {; R. m
  55. Set Part = swApp.ActiveDoc; Z1 o6 }3 f# g. T' a; p
  56. path_name = Part.GetPathName8 L6 v9 t" W! n
  57. TopDocPathSplit = Split(path_name, "") '分割, `; h# ~% X9 c: M
  58. TopDocName = TopDocPathSplit(UBound(TopDocPathSplit))2 I: b, h  `8 S! F7 `$ N; U
  59. Path_ = Left(path_name, Len(path_name) - Len(TopDocName)). R9 {4 g2 P5 G6 Z3 T' ]( W& _9 I
  60. For n = 1 To i
    * f# ?, f3 S3 ]' P" N
  61.     Set Part = swApp.OpenDoc6(Path_ & name_ay(n) & ".SLDPRT", 1, 0, "", longstatus, longwarnings): Y3 c# x  t  V3 r' ^$ h
  62.     swApp.ActivateDoc2 name_ay(n) & ".SLDPRT", False, longstatus
    ; M  p) q# X2 z- n" i/ t
  63.     Set swModel = swApp.ActiveDoc
    3 r5 ?& Q" J* M) Q
  64.     '~~~ 注意 L1 設定 ~~~
    - [( j* Z8 i! u8 K3 e7 k
  65.     L1 = InStrRev(name_ay(n), "_", , 0) '編號_名稱是以 "_" 之符號分隔,可依需要更改所需之符號
    3 b6 s' }8 U5 A& t5 C5 ]" }+ C
  66.     '~~~; U/ t: O: k5 h# _
  67.     code_part = Left(name_ay(n), L1 - 1) ' 編號0 P& |3 ~# X: N* q' a
  68.     name_part = Right(name_ay(n), Len(name_ay(n)) - L1) '名稱4 ?2 M5 Z7 N4 Q6 l8 [& B$ Y
  69.     retval = swModel.DeleteCustomInfo("材質")
    9 H7 x$ c# n  a: P" |) [9 s5 K
  70.     retval = swModel.AddCustomInfo3("", "材質", swCustomInfoText, """SW-Material@" & name_ay(n) & ".SLDPRT""")5 L4 ~. @0 p2 }& r9 ?6 d
  71.     retval = swModel.DeleteCustomInfo("名稱")0 W) O9 J7 y; Q8 t) K, S
  72.     retval = swModel.AddCustomInfo3("", "名稱", swCustomInfoText, name_part)
    3 L" Q( N  k; {2 M- [% }  o. r. b
  73.     retval = swModel.DeleteCustomInfo("編號"). ~2 M; e. `) [' F
  74.     retval = swModel.AddCustomInfo3("", "編號", swCustomInfoText, code_part)) z7 U+ k% ^8 A* F4 C8 m: c; m0 n
  75.     swModel.Save
    5 R9 N' P* d; A+ K$ w6 J4 U6 t8 Q
  76.     swApp.CloseDoc name_ay(n) & ".SLDPRT"
      F" J% r' b4 g0 v# u" R
  77. Next$ A( H0 W; i- ?' ^: }4 K3 _
  78. End Function5 }( P4 H3 G2 d$ z
复制代码
, a5 I* ~7 _+ O! Z6 U/ G

: c# |1 V" L0 ^, d3 g5 W$ \( _" I
* r& i' X8 U& I% [5 @, `; @ Macro1.rar (7.28 KB, 下载次数: 59)
回复 支持 反对

举报

NC@jiang@nan
发表于 2017-8-11 20:05:52 | 显示全部楼层
三维网技术论坛复制代码真是麻烦。复制下来一大堆的乱码。就算用下面的“复制代码”功能复制下来的照样是一堆的乱码。
回复 支持 1 反对 0

举报

ryouss
发表于 2017-8-11 20:30:56 | 显示全部楼层
NC@jiang@nan 发表于 2017-8-11 20:058 V, C4 o/ Y8 _5 q  y
三维网技术论坛复制代码真是麻烦。复制下来一大堆的乱码。就算用下面的“复制代码”功能复制下来的照样是一 ...
0 J( v, g3 g8 X5 N9 A3 e. h) ?
是喔!即時補上swp

点评

NC@jiang@nan
谢谢梁大。 正在复制您的代码在对照修改，刷新发现您上传了SWP原文件，谢谢了。 三维网复制代码这个功能真的需要完善完善了，好麻烦。  详情 回复 发表于 2017-8-11 20:52
回复 支持 反对

举报

NC@jiang@nan
发表于 2017-8-11 20:52:56 | 显示全部楼层
ryouss 发表于 2017-8-11 20:30
1 J: K5 o. x6 [6 i是喔!即時補上swp
! R8 M8 p+ g* Y! i: d: d+ z
谢谢梁大。
) X4 {) E) M! b- q正在复制您的代码在对照修改，刷新发现您上传了SWP原文件，谢谢了。% v/ s* ]' M% T
三维网复制代码这个功能真的需要完善完善了，好麻烦。
回复 支持 反对

举报

ryouss
发表于 2017-8-11 21:03:40 | 显示全部楼层
NC@jiang@nan 发表于 2017-8-11 20:52
6 S2 Q5 ~6 u/ k3 R; h2 z9 ?谢谢梁大。% \% A. s3 B  B( O9 b( B
正在复制您的代码在对照修改，刷新发现您上传了SWP原文件，谢谢了。7 P( {- A0 b6 S) k" E4 W
三维网复制代码这个功 ...

5 \( _+ t$ `0 U0 g) a順便幫忙試試word轉譯的簡版是否可用!謝謝

点评

NC@jiang@nan
梁大，经测试，复制您的SWP中的内容至word后用简繁转换功能转换后没用。打开您的SWP后查看代码的文字部分是乱码，复制到word转换后还是乱码。  详情 回复 发表于 2017-8-11 21:17
回复 支持 反对

举报

NC@jiang@nan
发表于 2017-8-11 21:17:17 | 显示全部楼层
ryouss 发表于 2017-8-11 21:03: M4 i4 I; \' {- V
順便幫忙試試word轉譯的簡版是否可用!謝謝

# C/ m% Q7 F$ D* `  ^) w' J梁大，经测试，复制您的SWP中的内容至word后用简繁转换功能转换后没用。打开您的SWP后查看代码的文字部分是乱码，复制到word转换后还是乱码。
回复 支持 反对

举报

ryouss
发表于 2017-8-11 21:38:43 | 显示全部楼层
NC@jiang@nan 发表于 2017-8-11 21:17: w, x, O8 Q( z+ _1 Y1 T3 z7 e
梁大，经测试，复制您的SWP中的内容至word后用简繁转换功能转换后没用。打开您的SWP后查看代码的文字部分 ...

9 V& \, `, J9 I6 _. S& p2 `3 W4 r6 ], ~謝謝測試!那只能用繁版自行重打字了
' `1 p  F: @4 S2 o/ a
+ {6 d" ?1 m+ a9 `% r- {會再重傳swp.

点评

NC@jiang@nan
梁大，我删除了所有标准件后测试，总装层下的的所有零件的图号和名称分离成功。 稍遗憾的是不能分离子装配体和子装配体下的零件的图号、名称。 Function SubAsm(AsmDoc, ConfString) 这些Function子程序代码  详情 回复 发表于 2017-8-11 22:18
NC@jiang@nan
梁大，您又重传了SWP吗？ 我看上传时间是刚上传，下载下来打开还是乱码。 因为我之前的文件，零部件是 代号_名称 的形式存档的，但标准件不是以这种格式存档的，所以我打开装配体后测试时报错了，不知道是因为文件  详情 回复 发表于 2017-8-11 22:01
回复 支持 反对

举报

NC@jiang@nan
发表于 2017-8-11 22:01:06 | 显示全部楼层
ryouss 发表于 2017-8-11 21:38
! p/ O% f7 l, j9 ]# P# [8 j5 X謝謝測試!那只能用繁版自行重打字了
6 v1 V! i. z  y) m! Y
* J& [- N5 M- ]2 g# D% e會再重傳swp.
( `1 @2 w% V$ f2 p7 Q
梁大，您又重传了SWP吗？
5 C8 y# Q6 ?1 Z5 G我看上传时间是刚上传，下载下来打开还是乱码。
& E* C) R7 c0 R. O) \$ r$ e/ O4 u+ A因为我之前的文件，零部件是 代号_名称 的形式存档的，但标准件不是以这种格式存档的，所以我打开装配体后测试时报错了，不知道是因为文件存档名称的格式的问题还是什么问题。但是在读取标准件前已经遍历过了的打开过了的零件已经分离图号和名称成功了。我需要删除所有标准件后再测试下。
回复 支持 反对

举报

NC@jiang@nan
发表于 2017-8-11 22:18:52 | 显示全部楼层
ryouss 发表于 2017-8-11 21:38
8 v6 q# F. S" L0 h謝謝測試!那只能用繁版自行重打字了
9 V1 R* @  d) A2 R" Z4 }
2 l2 C* p, L3 U% D會再重傳swp.

& p4 K% B) A" o7 h2 `7 y' K梁大，我删除了所有标准件后测试，总装层下的的所有零件的图号和名称分离成功。) t. A  u0 A1 {/ \) w0 y3 N+ ?$ C
稍遗憾的是不能分离子装配体和子装配体下的零件的图号、名称。
) \. W9 ~1 i. t) m# j6 ?6 g! F: Q, Z! i, B' O7 G1 e1 @
Function SubAsm(AsmDoc, ConfString)
8 C" t) f) \7 ]$ M+ O/ S/ ~' J1 {9 G3 y7 X+ T' I' X
这些Function子程序代码我搞不清楚用法，想修改一下也没法下手。我还是需要多学习代码的知识了。
回复 支持 反对

举报

ryouss
发表于 2017-8-11 22:29:20 | 显示全部楼层
本帖最后由 ryouss 于 2017-8-11 22:32 编辑 4 r/ Z* {' N- M
NC@jiang@nan 发表于 2017-8-11 22:18
0 V' P# h2 F+ O9 |1 T0 a4 A* Z5 w梁大，我删除了所有标准件后测试，总装层下的的所有零件的图号和名称分离成功。% `8 O# h% W2 \/ ~5 N
稍遗憾的是不能分离子装 ...

4 g4 d' k/ [2 A* i0 s謝謝測試.
9 A$ X  V/ C% q7 t有關子装配体和子装配体下的零件的图号名称,尚再找資料學習中.! V" ~, D9 U9 F. X
8 j- _3 t. n7 y8 L+ S) ~
N大手中若是有資料尚請提供分享.
& E) m& F( [7 j* ~' `% n

点评

NC@jiang@nan
梁大，我想起来了，之前好像闷大有分享过一个遍历装配体中零件数量把数量写入自定义属性的宏，从逻辑上分析的话，你的宏代码功能是否和闷大的差不多？是否可以两个宏结合下？ 现在要我去新建一个宏文件基本上是不大  详情 回复 发表于 2017-8-11 22:54
NC@jiang@nan
梁大，我手是什么VBA的资料都没有，手上就只有一本VB的书，买了两年了，放在床头被狗啃坏了都没看。读书时还是DOS系统，这些编程语言都没学过，语法都搞不大清楚，现在只能寄希望于能从您和各位高人分享的精品宏文件  详情 回复 发表于 2017-8-11 22:50
回复 支持 反对

举报

NC@jiang@nan
发表于 2017-8-11 22:50:42 | 显示全部楼层
ryouss 发表于 2017-8-11 22:29
; f* Y! w+ x3 r, j謝謝測試.
7 f# ?* P% P! ^  t! x# E7 Q有關子装配体和子装配体下的零件的图号名称,尚再找資料學習中.
1 \6 Y9 d2 o' V; B
梁大，我手是什么VBA的资料都没有，手上就只有一本VB的书，买了两年了，放在床头被狗啃坏了都没看。读书时还是DOS系统，这些编程语言都没学过，语法都搞不大清楚，现在只能寄希望于能从您和各位高人分享的精品宏文件中多学习以提高一点水平了。有问题时还请各位老大位多多指点了。
回复 支持 反对

举报

NC@jiang@nan
发表于 2017-8-11 22:54:43 | 显示全部楼层
ryouss 发表于 2017-8-11 22:29
: o" s2 T2 S* G3 e謝謝測試.
7 f! g6 r3 }- v  P5 v$ a有關子装配体和子装配体下的零件的图号名称,尚再找資料學習中.

4 z3 ^# `0 l4 B# s8 H- A" w. q梁大，我想起来了，之前好像闷大有分享过一个遍历装配体中零件数量把数量写入自定义属性的宏，从逻辑上分析的话，你的宏代码功能是否和闷大的差不多？是否可以两个宏结合下？
) P* \# e, K4 @( H现在要我去新建一个宏文件基本上是不大现实的了，所以首先只能想想有没有类似功能的宏可以稍做修改来用。惭愧。
回复 支持 反对

举报

ryouss
发表于 2017-8-11 23:20:20 | 显示全部楼层
NC@jiang@nan 发表于 2017-8-11 22:54+ p' W% R, p+ o
梁大，我想起来了，之前好像闷大有分享过一个遍历装配体中零件数量把数量写入自定义属性的宏，从逻辑上分 ...
8 f) U: z* i7 Z1 _
謝謝提供信息,查找了解了!

点评

NC@jiang@nan
闷大的宏的代码我这里有。我发TXT文件出来梁大你看看。  详情 回复 发表于 2017-8-12 00:23
回复 支持 反对

举报

NC@jiang@nan
发表于 2017-8-12 00:23:38 | 显示全部楼层
ryouss 发表于 2017-8-11 23:20
1 _8 t0 |+ H* a9 w謝謝提供信息,查找了解了!
* h2 Z+ M3 s# u$ u: N
闷大的宏的代码我这里有。我发TXT文件出来梁大你看看。

[遍歷宏]在總裝配內零件的自定義屬性寫入配套數量 代码.txt

4.3 KB, 下载次数: 44
回复 支持 反对

举报

秋韵舞-江枫
 楼主| 发表于 2017-8-12 00:58:36 | 显示全部楼层
本帖最后由 秋韵舞江机 于 2017-8-12 01:04 编辑 4 i0 H# ~& M# e  E

. ?- {5 |: E# C) m5 C感谢鹿大大及28大大！感谢各位的回复，感谢梁大大的回复及上传文件！您的宏我还没下载，但是有个问题，我现在的名称图号中间以空格区分，如果改成“-”号工作量非常大，不知能不能在我发的这个宏的基础上修改成可以遍历批处理的宏。
回复 支持 反对

举报

ryouss
发表于 2017-8-12 08:32:40 | 显示全部楼层
本帖最后由 ryouss 于 2017-8-12 08:34 编辑 / f9 h0 \0 T  F# b* U$ y! H
秋韵舞江机 发表于 2017-8-12 00:58
: p: B! _5 v7 I9 s感谢鹿大大及28大大！感谢各位的回复，感谢梁大大的回复及上传文件！您的宏我还没下载，但是有个问题，我现 ...
3 h8 k* `& `8 {
L1 = InStrRev(name_ay(n), "_", , 0) '編號_名稱是以 "_" 之符號分隔,可依需要更改所需之符號
) f4 R3 W: p6 P8 G% P' H8 Y) z$ q8 t$ p, \. d; G& _% d
1. 看上面,把黑色的  "_"  改成  "空格"  就是) s  a" ]6 Q7 o7 }6 @
2. 繁字自行改為簡字,綠色字可以不改.
5 s' v7 g5 `+ g$ H# x" [5 u  m0 ?5 n* Q
回复 支持 反对

举报

秋韵舞-江枫
 楼主| 发表于 2017-8-12 10:10:09 | 显示全部楼层
ryouss 发表于 2017-8-12 08:32% X& @- F# [+ g6 b/ v
L1 = InStrRev(name_ay(n), "_", , 0) '編號_名稱是以 "_" 之符號分隔,可依需要更改所需之符號
( b& {- T5 u0 e; B. L& w+ n- _! C  i
1. 看 ...

- o+ q3 @  [, `1 _谢谢梁大细心指导！！
回复 支持 反对

举报

下一页 »
发表回复
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备13008828号-1 )

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