iCAx开思网

标题: excel VBA 批量更改solidworks 属性及名字工具 [打印本页]

作者: lxlaner 时间: 2016-1-3 23:18
标题: excel VBA 批量更改solidworks 属性及名字工具
本帖最后由 lxlaner 于 2016-9-28 14:11 编辑

大家好，最近做项目需要经常参考前期的图纸。改名和改属性成了我头痛的问题，经过学习本论坛的相关帖子，做了附件工具，
比之前论坛的工具优点：
1、集成改名改属性；
2、菜单采用系统菜单方式，看着专业，呵呵，
3、鼠标点击零件行可显示零件的预览图，
4、零件的预览图拖动图标题栏可以移到自己需要的位置固定；
5、预览图标题栏点右键可设大小，
6、增加环境设置工具；
7、如果选取的零件有工程图，会在零件名的左侧显示五角星；改名时会将工程图的名字一并更改并关联。

使用说明：
1、详细功能自己体会；
2、表头1-6列请不要更改，7列及后续列可按照各自产品的属性值需要，自行更改。

由于各个电脑环境不一样‘，可能存在兼容性问题，
我的代码都是开放式的，各位可以自行更改。

[attach]1228849[/attach]

[attach]1228850[/attach]

好多人提出说运行不了，多是因为看图插件的问题，本想自己做一个，发现网上有人做好的，
，大家可以下载安装使用，应该可以解决绝大多数人的问题了。这个插件是我网上搜的，不是我做的。
[attach]1229176[/attach]
[attach]1229177[/attach]
[attach]1229178[/attach]

[attach]1229179[/attach]
[attach]1229180[/attach]
[attach]1229181[/attach]
[attach]1229182[/attach]
[attach]1229183[/attach]
[attach]1229184[/attach]
[attach]1229185[/attach]

也可到百度网盘下载
https://pan.baidu.com/s/1dEjLu7n

2016、01、08更新 C 版
增加了批量提取零件外形尺寸的功能，可以设置提取零件的展开尺寸。
在帮助页有一个注册的按钮，如果出现页面图片所示提示，可以注册下。

[attach]1228848[/attach]

2016\01\10更新 D版
更新内容如下：
增加图纸及3D批量格式转换的功能，优化部分操作。本人前期预定的功能都以经实现，如果没人反馈BUG的话，近期不会再更新。
也请大家多多测试，
[attach]1229171[/attach]

2016\01\10 晚上更新 E 版

增加SWDM-API 方式提取及更改属性方法，此方法速度是之前方式的数倍。大量文件进行更改时再也不用等了。

各位使用时有问题请反馈。
[attach]1229187[/attach]

2016\01\10 晚上更新 E1 版

设置中默认打开文件时直接读取属性，
[attach]1229192[/attach]

下面是部分工具界面：
[attach]1229189[/attach]
[attach]1229188[/attach]
[attach]1229190[/attach]
[attach]1229191[/attach]

2016/9/28 好久没有来论坛看看了，此工具中间更新了多个版本，但一直没有在论坛上更新，现在更新下
[attach]1239554[/attach]
[attach]1239555[/attach]

具体更新那些我不记得了，大概如下吧。
1、删除了部分不常用的功能，
2、增加了读取组件结构的功能，现在不用像以前一样需要把所有需要更改的文件都选出来了，只要选取组件一个文件，下级部件会自动读取出来。
3、调整图形显示窗口的截面，主要为增加兼容性；
4、更改了界面，优化体验，
5、在设置中增加了删除不用自定义属性选项；
6、增加了指针，方便数据量多时容易看错行的问题；
其他的不记得了，
由于本人没有64位电脑，64位的文件兼容性可能会有些问题，我测试时候就发现有的电脑运行会出错，还请高手自己自己改改吧。VBA密码laner@21
私人原因我在代码中嵌入了自杀程序，时间是2016/12/12, 各位担心的话可以自行删除，就是带kill的模块。
不会删的也没关系，过几天我将它删了，重新更新下。

作者: tmyjsb 时间: 2016-1-3 23:31
谢谢楼主，好东西，顶起

作者: tmyjsb 时间: 2016-1-3 23:37
sw2016运行出错，不知如何修改

作者: tmyjsb 时间: 2016-1-3 23:48
烦请楼主帮忙

作者: gyf 时间: 2016-1-4 08:11
2012也不行，同样问题

