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

ProeSky

, S' r+ ^  E6 O: f/ L配置：
7 ~! N. x  X5 c2 |" @, r, e! C. hsolidworks 2012   +  win7 64  +  32位office
宏拿过和与预想的一样     直接无法用     要么EXCEL 直接空白

调试之前 注释掉 容错语句   on error resume next   

8 z, F2 N8 l5 [2 Z3 s( n; E问题：
          1.工程引用要改

          2.去掉 PtrSafe  （见图片 PtrSafe，对照楼主源代码）    ，不去掉的话 那段代码直接  亮红
0 W% ^' ^0 f# q) o  q) q1 u* @
         3.类型声明符与声明对象不符，，改改改  在left 前加  VBA. （见图片 VBA）

0 L4 ^1 M$ }  n3 q" p1 L. |
结果：
" D  A$ \6 T1 ?7 h& {2 e. c* ~
9 }% b3 h8 h1 x- H% J" @       1. 缩略图的错误（见图片报错）没搞定     直接先屏蔽掉     去找资料或坛里高人指点

       2.可以顺利生成不带图的bom（见图bom表）

+ g2 m% l0 ^3 a7 a) o


+ ~0 c' s" C& e# j! @" K- ~  J8 P; Z

lhl2008

ProeSky 发表于 2017-8-3 14:20
配置：
solidworks 2012   +  win7 64  +  32位office
宏拿过和与预想的一样     直接无法用     要么EXC ...

solidworks2017的VBA是6.0，solidworks2013以后为7.0，程序需要做一些调整

soso2006

果如楼主所说2013以后版本上使用效果不错！

ProeSky

lhl2008 发表于 2017-8-3 17:45
/ d. f0 O4 g) j" N3 I9 zsolidworks2017的VBA是6.0，solidworks2013以后为7.0，程序需要做一些调整

VBA确实不方便   

ProeSky

5 H' A3 T( j" ]1 w$ I
4 C8 f3 E% F  z2 f想知道 楼主   顺利提取出图片   是怎样的配置

问过别人  GetPreviewBitmap  好像64位用不了
: u2 X$ _* E! n
要我用内存截图 法


