QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

[复制链接]
发表于 2017-7-30 12:59:10 | 显示全部楼层
lhl2008 发表于 2017-7-30 11:25
1 R2 o) E: _; ^  f  R梁大,你设置断点,调试一下,看那不对!我这没有低版本,无法判断!
- L% m5 j! o9 H0 t; J3 Z
如圖, e. \5 r4 R7 `" n' z6 d. c0 x$ G
5.png
% o! n5 O; G5 U8 }. f: F1 ]

点评

良大是怎麽把vba的注解轉換成繁體中文的? 我這邊日文系統打開全都是無法閲讀的文字,很多表格名的引用全都變成不可讀,完全沒得測試。。。  详情 回复 发表于 2017-8-2 16:07
发表于 2017-7-30 13:03:55 | 显示全部楼层
SW2016 发表于 2017-7-30 11:59
  S; a: j4 K9 v5 J: z/ ^多谢lhl2008大师回复。
/ O2 A2 y8 }" v4 a* c% q7 g; Q( o经过测试,发现大师的宏提取的缩略图是文件保存时零件和装配体的位置,$ n6 z7 w0 y8 \- Z. D" A1 H9 K
也就是 ...
% T/ [$ Y6 c2 n' ?7 f2 _; [8 w
請教SW2016大大是開組件,執行main宏就行嗎?
* w( j# J/ q8 \
 楼主| 发表于 2017-7-30 13:30:21 | 显示全部楼层
ryouss 发表于 2017-7-30 13:035 a" ~/ q3 }9 x( `; ]0 O
請教SW2016大大是開組件,執行main宏就行嗎?

# [1 S* \8 ^- l( c7 i运行时,无需打开任何模型
发表于 2017-7-30 13:35:43 | 显示全部楼层
ryouss 发表于 2017-7-30 13:03
/ ~: N; u, C1 m) e9 N  v. H請教SW2016大大是開組件,執行main宏就行嗎?

