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

ProeSky

! X, U; ?$ q# h+ f2 j
配置：
solidworks 2012   +  win7 64  +  32位office
宏拿过和与预想的一样     直接无法用     要么EXCEL 直接空白

, U( k8 o* S. b2 P) r2 K9 D调试之前 注释掉 容错语句   on error resume next   

问题：
          1.工程引用要改
9 I7 I* s; G0 @, V2 e3 C8 I
          2.去掉 PtrSafe  （见图片 PtrSafe，对照楼主源代码）    ，不去掉的话 那段代码直接  亮红

4 M( ^6 X, a1 H3 v' j- Z" h( |9 N         3.类型声明符与声明对象不符，，改改改  在left 前加  VBA. （见图片 VBA）

& U! H+ G7 j+ B+ T( ?5 b7 t* T6 L
结果：

       1. 缩略图的错误（见图片报错）没搞定     直接先屏蔽掉     去找资料或坛里高人指点
$ d7 F  T8 ^, s3 L
4 [1 U! o8 K7 ?0 f& {7 _% _9 g       2.可以顺利生成不带图的bom（见图bom表）
' l7 h4 |% ]. j  q* y
2 n9 D5 O& a+ g' ^! I
) _9 E6 t" F; ^/ D% C$ \3 A
8 a0 V1 u& f7 z) b. m/ B
0 T3 g7 }2 V. M  E' w) B, [# `- I' R4 B

lhl2008

ProeSky 发表于 2017-8-3 14:20
! j' U+ F" e* z# g6 F配置：
solidworks 2012   +  win7 64  +  32位office
7 |7 j$ x( H9 [; h2 W- O9 p宏拿过和与预想的一样     直接无法用     要么EXC ...

# r: C5 B# [; u/ w3 K0 ssolidworks2017的VBA是6.0，solidworks2013以后为7.0，程序需要做一些调整

soso2006

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

ProeSky

lhl2008 发表于 2017-8-3 17:45
3 J. }; F' P; N+ Dsolidworks2017的VBA是6.0，solidworks2013以后为7.0，程序需要做一些调整

$ b* D6 g2 p: ?
" t) [5 |1 ]  M5 W' x! L, ]VBA确实不方便   

ProeSky

& L" |% i' \, v想知道 楼主   顺利提取出图片   是怎样的配置
9 b  x, j+ H9 @
问过别人  GetPreviewBitmap  好像64位用不了
( q& j& j* c( Z; ?# V( u/ D& ~
" R& w! f- ~$ ?3 w9 k要我用内存截图 法
. X% r* l; J; W" B! [
3 a+ f4 ^" `3 o$ @8 W7 ]( ~
4 l+ C% [; {  U, _

bash

ProeSky 发表于 2017-8-4 11:08
- A# y* B( [$ T& U0 ]& E3 E想知道 楼主   顺利提取出图片   是怎样的配置
( V' Z% E& ?" i9 z7 _) w
问过别人  GetPreviewBitmap  好像64位用不了

' u* p( Z6 H  V9 l7 ?大大问的高人，应该不清楚COM为何物！

ProeSky

4 j) F1 l/ l! @+ S

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

+ t" U# @9 Z- Q4 g
都不是专业的   思路可能不同  不到不得已 不打算用他的方法  有难度     不过那种方法 图片效果不错
$ d8 i# S# h! q
别卖关子了   有解决方法吗
0 i6 V2 |, b1 E. h6 j5 \6 ]1 q; |( b
" n  N: O+ E/ T

ProeSky

  B' g) M+ b% H% E曲线救国 选了一种取巧的方法 哈哈哈

% c- R9 d5 J% B  V3 H
吐槽一下  SWDM-API

1 R, b& C, Z* v* d0 a% \程序还要调一下 （以后再说头大）主要是图片显示大小问题
6 I* a' q4 |9 `! y- v
" E9 @6 O( r- N6 |7 d* s! i
% s* ^7 F  Q4 ^* }( k

lhl2008

ProeSky 发表于 2017-8-4 11:08
9 i3 M, d; J- V0 E, i* t想知道 楼主   顺利提取出图片   是怎样的配置
) f2 e" o, A3 n  j6 m# ~1 Q
3 J3 l, T: T0 f% @7 v9 V) O问过别人  GetPreviewBitmap  好像64位用不了

  y& l2 i/ i# ]8 K) U) s在低版本中用GetPreviewBitmap提取图片没问题，我以前在SW2012用过，现在手头没有低版本，无法验证！

lhl2008

打开装配体，批量输出零部件属性及缩略图
（也可称之为零部件明细表统计）

) r) b: L2 c; l0 g' o$ w0 j '说明: 该宏可以批量输出打开的装配体中所有零部件属性及缩略图到excel文件中
) f" a4 y4 I6 p ''前提条件： 1.当前所打开的文档必须是装配体；
' B4 G2 Y2 ]' X '
" b6 h# u$ C0 k. S6 ^ ''           2.运行该程序前要将装配体中的轻化零部件全部进行还原，否则对轻化的零部件不进行统计；
'
; |7 ?7 a! m# a3 Y3 r7 z ''           3.每个零部件的文档属性中必须要包含要提取的属性名称
% ^* v- E& e" ]1 U, i '
) J3 ]! W' Q; N. ]1 W '最后结果: 该宏将批量输出打开的solidworks装配体所有零部件中所包含的零部件质量，密度，数量，所属装配号
'
/ G% y$ y  G2 N! ] '          以及自定义属性和配置属性及缩略图到excel文件中并存储到桌面上。
" J6 z  s8 Z" n, I+ j '
'特点：
'   1.该宏可同时输出零部件自定义属性以及配置属性
'
'   2.该宏可统计输出零部件总数量以及总重
'
'   3.该宏可统计输出零部件所属装配代号
'
1 K# c# }$ A' d! Y4 X: `1 f" ] '   4.该宏可输出所有零部件缩略图
'
4 ?; X$ U" L# \0 [, O '   5.对于封套,Bom排除零部件，既可以统计进去，也可排除
4 m* m! f7 U2 ?" Q' S% @* X5 r '
& S; J5 p) l4 o& s' K '作者：lhl，2017.08.05
'
- H/ i9 e7 S$ e; N: A# ^ '版本：V1.0