4 m( v5 G8 G6 Z+ Q2 ~* y

bash

ProeSky 发表于 2017-8-4 11:08
2 M6 X; Z1 o6 J3 G# ]/ a想知道 楼主   顺利提取出图片   是怎样的配置
0 [4 |( ^; R! x
1 w( b9 G- M( t, B问过别人  GetPreviewBitmap  好像64位用不了

: y1 R4 Z. L$ n2 n* F5 I# b大大问的高人，应该不清楚COM为何物！

ProeSky

3 I5 h; n) a# j

bash 发表于 2017-8-4 11:46
大大问的高人，应该不清楚COM为何物！

" w. m' a! V  e5 g3 V! `
都不是专业的   思路可能不同  不到不得已 不打算用他的方法  有难度     不过那种方法 图片效果不错
7 x+ r; p" G' {6 J. t
  F% F2 Y! B. i, p2 Z别卖关子了   有解决方法吗

! U( y5 e+ Q/ X' C- o) z* s% D

ProeSky

/ A$ w; [0 O3 h) E3 h% Q9 S+ f2 \曲线救国 选了一种取巧的方法 哈哈哈
. Y$ `) |9 [: U3 ~  j0 G6 D9 L, v+ ~
# U* {: g) w  q6 r) t* t7 t: F6 L, N
吐槽一下  SWDM-API

程序还要调一下 （以后再说头大）主要是图片显示大小问题
9 F/ |! R9 G; J! l5 J9 V5 r$ g( v
9 b% I4 q6 e" T1 _1 p, r! Q1 i

4 Z$ L* E6 W1 `7 L2 ^/ ?

lhl2008

ProeSky 发表于 2017-8-4 11:08
想知道 楼主   顺利提取出图片   是怎样的配置
. o# }& h. a* C( S( k4 ^
; p3 @/ e( o, L问过别人  GetPreviewBitmap  好像64位用不了

7 R# @! _; g2 H) p- n" U' B在低版本中用GetPreviewBitmap提取图片没问题，我以前在SW2012用过，现在手头没有低版本，无法验证！

lhl2008

打开装配体，批量输出零部件属性及缩略图
" e$ o- P' U2 R （也可称之为零部件明细表统计）
. u$ t& R7 L) M/ z: M
: [" j0 w) A. n) I: I; [$ z '说明: 该宏可以批量输出打开的装配体中所有零部件属性及缩略图到excel文件中
. U* z% a7 Y# Z4 b2 x$ r! t ''前提条件： 1.当前所打开的文档必须是装配体；
'
7 ?, t. a0 ^' }- k) E' V ''           2.运行该程序前要将装配体中的轻化零部件全部进行还原，否则对轻化的零部件不进行统计；
* ^1 r2 A9 q% M$ ]/ [ '
''           3.每个零部件的文档属性中必须要包含要提取的属性名称
- V+ V/ F2 @8 }" f- q# D '
'最后结果: 该宏将批量输出打开的solidworks装配体所有零部件中所包含的零部件质量，密度，数量，所属装配号
'
; {$ e* z6 r3 @% k+ Y/ \ '          以及自定义属性和配置属性及缩略图到excel文件中并存储到桌面上。
'
2 \7 H9 @% E/ d' J '特点：
4 c$ U! s2 P3 F, { '   1.该宏可同时输出零部件自定义属性以及配置属性
'
'   2.该宏可统计输出零部件总数量以及总重
0 ^- t: N% e$ [& @  u8 l' Y3 ~ '
'   3.该宏可统计输出零部件所属装配代号
'
1 H7 P( k# V; | '   4.该宏可输出所有零部件缩略图
'
& R- q3 D8 {3 v$ s6 v! h '   5.对于封套,Bom排除零部件，既可以统计进去，也可排除
! Z: C" t; `$ J. }9 h/ v1 { '
'作者：lhl，2017.08.05
'
3 L0 |( s6 v; Z, b. I '版本：V1.0
* W. ~1 O! M: S/ _' Y5 A0 O- C

lhl2008

% G4 J  n3 ^  V/ K. J) i( V" u& i

大鹿

谢谢专家，提供如此强大工具，坛友们有福了。
0 O0 ?+ c# j5 I5 }: M; ]
! p1 X* e  u& t  Y之前俺都是利用Excel内建工具插入图片和调整尺寸，
( Z* g5 ]! \" F/ Q* k" t& S+ Y有了这工具就可以大大简化操作了，效率估计提高起码十倍。

+ K$ k0 w6 N" A( ]  a- h: g) n因审美观因人而异，涂彩缩图未能兼顾每个人的口味，
) Z) j+ n5 y/ F. w3 V8 Z, T后来俺都是使用黑白（仅看的到模型边线）缩图来解决的。
/ `1 Q3 b4 H" K) W3 B% m& s看看可否加上黑白缩图（如附图）的功能？（可能俺太贪心了吧）
5 J2 K" G, r+ i

SW2016

lhl2008 发表于 2017-8-5 22:28

5 X6 G+ M, z5 clhl2008大师，这个是最新版本吗？

lhl2008

谢谢鹿兄关注，生成线框缩略图是可以的，但这个不是SW文件中保存的，必须要另外保存成线框图片，这个应该不是难点。也许，鹿兄有更好的招法！

ryouss

是否如55#所提供的信息 64位元 無法享用,
; [9 z: j/ t# X  R2 c. L/ c/ h
而執行成功的都是 32位元 嗎?

lhl2008

ryouss 发表于 2017-8-6 11:19
( P2 a& B2 I' ^; z  W是否如55#所提供的信息 64位元 無法享用,
0 E/ |- x, G5 M% ^! H1 y
! O$ j8 p/ C# q9 ]0 d- s& c而執行成功的都是 32位元 嗎?

我的机子配置：
windows10，64位
Solidworks2017
Excel2016

ryouss

見鬼一直沒試出

我是
! R: M$ M* ^5 p+ N* L  uwin7,64位元
$ |* Q# U- ~2 I  S$ _  r3 i4 gsolidworks2012,2017
Excel 2010

ryouss

進入 main 用逐步執行的話,如附图所示然後就自動關掉SW了.


4 q. L. E7 h1 @) o4 T( u" G* c

lhl2008

0 _  [/ y! q( R, S; ^

ryouss 发表于 2017-8-6 12:15
! U+ E! ~) |; k. f! P進入 main 用逐步執行的話,如附图所示然後就自動關掉SW了.

浏览文件夹的过程你可以另换一个试试

ryouss

lhl2008 发表于 2017-8-6 14:30
3 N( W% _5 u6 }$ M* _浏览文件夹的过程你可以另换一个试试

/ K5 y3 K- A- l  [! I/ W改了沒用

另請教如下是正確的嗎?

lhl2008

大鹿 发表于 2017-8-6 08:49
谢谢专家，提供如此强大工具，坛友们有福了。

之前俺都是利用Excel内建工具插入图片和调整尺寸，

: ^' Z: I* o' T4 u, D' a7 U做出了与鹿兄一样的线框缩略图，效果还不太好，还需改进

- w1 ?3 b6 x# G2 N# i5 E

bash

! B' ^* u- V" _' B. R1 D

lhl2008 发表于 2017-8-6 21:46
2 D1 v/ m3 I# m+ d  y7 l% d做出了与鹿兄一样的线框缩略图，效果还不太好，还需改进

; d$ G9 r) v& k" l# @4 q5 B( Q  n楼主在插入图片后，可以用

PictureFormat.ColorType = msoPictureBlackAndWhite
) T- v+ M2 `. G% G. W9 b+ @  F* C
( Y$ _; H. h! c; H试试
如果图片是SW里面直接保存出来的话，可以用PNG格式,并且，要求用户自己在SW设置里面打勾“移除背景”

; r4 K+ m4 }+ J- M% K' m+ H2 L- u

lhl2008

bash 发表于 2017-8-7 09:18
% Q0 W6 R8 C" k8 R( N楼主在插入图片后，可以用
9 Y, h$ e) H* Q% Z$ I4 G7 L) m, e
( {* F! L3 K! }) `9 G, L9 UPictureFormat.ColorType = msoPictureBlackAndWhite

谢谢bash兄指导，我试试！

大鹿

惊见某论坛出现的动画

machine134

SW2016 发表于 2017-7-29 16:28
多谢分享！
我在SW中点工具〉宏 〉运行，却没有反应，是Excel的版本不对吗？

我也是这情况,希望能解决