: H# a( [9 f/ u  }/ Y0 l; p1 D回ryouss大师,不用打开任何装配体或零件,打开SW后直接点工具→宏→运行。
! @# t" o% I9 P5 o" b
, G$ R) U1 W. X% ^" K g.png $ T# C4 k3 g5 u; T' _: S
+ L( t) s* r. ?. @% n7 n0 W
运行后会出现浏览文件夹的对话框,选择文件保存的文件夹就自动生成。
$ w- t( W5 w! Z% b, O2 E5 [3 v* o: C1 i4 Y& R1 j* i: q5 A- @5 M; X
h.png # N. ]  z$ i8 @  e
发表于 2017-7-30 13:40:36 | 显示全部楼层
本帖最后由 ryouss 于 2017-7-30 13:42 编辑
. @( S  C! e, j" L
SW2016 发表于 2017-7-30 13:35
$ y' g( X, j6 R  W0 x$ ~回ryouss大师,不用打开任何装配体或零件,打开SW后直接点工具→宏→运行。
7 W5 c$ }% E) ~0 U
謝謝回覆,還沒搞定!
9 d. K9 R3 j& R: a. |& `' k也有可能是沒支援繁体版??6 J) r) M! O! {+ G8 u+ @; m
发表于 2017-7-30 13:47:24 | 显示全部楼层
谢谢分享经验!
发表于 2017-7-30 13:55:51 | 显示全部楼层
ryouss 发表于 2017-7-30 13:40' g' N- W& [3 S6 i5 u2 [" n  `
謝謝回覆,還沒搞定!; x- ^4 B% a) z. E/ W. ?+ l, r# i
也有可能是沒支援繁体版??
8 r+ j1 `/ Z3 M# q) g
ryouss大师是否装了两个SW版本?
发表于 2017-7-30 15:06:08 | 显示全部楼层
本帖最后由 ryouss 于 2017-7-30 15:10 编辑 6 z% b2 X: e; u" q. T9 Z+ G
SW2016 发表于 2017-7-30 13:550 v4 P. n# O1 R$ z
ryouss大师是否装了两个SW版本?
; {0 I- c  [8 }
為了方便眾友,自用筆電三個 2012,2015,2017
& d( K# y# }. C1 q( R針對本主題會有影響嗎?
% I  |# C% B4 I7 P" e5 `
发表于 2017-7-30 15:26:32 | 显示全部楼层
本帖最后由 SW2016 于 2017-7-30 15:30 编辑
, h, n! c1 _5 p  g
ryouss 发表于 2017-7-30 15:06
; {6 ^* L* x0 p/ Z: B: V- K& p/ n0 c為了方便眾友,自用筆電三個 2012,2015,2017% ^, S* v( N/ A: R$ E
針對本主題會有影響嗎?
4 U* W" l, {& s* U" j
肯定有影响,大师不妨用2017试试。+ F, M" ]1 S3 F3 f! i0 L
只是不清楚2017支持哪个Excel版本,也不知lhl2008大师的宏对Excel版本是否有要求。
4 N, h* o  i! N0 a( p$ h" q% f
发表于 2017-7-30 16:10:44 | 显示全部楼层
SW2016 发表于 2017-7-30 15:26
, G# O8 w& L& B肯定有影响,大师不妨用2017试试。8 g2 P2 ^! m. f- F. v/ p$ o* [7 C$ S
只是不清楚2017支持哪个Excel版本,也不知lhl2008大师的宏对Excel版 ...

4 ^3 y4 z4 Y1 ^; p% @* [1 @( }2017試了,一樣是空白Excel
发表于 2017-7-30 16:26:46 | 显示全部楼层
试过,运行宏后,无反应。
5 X7 V/ w8 U, q用的是SW2015,Excel2010。是Excel版本的关系吗?2 A: a- O& _' v: p  x" e/ o

点评

巧遇28大  详情 回复 发表于 2017-7-30 19:03
发表于 2017-7-30 19:03:53 | 显示全部楼层
287636713 发表于 2017-7-30 16:26, w1 {$ P( g, o, w  j! M/ M$ O
试过,运行宏后,无反应。
2 W5 L: `4 a. r用的是SW2015,Excel2010。是Excel版本的关系吗?

. y  y+ g( m( H: l巧遇28大
发表于 2017-7-30 19:40:35 | 显示全部楼层
Sw2012 64bit office 2007' o6 |. |1 E/ w% {+ I
运行宏后,选择文件夹,excel中只能显示一个零件的相关内容- O' q6 k# E. W; w: p/ _
其实文件夹中有多个SW的模型文件,不知哪出了问题?
发表于 2017-7-31 09:16:54 | 显示全部楼层
下载学习一下
发表于 2017-7-31 12:35:09 | 显示全部楼层
无法试用,宏崩溃 怎么都解决不了。
发表于 2017-8-1 15:05:30 | 显示全部楼层
大神自定义属性可以增加么
发表于 2017-8-1 15:07:30 | 显示全部楼层
另外读取的属性如果在EXCEL中修改可以返回去修改模型中的属性么
发表于 2017-8-2 10:26:44 | 显示全部楼层
SW2015   EXCEL2013试过,无反应,优先级别全部统统设置一次,还是无反应,求解!
5 v0 ]& t) ?1 |- U, d5 s* q- J; N, y 802.gif
发表于 2017-8-2 15:37:12 | 显示全部楼层
lhl2008 发表于 2017-7-29 19:11, d/ {  Q  Y8 C8 {! Y
如果没有反应,注意在VBA编辑器中将引用修改成你当前计算机所安装的相关控件
+ `0 E# i# Y& ^4 E; X& e
大大,弄了N久,没成功,提示:用户定义类型未定义(Dim PrevBmp As stdole.StdPicture),见下图,求解! 802.gif 1 J9 G$ r0 v! p
发表于 2017-8-2 16:07:39 | 显示全部楼层
ryouss 发表于 2017-7-30 12:59& T* a, f0 U' A6 B. A( H. I! X( b3 t
如圖
5 z% l6 O; M6 B+ |2 X
良大是怎麽把vba的注解轉換成繁體中文的?
& N3 f% D! V2 u) q) N我這邊日文系統打開全都是無法閲讀的文字,很多表格名的引用全都變成不可讀,完全沒得測試。。。
发表于 2017-8-2 16:22:03 | 显示全部楼层
建议遍历装配体,再获取属性,因为在设计中,文件夹内有许多设计中放弃的垃圾零配件不好清理。  这个哪位高手改编一下  哈哈那就完美了
发表于 2017-8-2 16:35:33 | 显示全部楼层
sihouko 发表于 2017-8-2 16:07
$ U# G& g5 k$ T% k$ t良大是怎麽把vba的注解轉換成繁體中文的?
3 p# G- b' x8 ^" \5 h& t4 L我這邊日文系統打開全都是無法閲讀的文字,很多表格名的引用 ...

6 r  x) D" E" G: M  s1 |! }是用這軟件 ConvertZ.exe 簡繁複製切換就是.

点评

感謝。,,, 切換ok,貼囘去還是亂成一團。。vba編輯器依舊這麽神奇。。 不逐條修正成英文是沒辦法繼續下去了。。。  详情 回复 发表于 2017-8-2 17:28
发表于 2017-8-2 16:47:36 | 显示全部楼层
只能羨慕了,流量不夠,
发表于 2017-8-2 17:28:26 | 显示全部楼层
ryouss 发表于 2017-8-2 16:35; c9 `4 I4 @/ Y% l: C
是用這軟件 ConvertZ.exe 簡繁複製切換就是.
$ H" Q- c1 K: }/ w
感謝。,,,8 Q: I9 I6 x, ~. _/ e+ ?/ b; l/ v
切換ok,貼囘去還是亂成一團。。vba編輯器依舊這麽神奇。。8 Z. t* a" c7 v; ]  s- K
不逐條修正成英文是沒辦法繼續下去了。。。
发表于 2017-8-2 21:01:04 | 显示全部楼层
流量不足 如何兑换呀?
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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