作者: lxlaner 时间: 2016-1-4 09:34
我的电脑运行的环境是32位的，出错应该是因为你们的电脑是64位的

作者: lxlaner 时间: 2016-1-4 09:36
我也知道64位电脑会出错的，但是没办法，我现在没有64位的电脑调试。过几天我做一个插件吧，用来兼容64位吧。周末吧，这几天有些忙的。

作者: lxlaner 时间: 2016-1-4 09:39
兼容性主要出现在e-drawings的插件上面了。各位可以自行删除重新添加下控件

作者: ltq59 时间: 2016-1-4 10:04
楼主隐藏得够深

作者: 臭臉翔 时间: 2016-1-4 11:38
謝謝分享

作者: 豆蔻 时间: 2016-1-4 11:59

頂“神隱”高手的貼。

作者: 楠柠檬、 时间: 2016-1-4 12:47
楼主好深

作者: ChenMuYu 时间: 2016-1-5 08:20
好帖顶上去，前辈功力深厚啊。

作者: 中文寻星 时间: 2016-1-5 16:17
支持楼主分享

作者: xiabulai 时间: 2016-1-5 20:31
谢谢分享

作者: 1125039220 时间: 2016-1-5 21:38
好帖顶上去，前辈功力深厚啊。

作者: sxl_sxl 时间: 2016-1-6 08:02
藏龙又卧虎啊

作者: 龙之梦_4506 时间: 2016-1-7 13:19
支持下怎么样学习了

作者: 龙之梦_4506 时间: 2016-1-7 16:34
要是能读取配置属性更改就好了

作者: 龙之梦_4506 时间: 2016-1-7 16:35
具体如何添加控件呢？可否搞个小教程谢谢楼主了

作者: 13993359550 时间: 2016-1-7 21:06
楼主大师，出现这样怎么办呀

作者: econn00 时间: 2016-1-10 19:43
楼主辛苦了！！！

作者: econn00 时间: 2016-1-10 19:43
非常感谢楼主的无私奉献，小工具，大作用！！！

作者: 龙之梦_4506 时间: 2016-1-11 10:06
楼主可不可该一个可以批量改配置属性版本的谢谢了？？支持一下

作者: tmyjsb 时间: 2016-1-11 23:29
楼主请出手改一个可读取配置属性的吧，谢谢了

作者: 莱虫 时间: 2016-1-12 10:44
頂一下！

好像專門店有“能讀寫配置屬性”的工具可供下載。

作者: hawkerlin 时间: 2016-1-12 14:20
楼主，啥时候能有64位的

作者: tmyjsb 时间: 2016-1-12 22:36
https://www.icax.org/forum.php?m ... amp;fromuid=1409825
能否提供个下载地址

作者: tmyjsb 时间: 2016-1-13 00:21
请莱虫大师出手，帮忙改一下可读取配置特定属性的吧

作者: 楠柠檬、 时间: 2016-1-15 08:31

13993359550 发表于 2016-1-7 21:06
楼主大师，出现这样怎么办呀

我也有同样的问题。。。请问你解决了么

作者: xushengweixsw 时间: 2016-1-15 20:54
好东西，顶起。。。

作者: xushengweixsw 时间: 2016-1-15 20:55
怎么不能用？提示找不到库

作者: 13993359550 时间: 2016-1-15 21:26

楠柠檬、发表于 2016-1-15 08:31
我也有同样的问题。。。请问你解决了么

我没有解决，等待楼主呀

作者: 楠柠檬、 时间: 2016-1-16 07:16

13993359550 发表于 2016-1-15 21:26
我没有解决，等待楼主呀

仁胸是不是电脑也有加密软件？

作者: 13993359550 时间: 2016-1-16 11:19

楠柠檬、发表于 2016-1-16 07:16
仁胸是不是电脑也有加密软件？

没有的

作者: hheyafu 时间: 2016-1-26 20:37
本帖最后由 hheyafu 于 2016-1-26 20:57 编辑

楼主不错，这功能挺实用，谢谢分享

作者: hheyafu 时间: 2016-1-26 20:37
本帖最后由 hheyafu 于 2016-1-26 21:04 编辑

楼主能否帮我解决如下几个问题：1.SOLIDWORKS怎样将图档名“图号+名称”分离后自动链接到属性中
2.文件夹名称怎样链接到属性中的相关项目中？
3.word、excel、txt文档内容怎样链接到属性中
这几个问题我已在求助里发了贴，可以在本网站上搜，请高手们帮忙解决

