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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

12345下一页
返回
发新贴
展开

通知     

全站
9天前
全站
goto3d 说: 版主微信号：caivin811031；还未入三维微信群的小伙伴，速度加
2022-07-04
楼主: lhl2008
收起左侧

[原创] 批量输出文件自定义属性及缩略图到Excel

[复制链接]
ryouss
发表于 2017-7-30 12:59:10 | 显示全部楼层
lhl2008 发表于 2017-7-30 11:25: E$ Z$ W7 @( U7 U8 ]7 _' X+ v! o8 M
梁大，你设置断点，调试一下，看那不对！我这没有低版本，无法判断！
& B* c3 }: S3 M3 n9 g; i' C
如圖) w4 \% A' w4 C4 F9 @) M  o9 k
5.png % t4 Z0 {# f( u% O& Z+ o2 x, f0 c5 u2 \

点评

sihouko
良大是怎麽把vba的注解轉換成繁體中文的？ 我這邊日文系統打開全都是無法閲讀的文字，很多表格名的引用全都變成不可讀，完全沒得測試。。。  详情 回复 发表于 2017-8-2 16:07
回复 支持 反对

举报

ryouss
发表于 2017-7-30 13:03:55 | 显示全部楼层
SW2016 发表于 2017-7-30 11:59
) D( l' p  A! u+ T8 N, W$ ^, n5 ~3 P% C多谢lhl2008大师回复。  v. \! U. V; T9 ^
经过测试，发现大师的宏提取的缩略图是文件保存时零件和装配体的位置，6 P' Q, A5 G0 C8 u
也就是 ...

* m4 W) T& Y- B' N; l請教SW2016大大是開組件,執行main宏就行嗎?+ N- M- t: d, `7 w1 M, d8 L
回复 支持 反对

举报

lhl2008
 楼主| 发表于 2017-7-30 13:30:21 | 显示全部楼层
