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

ProeSky · 发表于 2017-8-3 14:20:00

本帖最后由 ProeSky 于 2017-8-3 15:00 编辑

配置：
solidworks 2012 +  win7 64  +  32位office5 A1 [2 t3 W! _1 A5 Z$ b. Y+ `
宏拿过和与预想的一样    直接无法用    要么EXCEL 直接空白

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

问题：
      1.工程引用要改

      2.去掉 PtrSafe  （见图片 PtrSafe，对照楼主源代码），不去掉的话 那段代码直接  亮红

      3.类型声明符与声明对象不符，，改改改  在left 前加  VBA. （见图片 VBA）

结果：

   1. 缩略图的错误（见图片报错）没搞定    直接先屏蔽掉    去找资料或坛里高人指点

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

lhl2008 · 发表于 2017-8-3 17:45:51

ProeSky 发表于 2017-8-3 14:20
3 C6 @# ~9 Q2 S配置：
& ^0 f& V$ c; G- q6 @: R* {( osolidworks 2012 + win7 64 + 32位office; q1 a# K- k) d, X( @* `
宏拿过和与预想的一样直接无法用要么EXC ...

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

soso2006 · 发表于 2017-8-3 20:11:08

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

ProeSky · 发表于 2017-8-4 08:09:02

本帖最后由 ProeSky 于 2017-8-5 14:59 编辑

lhl2008 发表于 2017-8-3 17:45
0 Q9 x9 N7 X1 |0 l& V) bsolidworks2017的VBA是6.0，solidworks2013以后为7.0，程序需要做一些调整

VBA确实不方便

ProeSky · 发表于 2017-8-4 11:08:37

本帖最后由 ProeSky 于 2017-8-4 11:11 编辑

想知道楼主顺利提取出图片是怎样的配置

问过别人 GetPreviewBitmap 好像64位用不了

要我用内存截图法

bash · 发表于 2017-8-4 11:46:42