作者: 口风琴 时间: 2016-1-29 00:43
谢谢LZ，很好的资源

作者: 口风琴 时间: 2016-1-29 00:52
同样出现无法装载对象的问题，望楼主能持续完善

作者: 05724221 时间: 2016-1-30 22:21
64位操作系统能用吗？我装的也是64位的SW2015

作者: 莱虫 时间: 2016-1-31 12:06
雨後春筍效應

作者: 783950144 时间: 2016-3-23 17:25
这个简直好用到爆！

作者: 610789475 时间: 2016-3-23 20:58
[attach]1231872[/attach][attach]1231873[/attach]出现这个提示，请LZ看看怎么回事，谢谢

作者: 783950144 时间: 2016-3-24 12:19

610789475 发表于 2016-3-23 20:58
出现这个提示，请LZ看看怎么回事，谢谢

要装一下一楼那个百度网盘里的看图工具，因为显示缩略图用的

作者: 枫林残月 时间: 2016-3-24 17:29
大力支持，楼主辛苦了。

作者: WingL86 时间: 2016-3-27 15:38

好好好好好好好好好好好好好好好好好

作者: WingL86 时间: 2016-3-27 15:41

:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D

作者: qxzch 时间: 2016-3-27 19:23
win7 x64启用宏后报错

作者: kswlas 时间: 2016-3-30 16:36
谢谢了，好东西找了好久！

作者: 山不转水转 时间: 2016-4-3 18:46
good job!

作者: crz222 时间: 2016-4-26 12:46
WIN7 64位 excel07版，错误

作者: eastking1111 时间: 2016-4-26 17:23
[attach]1233183[/attach]
请教下，这个该怎么弄？

作者: 极2012 时间: 2016-5-9 14:34
下载下来试试，好东西，

作者: 极2012 时间: 2016-5-10 09:04
为什么我打开什么都没有

作者: 极2012 时间: 2016-5-10 09:17
就是这样

作者: zgl1573 时间: 2016-5-12 23:24
楼主真是高手啊。这个工具很方便

作者: 口风琴 时间: 2016-5-15 20:23

莱虫发表于 2016-1-12 10:44
頂一下！

好像專門店有“能讀寫配置屬性”的工具可供下載。

莱大，我想把读取外形尺寸的宏改成使用swdm的，不知能否实现，望莱大指点一二，先行谢过了

作者: 自定义〆旋律 时间: 2016-5-16 08:25
很好很强大

作者: ThinkonZhu 时间: 2016-5-16 10:04
“图号”改成“代号”
“产品名称“改成”名称”

作者: 口风琴 时间: 2016-5-16 19:24

口风琴发表于 2016-5-15 20:23
莱大，我想把读取外形尺寸的宏改成使用swdm的，不知能否实现，望莱大指点一二，先行谢过了

恩，原来如此，谢谢莱大

作者: jls1102004 时间: 2016-6-3 10:06
试用了下很不错。。谢谢

作者: xiaoxifeng 时间: 2016-6-17 11:04
可惜我为什么下载不了啊

作者: xiaoxifeng 时间: 2016-6-17 11:07
楼主能不能做成EXE文件啊。我这打不你的文件啊

作者: litao036 时间: 2016-6-18 16:52
看看怎么呀支持一下啊

作者: jerry_08 时间: 2016-6-22 11:36
堪称机械界solidworks的神器啊。。。就缺X64的了

作者: newforever 时间: 2016-6-26 22:15
非常好的资源！

作者: newforever 时间: 2016-6-26 22:16
非常感谢分享！

作者: newforever 时间: 2016-6-26 22:17
可以提高速度！

作者: newforever 时间: 2016-6-26 22:18
分享快乐！

作者: newforever 时间: 2016-6-26 22:19
感谢分享这么好的资源！

作者: ss404770848 时间: 2016-6-27 11:15
用来提取修改BOM不知道效果，试试看

作者: hc1978 时间: 2016-6-30 15:43
楼主辛苦了，找了好久，重要找到了

作者: hc1978 时间: 2016-6-30 15:43
之前安装了一个 litegear 装完了，不好用，不是破解的，收费啊，哎

作者: hc1978 时间: 2016-6-30 15:51
楼主 64位电脑用不了吗？