ryouss 发表于 2017-7-30 13:03( d& A! l; t1 Z# \8 c
請教SW2016大大是開組件,執行main宏就行嗎?
! _9 v# l6 z1 e' c' |- Y
运行时，无需打开任何模型
回复 支持 反对

举报

SW2016
发表于 2017-7-30 13:35:43 | 显示全部楼层
ryouss 发表于 2017-7-30 13:036 w2 h/ n; V/ T& I
請教SW2016大大是開組件,執行main宏就行嗎?
; i9 {  w# H% B5 L/ b. n
回ryouss大师，不用打开任何装配体或零件，打开SW后直接点工具→宏→运行。! |  c$ |; u3 r8 v3 m) P

2 c! D8 C1 H0 u. g g.png 6 R! v$ Q, v, G* H
3 L- P7 l& ~- w4 k; p) ~3 F- S2 Z8 D- a
运行后会出现浏览文件夹的对话框，选择文件保存的文件夹就自动生成。
( C" c3 ?% E3 T5 U' Z
! _0 G; h0 Z; N h.png
2 j( O/ d1 v* o" F
回复 支持 反对

举报

ryouss
发表于 2017-7-30 13:40:36 | 显示全部楼层
本帖最后由 ryouss 于 2017-7-30 13:42 编辑
3 m/ O9 s, C3 B
SW2016 发表于 2017-7-30 13:357 w% q2 n& Y! A' b* d; o) ]- F
回ryouss大师，不用打开任何装配体或零件，打开SW后直接点工具→宏→运行。

# O$ d- V  B- B0 R! g! `謝謝回覆,還沒搞定!
3 Y4 ]. o" W* b也有可能是沒支援繁体版??6 G8 q$ m! @1 U4 H5 Y) A8 g
回复 支持 反对

举报

qxzch
发表于 2017-7-30 13:47:24 | 显示全部楼层
谢谢分享经验！
回复 支持 反对

举报

SW2016
发表于 2017-7-30 13:55:51 | 显示全部楼层
ryouss 发表于 2017-7-30 13:40# A$ z( ~5 E. C% f1 N- D* J# u$ `
謝謝回覆,還沒搞定!- I8 o5 S: e0 E9 l8 S
也有可能是沒支援繁体版??

9 P' Z& \& `% L7 r0 p8 R  e0 a1 Lryouss大师是否装了两个SW版本？
回复 支持 反对

举报

ryouss
发表于 2017-7-30 15:06:08 | 显示全部楼层
本帖最后由 ryouss 于 2017-7-30 15:10 编辑
  B  T# M- J# X; C- a
SW2016 发表于 2017-7-30 13:55- b- v. Z( K& \& S4 i
ryouss大师是否装了两个SW版本？

% [% q9 v7 e4 E3 p為了方便眾友,自用筆電三個 2012,2015,2017
9 X+ g* t; D+ `針對本主題會有影響嗎?2 D  R+ ]- j4 z. ]
回复 支持 反对

举报

SW2016
发表于 2017-7-30 15:26:32 | 显示全部楼层
本帖最后由 SW2016 于 2017-7-30 15:30 编辑 4 Y8 m% x% |2 i, M" t* T
ryouss 发表于 2017-7-30 15:06
0 b1 @* O& |* J" |為了方便眾友,自用筆電三個 2012,2015,20177 z' x8 u# v0 }, |
針對本主題會有影響嗎?
- E" N% c; r/ z6 _$ a& N* ^
肯定有影响，大师不妨用2017试试。1 r) X" c# Z6 Z5 j
只是不清楚2017支持哪个Excel版本，也不知lhl2008大师的宏对Excel版本是否有要求。0 `$ V) ~5 C  M; M& Y# d
回复 支持 反对

举报

ryouss
发表于 2017-7-30 16:10:44 | 显示全部楼层
SW2016 发表于 2017-7-30 15:26
, Z2 {! O+ t4 z; ~- @& k" ~! W肯定有影响，大师不妨用2017试试。
8 B: p% O" g$ y) |8 x/ y; v$ h只是不清楚2017支持哪个Excel版本，也不知lhl2008大师的宏对Excel版 ...

2 t  o7 T, l5 y, h; M9 y# p2017試了,一樣是空白Excel
回复 支持 反对

举报

287636713
发表于 2017-7-30 16:26:46 | 显示全部楼层
试过，运行宏后，无反应。6 V1 @, Q* L6 W1 M8 q# \1 }! h
用的是SW2015，Excel2010。是Excel版本的关系吗？# e' O2 T+ u( G7 p3 C

点评

大鹿
巧遇28大  详情 回复 发表于 2017-7-30 19:03
回复 支持 反对

举报

大鹿
发表于 2017-7-30 19:03:53 | 显示全部楼层
287636713 发表于 2017-7-30 16:26
0 O. Z' u4 t$ J6 s" V试过，运行宏后，无反应。9 o+ O1 l& C- s( R" E; P
用的是SW2015，Excel2010。是Excel版本的关系吗？

7 t/ ^0 C8 j' h巧遇28大
回复 支持 反对

举报

soso2006
发表于 2017-7-30 19:40:35 | 显示全部楼层
Sw2012　64bit　office 2007; P" @& v. S+ C+ x# @
运行宏后，选择文件夹，excel中只能显示一个零件的相关内容
+ }; X9 _0 f; M; x其实文件夹中有多个SW的模型文件，不知哪出了问题？
回复 支持 反对

举报

木_棉
发表于 2017-7-31 09:16:54 | 显示全部楼层
下载学习一下
回复 支持 反对

举报

wah999
发表于 2017-7-31 12:35:09 | 显示全部楼层
无法试用，宏崩溃 怎么都解决不了。
回复 支持 反对

举报

发生地方萨芬
发表于 2017-8-1 15:05:30 | 显示全部楼层
大神自定义属性可以增加么
回复 支持 反对

举报

发生地方萨芬
发表于 2017-8-1 15:07:30 | 显示全部楼层
另外读取的属性如果在EXCEL中修改可以返回去修改模型中的属性么
回复 支持 反对

举报

jirong.peng
发表于 2017-8-2 10:26:44 | 显示全部楼层
SW2015   EXCEL2013试过，无反应，优先级别全部统统设置一次，还是无反应，求解！! D7 {! }0 h# I) q4 n9 q
802.gif
回复 支持 反对

举报

jirong.peng
发表于 2017-8-2 15:37:12 | 显示全部楼层
lhl2008 发表于 2017-7-29 19:11
! K8 Z$ o1 e7 Z$ F如果没有反应，注意在VBA编辑器中将引用修改成你当前计算机所安装的相关控件
- e5 |3 P3 [: d- a  q1 }
大大，弄了N久，没成功，提示：用户定义类型未定义（Dim PrevBmp As stdole.StdPicture），见下图，求解！ 802.gif * V7 j! U) D; |, z1 G& M
回复 支持 反对

举报

sihouko
发表于 2017-8-2 16:07:39 | 显示全部楼层
ryouss 发表于 2017-7-30 12:59' h6 x0 k* i, E
如圖

$ _; H$ m# \( m4 d! l" r2 _良大是怎麽把vba的注解轉換成繁體中文的？
0 V1 k9 a" f8 m( X) D我這邊日文系統打開全都是無法閲讀的文字，很多表格名的引用全都變成不可讀，完全沒得測試。。。
回复 支持 反对

举报

litao036
发表于 2017-8-2 16:22:03 | 显示全部楼层
建议遍历装配体，再获取属性，因为在设计中，文件夹内有许多设计中放弃的垃圾零配件不好清理。  这个哪位高手改编一下  哈哈那就完美了
回复 支持 反对

举报

ryouss
发表于 2017-8-2 16:35:33 | 显示全部楼层
sihouko 发表于 2017-8-2 16:07* s' t! \9 D. ~2 q
良大是怎麽把vba的注解轉換成繁體中文的？
) x+ e' P: f8 a, e我這邊日文系統打開全都是無法閲讀的文字，很多表格名的引用 ...
2 [% E, w  i# p8 t3 Y9 S4 A) ?
是用這軟件 ConvertZ.exe 簡繁複製切換就是.

点评

sihouko
感謝。，，， 切換ok，貼囘去還是亂成一團。。vba編輯器依舊這麽神奇。。 不逐條修正成英文是沒辦法繼續下去了。。。  详情 回复 发表于 2017-8-2 17:28
回复 支持 反对

举报

lingdone
发表于 2017-8-2 16:47:36 | 显示全部楼层
只能羨慕了，流量不夠，
回复 支持 反对

举报

sihouko
发表于 2017-8-2 17:28:26 | 显示全部楼层
ryouss 发表于 2017-8-2 16:35! d0 W' m; K$ U4 A! o, J0 g7 E
是用這軟件 ConvertZ.exe 簡繁複製切換就是.
3 }7 \9 Y" C, Q: p
感謝。，，，% W7 h+ D6 ^+ J: G: s0 r5 c5 U
切換ok，貼囘去還是亂成一團。。vba編輯器依舊這麽神奇。。7 H; P+ J: K$ B9 R  I1 W: I* d
不逐條修正成英文是沒辦法繼續下去了。。。
回复 支持 反对

举报

wxg263
发表于 2017-8-2 21:01:04 | 显示全部楼层
流量不足 如何兑换呀？
回复 支持 反对

举报

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

本版积分规则

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

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

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