ProeSky 发表于 2017-8-4 11:08
$ q( p* s0 G; Q/ Z+ A+ k想知道楼主顺利提取出图片是怎样的配置   q- u1 d' l# }$ W" \* z. F4 n
$ E" A; v! t  M7 B) m( \1 T4 ~
问过别人  GetPreviewBitmap  好像64位用不了

大大问的高人，应该不清楚COM为何物！

ProeSky · 发表于 2017-8-4 12:53:00

本帖最后由 ProeSky 于 2017-8-4 13:20 编辑

bash 发表于 2017-8-4 11:46& Z% ~5 U3 L" o
大大问的高人，应该不清楚COM为何物！

都不是专业的思路可能不同不到不得已不打算用他的方法有难度不过那种方法图片效果不错

别卖关子了

有解决方法吗

ProeSky · 发表于 2017-8-5 14:39:44

本帖最后由 ProeSky 于 2017-8-5 14:49 编辑

曲线救国选了一种取巧的方法哈哈哈

吐槽一下 SWDM-API" m5 M$ y6 Z0 T2 m+ O: [( Y

程序还要调一下（以后再说头大）主要是图片显示大小问题

lhl2008 · 发表于 2017-8-5 18:26:26

ProeSky 发表于 2017-8-4 11:08
3 ^" z/ j: i: ? I# R想知道楼主顺利提取出图片是怎样的配置
8 ~9 k! ^! z" H$ t+ Y3 j6 f' ^9 U- e0 ?. j! b( J/ ]9 p
问过别人 GetPreviewBitmap 好像64位用不了

在低版本中用GetPreviewBitmap提取图片没问题，我以前在SW2012用过，现在手头没有低版本，无法验证！

lhl2008 · 发表于 2017-8-5 22:27:24

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

'说明: 该宏可以批量输出打开的装配体中所有零部件属性及缩略图到excel文件中
''前提条件： 1.当前所打开的文档必须是装配体；
'
''          2.运行该程序前要将装配体中的轻化零部件全部进行还原，否则对轻化的零部件不进行统计；
'
''          3.每个零部件的文档属性中必须要包含要提取的属性名称
'
'最后结果: 该宏将批量输出打开的solidworks装配体所有零部件中所包含的零部件质量，密度，数量，所属装配号
'
'       以及自定义属性和配置属性及缩略图到excel文件中并存储到桌面上。
'
'特点：
' 1.该宏可同时输出零部件自定义属性以及配置属性
'
' 2.该宏可统计输出零部件总数量以及总重
'
' 3.该宏可统计输出零部件所属装配代号
'
' 4.该宏可输出所有零部件缩略图
'
' 5.对于封套,Bom排除零部件，既可以统计进去，也可排除
'
'作者：lhl，2017.08.05
'
'版本：V1.0

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

大鹿 · 发表于 2017-8-6 08:49:36

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

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

因审美观因人而异，涂彩缩图未能兼顾每个人的口味，
后来俺都是使用黑白（仅看的到模型边线）缩图来解决的。
看看可否加上黑白缩图（如附图）的功能？（可能俺太贪心了吧）捕获.PNG

SW2016 · 发表于 2017-8-6 09:46:58

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

lhl2008大师，这个是最新版本吗？

lhl2008 · 发表于 2017-8-6 09:54:15

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

ryouss · 发表于 2017-8-6 11:19:42

是否如55#所提供的信息 64位元無法享用,

而執行成功的都是 32位元嗎?

lhl2008 · 发表于 2017-8-6 11:29:48

ryouss 发表于 2017-8-6 11:19 ?8 [4 y( u! L& T
是否如55#所提供的信息 64位元無法享用,
# e1 ?! V/ p1 S K4 J( D* i' d" m' i; K
而執行成功的都是 32位元嗎?

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

ryouss · 发表于 2017-8-6 11:37:30

見鬼一直沒試出

我是
win7,64位元
solidworks2012,2017
Excel 2010

ryouss · 发表于 2017-8-6 12:15:17

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

lhl2008 · 发表于 2017-8-6 14:30:18

本帖最后由 lhl2008 于 2017-8-6 14:35 编辑

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

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

ryouss · 发表于 2017-8-6 14:59:02

lhl2008 发表于 2017-8-6 14:30
4 ]& D' L. }/ E$ p: f浏览文件夹的过程你可以另换一个试试

改了沒用

另請教如下是正確的嗎?

lhl2008 · 发表于 2017-8-6 21:46:40

大鹿发表于 2017-8-6 08:49
! ^# n& ^, ]) A5 z' S3 ?谢谢专家，提供如此强大工具，坛友们有福了。
! u! G N% u, \% I
6 i; k* E( x5 S. a! @之前俺都是利用Excel内建工具插入图片和调整尺寸，

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

bash · 发表于 2017-8-7 09:18:50

本帖最后由 bash 于 2017-8-7 09:42 编辑

lhl2008 发表于 2017-8-6 21:46- K% f1 q! s( ]# r7 H
做出了与鹿兄一样的线框缩略图，效果还不太好，还需改进

楼主在插入图片后，可以用

PictureFormat.ColorType = msoPictureBlackAndWhite

试试
如果图片是SW里面直接保存出来的话，可以用PNG格式,并且，要求用户自己在SW设置里面打勾“移除背景”

lhl2008 · 发表于 2017-8-7 11:45:29

bash 发表于 2017-8-7 09:182 ^3 \& T7 K0 ^, B8 S' w5 H
楼主在插入图片后，可以用) |% O5 N. l+ L; j& `9 J1 e/ c* L. N

) A0 \1 R" U& S- cPictureFormat.ColorType = msoPictureBlackAndWhite

谢谢bash兄指导，我试试！

大鹿 · 发表于 2017-8-8 16:25:30

惊见某论坛出现的动画

machine134 · 发表于 2017-8-8 19:26:20

SW2016 发表于 2017-7-29 16:285 S1 K9 ]* B7 V! N$ u+ a9 }3 y; D
多谢分享！
. |4 I8 N0 X, C' ?7 \我在SW中点工具〉宏〉运行，却没有反应，是Excel的版本不对吗？

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

		自动登录	找回密码
密码			注册

全站		2005llnn 说: CAD几何作图竞赛题（2024年5月），至5月22日止。	2天前
全站		goto3d 说: 版主微信号：caivin811031；还未入三维微信群的小伙伴，速度加	2022-07-04

通知

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