作者: yjm36 时间: 2016-7-1 15:12
楼主 64位电脑用不了吗？

作者: 83038113 时间: 2016-7-29 20:42
谢谢再次下载

作者: luodeshengg 时间: 2016-7-30 13:55
还是是64位用不了么？有没有新版出来？

作者: zy-hz163 时间: 2016-8-6 16:26
好东西如果好用的话真是太方便了

作者: 83038113 时间: 2016-8-15 14:51
兼容性主要出现在e-drawings的插件上面了。各位可以自行删除重新添加下控件

作者: 83038113 时间: 2016-8-15 15:12
2016、01、08更新 C 版
增加了批量提取零件外形尺寸的功能，可以设置提取零件的展开尺寸。
在帮助页有一个注册的按钮，如果出现页面图片所示提示，可以注册下。

作者: MALAI 时间: 2016-8-30 09:55
厉害，太厉害了

作者: MALAI 时间: 2016-8-30 10:11
有 64 位的吗

作者: xjmold1974 时间: 2016-9-22 23:35
谢谢楼主

作者: rjtsyq 时间: 2016-9-24 00:43
非常感谢大师分享啦。

作者: ykf888 时间: 2016-9-24 14:23
干什么呢

作者: xjmold1974 时间: 2016-9-25 00:08
我的使用说明及帮助除了注册控件，其他都没有，能帮忙解决吗，谢谢

作者: /dao叨囗嗜洫 时间: 2016-10-5 18:38
2016/9/28更新的64位版本会有如图警告。[attach]1239689[/attach][attach]1239690[/attach]

作者: OK_Let''s_Go 时间: 2016-10-15 16:51
楼主我要下载哪个版本啊，9月28号更新的那2个？

作者: /dao叨囗嗜洫 时间: 2016-10-28 14:52
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next

Set fso = CreateObject("Scripting.FileSystemObject")

If FrmNavi.OptionButton1.Value = True Then

  If [a1] = "1" And fso.FileExists(Range("D" & Target.Row).Text & Range("G" & Target.Row).Text & ".slddrw") Then

  ViewSWmodel

  Else
  FrmNavi.Hide
  FrmNavi.EModelViewControl1.FileName = ""

  End If
Else
If [a1] = "1" And fso.FileExists(Range("D" & Target.Row).Text & Range("G" & Target.Row).Text & "." & Range("H" & Target.Row).Text) Then

  ViewSWmodel

  Else
  FrmNavi.Hide
  FrmNavi.EModelViewControl1.FileName = ""

End If
End If

这段代码中EModelViewControl1报方法和数据成员未找到，不知道怎么解决。sw2013和sw2016都有这个问题，工具引用中已经根据丢失添加了对应sw版本的EModelView 20** type library版本。

工具可以再添加批量图号名称分离宏和属性更改后工程图自动更新功能。因为很多人的文件名称是以零件号+零件名称命名的。

作者: /dao叨囗嗜洫 时间: 2016-10-28 14:58

tmyjsb 发表于 2016-1-3 23:48
烦请楼主帮忙

这个问题已经找到解决方法了吗？

作者: zthorn 时间: 2016-10-30 23:18
看看64位的介意用不

作者: zthorn 时间: 2016-10-30 23:19
需要，看起来不错

作者: hksxwg 时间: 2016-11-1 18:06
64位不能用，一打就出错，VBA中能看到代码，模块，看不到窗体。

作者: 冉冉升起liu 时间: 2016-11-5 15:13
感谢分享

作者: haoer6238 时间: 2016-11-5 16:23
谢谢楼主，正需要改名改属性的工具，谢了

作者: 170760124 时间: 2016-11-16 14:15
膜拜大师，虽然我电脑64位的出错误了。大师赶快把电脑升级测试一下吧！

作者: 壁月云天 时间: 2016-11-20 20:11
我找了2年啊终于有个好用的了，我十分感谢中央电视台当然还有楼主！！！

作者: 壁月云天 时间: 2016-11-20 20:13
win10系统 office2016 solid works2016 全64位表示能用，装一下楼主提供的看图软件。启用宏编辑。

作者: 1_-)) 时间: 2016-11-21 08:15
谢谢分享高手

作者: wangchl20111 时间: 2016-11-22 11:29
谢谢楼主

欢迎光临 iCAx开思网 (https://www.icax.org/)