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

KEMIRWU · 发表于 2019-2-17 17:39:35

经典图书

各位大侠：
因为设计需要，公司有偿求助大家，写一个宏“从文件名分离属性” 具体要求为
零件体和装配体文件名称为“_AAA_BBB_CCC_DDD” A对应属性“品牌” ，B对应属性“名称”，C对应属性“规格”，D对应属性为“备注”.

。请各位能人多多关注。如需联系我请私信于我。谢谢！适用好后必有重金！

KEMIRWU · 发表于 2019-2-17 17:54:49

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

KEMIRWU · 发表于 2019-2-18 09:56:06

经典图书

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

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

Dim swApp As Object
Dim swModel As SldWorks.ModelDoc2
Dim swNames As String
Dim a As String
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
swNames = swApp.ActiveDoc.GetTitle() '获取零件名
a = Left(swNames, Len(swNames) - 7) '去掉后缀名
b = Split(a, "_") '以“_”分割文件名称并放入数组b中。
With swModel
.DeleteCustomInfo2 "", "品牌" '删除自定义中“品牌”的属性。
.AddCustomInfo3 "", "品牌", 30, b(1) '写入品牌属性
.DeleteCustomInfo2 "", "名称"
.AddCustomInfo3 "", "名称", 30, b(2)
.DeleteCustomInfo2 "", "规格"
.AddCustomInfo3 "", "规格", 30, b(3)
.DeleteCustomInfo2 "", "备注"
.AddCustomInfo3 "", "备注", 30, b(4)
End With
End Sub

复制代码

KEMIRWU · 发表于 2019-2-18 10:10:34

经典案例图书

我适用一下。

KEMIRWU · 发表于 2019-2-18 10:12:18

谢谢

KEMIRWU · 发表于 2019-2-18 11:20:19

经典案例图书

非常好用，谢谢你！太感谢了。
现在有种情况应该不能实现，文件名称为“_AAA_BBB_CCC” 只有三个代码的文件会报错。实际是有三个映射属性出现的。

hdgd501 · 发表于 2019-2-18 12:53:35

solidworks论坛，顶一下。

suzhanpeng · 发表于 2019-2-18 13:00:21

加个错误处理

suzhanpeng · 发表于 2019-2-18 13:06:37

经典图书

在Sub main()的下面加上On Error Resume Next

KEMIRWU · 发表于 2019-2-19 08:32:21

suzhanpeng 发表于 2019-2-18 13:06
在Sub main()的下面加上On Error Resume Next

实不相瞒，我不会写。现在是不能只是报错，而且也需要分割赋值。

KEMIRWU · 发表于 2019-2-19 08:33:42

suzhanpeng 发表于 2019-2-18 13:06
在Sub main()的下面加上On Error Resume Next

实不相瞒，我不会写。现在是不能只是报错，而且也需要分割赋值。

jun.lou · 发表于 2019-2-19 10:25:40

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

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

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

复制代码

KEMIRWU · 发表于 2019-2-20 09:16:36

加入QQ群
参与讨论和学习

或扫描二维码加入

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

试过了。可以用，谢谢！

xiabutan · 发表于 2019-2-21 07:11:45

经典案例图书

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

给你重金了吗

suzhanpeng · 发表于 2019-2-22 09:38:23

加入QQ群
参与讨论和学习

或扫描二维码加入

木有

KEMIRWU · 发表于 2019-2-22 13:29:39

经典案例图书

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

我私信给你了。你这个需要多少费用，请你提出来。

KEMIRWU · 发表于 2019-2-22 13:31:19

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

重金会有的，我私信给你了。这个需要多少费用，请提出来一下。

xiabutan · 发表于 2019-2-23 07:21:18

KEMIRWU 发表于 2019-2-22 13:31
重金会有的，我私信给你了。这个需要多少费用，请提出来一下。

你说的重金得看你自己所谓的重金给多少了，你这样问，人怎么猜你口中的重金

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

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

等待重金！！！！

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献