lhl2008

# m: r. O4 G8 {% |* m

大鹿

谢谢专家，提供如此强大工具，坛友们有福了。

1 ]/ `* `: R( D. b之前俺都是利用Excel内建工具插入图片和调整尺寸，
有了这工具就可以大大简化操作了，效率估计提高起码十倍。

因审美观因人而异，涂彩缩图未能兼顾每个人的口味，
# G" j7 x' {& g1 X& Y3 X后来俺都是使用黑白（仅看的到模型边线）缩图来解决的。
! F4 ^) [" v9 S看看可否加上黑白缩图（如附图）的功能？（可能俺太贪心了吧）
# T- `' d( `, Z; P

SW2016

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

/ c7 U4 C4 v. V, [0 P3 Elhl2008大师，这个是最新版本吗？

lhl2008

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

ryouss

是否如55#所提供的信息 64位元 無法享用,
% m. i! @" H3 k  s
4 E6 y2 n# G& n7 J而執行成功的都是 32位元 嗎?

lhl2008

ryouss 发表于 2017-8-6 11:19
; B- e* t) b( x( y3 g3 E! D* O是否如55#所提供的信息 64位元 無法享用,

/ \& f) q+ Q. `3 x, ?' E而執行成功的都是 32位元 嗎?

6 \+ Q3 @. V! A" c2 ^% o( a$ [我的机子配置：
windows10，64位
- U3 d3 y$ M5 E, N8 mSolidworks2017
+ H! E1 ?- F) }7 cExcel2016

ryouss

見鬼一直沒試出

; `' t8 X4 P! u我是
5 t  q% R# Y( ~+ e" c. wwin7,64位元
/ a7 @5 q0 b, Qsolidworks2012,2017
Excel 2010

ryouss

進入 main 用逐步執行的話,如附图所示然後就自動關掉SW了.
/ Q9 S2 h3 N, m& e( A
: `  z2 ]5 M# o" X5 A

lhl2008

ryouss 发表于 2017-8-6 12:15
進入 main 用逐步執行的話,如附图所示然後就自動關掉SW了.

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

ryouss

lhl2008 发表于 2017-8-6 14:30
浏览文件夹的过程你可以另换一个试试

% c4 L  C/ W  _/ I9 z- }  ~9 s+ v改了沒用

另請教如下是正確的嗎?

  m* ]- F$ r5 L) J2 P6 Y- @
& S$ l0 ]1 o9 r& [% j7 P
5 ^, k+ g0 W) t9 {  V2 N4 U3 @

lhl2008

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

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

做出了与鹿兄一样的线框缩略图，效果还不太好，还需改进

bash

7 a& s. z8 l6 z. n3 Y

lhl2008 发表于 2017-8-6 21:46
6 X# W! X8 o  L( [4 ?( D. m5 V做出了与鹿兄一样的线框缩略图，效果还不太好，还需改进

4 Z& g6 F# c8 [% B! e; R3 C楼主在插入图片后，可以用
& z  s- }8 |! C- D* D+ V
/ ]3 f! x- D7 ~) nPictureFormat.ColorType = msoPictureBlackAndWhite

试试
7 c: E. o. f: b# N2 D% x如果图片是SW里面直接保存出来的话，可以用PNG格式,并且，要求用户自己在SW设置里面打勾“移除背景”


( H: E8 ]# R  b. P% G

lhl2008

bash 发表于 2017-8-7 09:18
楼主在插入图片后，可以用

PictureFormat.ColorType = msoPictureBlackAndWhite

) n0 ^; H2 x6 ~$ k+ R* F谢谢bash兄指导，我试试！

大鹿

惊见某论坛出现的动画

machine134

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

% |7 Q5 J4 p" u. t5 a' K! q我也是这情况,希望能解决