【修改】Excel表格+自定义属性整理2

peng188 · 发表于 2021-7-16 18:12:24

经典图书

【原创修改】<Excel表格>更改文件名字+自定义属性整理（第二版）
看到版主写的工具改名改属性的工具。自己琢磨了一下，现在问题是，装配体过大，会读不到子级，若是小装配可处理过来，可以实现修改，包括关联设计的模型图纸都可以修改。

批量更改工具.rar (34.58 KB, 下载次数: 191, 售价: 20 金币)

增加功能：
1 目前可以根据切换按钮人为选择读取自定义还是读取激活的配置特定属性，反写也是一样。
2 处理的动态颜色反馈。
代码中原作者是遍历后查重。再挨个打开集合里面的对象读取。  我在网上还看到一种直接获取顶层对象，可以知道下面有子对象，就不需要查重，有没有这个搞法的？设置金币，避免伸手党，哈哈请见谅。
[td]
Dim strings As Variant
Dim AssemblyTitle As String
Dim AssemblyName As String
Dim errors As Long
Dim warnings As Long

Dim mz As String
Dim qmlj As String '全名路径
Dim qmzz As String

Set AssemblyDoc = swApp.ActiveDoc       '激活装配体文档
Set swmodel = swApp.ActiveDoc       '激活对象文档
Set swmodel = swApp.GetFirstDocument       '获取第一个文档对象
      Do While Not swmodel Is Nothing    '第一个对象不为空时计算
         AssemblyTitle = swmodel.GetTitle
' Split the title into two strings using the period (.) as the delimiter
         strings = Split(AssemblyTitle, ".")
' You'll use AssemblyName when mating the component with the assembly
         AssemblyName = strings(0)
         '下面三行显示名称名称+后缀  全路径
'          Debug.Print AssemblyName
'          Debug.Print swmodel.GetTitle
'          Debug.Print swmodel.GetPathName

UDF998 · 发表于 2021-7-17 14:49:02

感谢楼主分享，很不错！

wenrui · 发表于 2021-7-20 16:44:22

经典图书

SolidWorks机械工程师网，顶一下。

阿斯蒂芬0 · 发表于 2021-7-20 16:49:52

很不错，找到组织了！

schjck · 发表于 2021-7-23 17:54:02

经典案例图书

好好学习，天天向上！

guoruihan1999 · 发表于 2021-7-28 09:07:17

楼主您好，我运行Excel，读取没问题，写入时提示下面问题，怎么解决那！

钓鱼要戴头盔 · 发表于 2021-8-3 22:54:56

经典案例图书

好好学习，天天向上

peng188 · 发表于 2021-8-4 13:59:50

guoruihan1999 发表于 2021-7-28 09:07
楼主您好，我运行Excel，读取没问题，写入时提示下面问题，怎么解决那！

是不是只读？

盯裆瞄 · 发表于 2021-8-23 14:49:31

感谢楼主分享，很不错！

蒲公英 · 发表于 2021-8-24 14:34:47

经典图书

好东西，谢谢分享！

阿斯蒂芬0 · 发表于 2021-8-25 16:27:30

很不错，找到组织了！

wwwerzhou · 发表于 2021-8-27 20:16:53

SW机械工程师网，找到组织了！

浅蓝色的天空 · 发表于 2021-8-27 23:14:17

感谢楼主分享，很不错！

schjck · 发表于 2021-10-13 23:02:01

SolidWorks机械工程师网，顶一下。

283554188 · 发表于 2021-11-9 10:16:49

加入QQ群
参与讨论和学习

或扫描二维码加入

谢谢风向收藏了

283554188 · 发表于 2021-11-9 10:23:03

经典案例图书

SolidWorks机械工程师网，顶一下。

文2先森 · 发表于 2022-1-17 08:16:20

加入QQ群
参与讨论和学习

或扫描二维码加入

很不错，顶一下！

文2先森 · 发表于 2022-1-17 11:22:13

经典案例图书

A大的源程序运行也是这个问题，你这个修改的也是这个问题，用不了

llxxfflxf · 发表于 2022-3-15 15:19:39

好东西，顶一下。

烦心天使 · 发表于 2022-4-27 12:09:12

感谢楼主分享！但是无法读取子装配（就是装配体内部的装配图），只能读取顶层啊！
另外写入写出速度慢卡啊
还望再更新一版哦！517339237@qq.com

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

【修改】Excel表格+自定义属性整理2

评分

浏览过的版块

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献