有偿求助，写一个宏“从文件名分离属性”

suzhanpeng · 发表于 2019-2-24 10:36:38

经典图书

开玩笑的不要在意！

gao6300 · 发表于 2019-3-31 11:36:41

suzhanpeng 发表于 2019-2-18 10:08

感谢！稍作更改成功实现了我的简单文件名分离属性功能

gao6300 · 发表于 2019-4-1 14:14:01

经典图书

suzhanpeng 发表于 2019-2-20 08:57

您好！请问怎么才能写到配置属性？

suzhanpeng · 发表于 2019-4-3 11:53:54

gao6300 发表于 2019-4-1 14:14
您好！请问怎么才能写到配置属性？

Sub main()
On Error Resume Next '出现错误继续执行
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set curcfg = swApp.ActiveDoc.GetActiveConfiguration()
configname = curcfg.Name '获取特定配置名称
swNames = swApp.ActiveDoc.GetTitle() '获取零件名
a = Left(swNames, Len(swNames) - 7) '去掉后缀名
b = Split(a, "_") '以“_”分割文件名称并放入数组b中。
With swModel
.DeleteCustomInfo2 configname, "品牌" '删除特定配置中“品牌”的属性。
.AddCustomInfo3 configname, "品牌", 30, b(1) '写入品牌属性
.DeleteCustomInfo2 configname, "名称"
.AddCustomInfo3 configname, "名称", 30, b(2)
.DeleteCustomInfo2 configname, "规格"
.AddCustomInfo3 configname, "规格", 30, b(3)
.DeleteCustomInfo2 configname, "备注"
.AddCustomInfo3 configname, "备注", 30, b(4)
End With
End Sub

复制代码

gao6300 · 发表于 2019-4-3 19:23:42

经典案例图书

suzhanpeng 发表于 2019-4-3 11:53

非常感谢！真是受益匪浅。
旧文件都是自定义属性，现在喜欢用配置属性，所以现在弄得有些混乱。
本不懂vb编程，但您代码有注释，哈哈，把您的代码稍作了更改后解决了这些问题。

configname = curcfg.Name '获取特定配置名称

swNames = swApp.ActiveDoc.GetTitle() '获取零件名

a = Left(swNames, Len(swNames) - 0) '去掉后缀名

b = Split(a, "_") '以"_"分割文件名称并放入数组b中。

With swModel

.DeleteCustomInfo2 configname, "代号" '删除特定配置中"品牌"的属性。

.AddCustomInfo3 configname, "代号", 30,b(0) '写入品牌属性

.DeleteCustomInfo2 configname, "名称"

.AddCustomInfo3 configname, "名称", 30, b(1)

'修改自定义属性

.DeleteCustomInfo2 "", "代号" '删除自定义中"代号"的属性。

'.AddCustomInfo3 "", "代号", 30,b(0) '写入代号属性

.DeleteCustomInfo2 "", "名称" '删除自定义中"名称"的属性。

'.AddCustomInfo3 "", "名称", 30, b(1)

我文件名是这种格式 “代码_名称”

刚刚做了测试，对装配体同样有用，真是太好了。

不过还想请教高手，怎么同时添加质量和材质的配置属性呢？
"SW-质量@@默认@零件1.SLDPRT"
"SW-材质@@默认@零件1.SLDPRT"
等待您造福大众的代码出现。o(*￣︶￣*)o

suzhanpeng · 发表于 2019-4-5 11:48:25

添加属性
dim ZL as String, CZ as string
ZL= Chr(34) + Trim("SW-Mass" + "@" + "@" + "默认" + "@") + swNames + Chr(34) '如果不行就把SW-Mass换成SW-质量
CZ = Chr(34) + Trim("SW-Material" + "@" + "@" + "默认" + "@") + swNames + Chr(34)
swModel.AddCustomInfo3 configname, "质量", 30, ZL
swModel.AddCustomInfo3 configname, "材质", 30, CZ

KEMIRWU · 发表于 2019-4-25 15:59:07

经典案例图书

suzhanpeng 发表于 2019-4-5 11:48
添加属性
dim ZL as String, CZ as string
ZL= Chr(34) + Trim("SW-Mass" + "@" + "@" + "默认" + "@") + ...

这个很好用，我试了一下。
但是这个好像把3D .drw 图档也加了属性。估计需要一个判断。

KEMIRWU · 发表于 2019-4-25 17:49:55

这个很好用，我试了一下。
但是这个好像把3D .drw 图档也加了属性。估计需要一个判断。

suzhanpeng · 发表于 2019-4-28 09:38:14

KEMIRWU 发表于 2019-4-25 17:49
这个很好用，我试了一下。
但是这个好像把3D .drw 图档也加了属性。估计需要一个判断。

两种方法
1、用A=Part.GetType来提取当前文件的类型，A=1为零件，A=2为装配体，A=3为工程图。
2、提取文件的后缀名，根据后缀名来判断。
希望对你有用！

KEMIRWU · 发表于 2019-5-1 09:58:33

经典图书

suzhanpeng 发表于 2019-4-28 09:38
两种方法
1、用A=Part.GetType来提取当前文件的类型，A=1为零件，A=2为装配体，A=3为工程图。
2、提取 ...

谢谢！我试一下。

橘生淮南 · 发表于 2019-5-6 14:37:21

suzhanpeng 发表于 2019-4-3 11:53

学习了，刚好学习到这给地方

DHtang · 发表于 2020-4-27 15:57:47

插旗，以后肯定会用到

小豆芽疯回路转 · 发表于 2021-7-4 10:45:41

好好学习，天天向上！

haq013826 · 发表于 2023-5-30 14:00:53

suzhanpeng 发表于 2019-2-18 10:08

优秀是一种习惯

hjr123 · 发表于 2023-5-30 16:47:36

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢楼主分享，很不错！

随遇而安9528 · 发表于 2024-3-20 08:36:18

经典案例图书

感谢楼主分享，很不错！

淡淡的雲 · 发表于 2024-3-20 08:55:33

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢楼主分享，很不错！

京城第一官 · 发表于 2024-9-11 15:38:57

经典案例图书

suzhanpeng 发表于 2019-2-20 08:57

你好这个代码该怎么用到soil的works里面

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

有偿求助，写一个宏“从文件名分离属性”

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献