求大佬帮忙把这个图号分离宏写入配置特定改成自定义

念心nx · 发表于 2023-4-26 22:43:30

经典图书

求大佬帮忙把这个图号分离宏写入的内容都改到自定义里，然后这个宏可以做成零件和装配体通用吗？

补充的内容 (2023-4-27 00:45):
好像点到收费了，帖子好像删不了，附个百度云链接
通过百度网盘分享的文件：图号分离方程式…
链接:https://pan.baidu.com/s/1pwO2X3PRM6lxAcMkM1DKJw
提取码:

游客，如果您要查看本帖隐藏内容请回复

复制这段内容打开「百度网盘APP 即可获取」

wjbg2019 · 发表于 2023-4-27 08:00:49

建议直接复制代码到消息，这个代码不长

念心nx · 发表于 2023-4-27 09:01:44

经典图书

这个是宏的代码：

Dim swApp As Object
Sub main()
'用字符串来临时存放代码
Dim s As String

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swEqnMgr As SldWorks.EquationMgr

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swEqnMgr = swModel.GetEquationMgr

Set CurCFG = swModel.GetActiveConfiguration()
ConfName = CurCFG.Name
'建立两个属性（代号代码和名称代码）
blnretval = swModel.AddCustomInfo3(ConfName, "代号代码", swCustomInfoText, frmPartID)
blnretval = swModel.AddCustomInfo3(ConfName, "名称代码", swCustomInfoText, frmPartID)

'为代号代码属性赋值
s = "part.Extension.CustomPropertyManager("""").Add3(""代号"", swCustomInfoText, Left(part.GetTitle, InStrRev(part.GetTitle, "" "") - 1), 1)"
dummy = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name).Set("代号代码", s)
'为名称代码属性赋值
s = "part.Extension.CustomPropertyManager("""").Add3(""名称"", swCustomInfoText,Mid(part.GetPathName, InStrRev(part.GetPathName, "" "") + 1, InStrRev(part.GetPathName, ""."") - InStrRev(part.GetPathName, "" "") - 1), 1)"
dummy = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name).Set("名称代码", s)

'将代号代码和名称代码属性添加到全局变量A和B
swEqnMgr.Add2 0, ("""A"" = ""代号代码"""), False
swEqnMgr.Add2 0, ("""B"" = ""名称代码"""), False

End Sub

1234567890ss · 发表于 2023-4-27 10:28:20

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

cj8510 · 发表于 2023-4-28 07:22:34

经典案例图书

这个分离的方法是挺好的，命名格式统一自动分离。

cun114 · 发表于 2023-4-29 11:52:41

很不错，顶一下！

HAIOOO22 · 发表于 2023-6-7 00:28:08

经典案例图书

念心nx 发表于 2023-4-27 09:01
这个是宏的代码：

Dim swApp As Object

好厉害啊兄弟！装配体的宏可以弄吗？

zsl169 · 发表于 2023-6-12 15:39:05

我有好几个版本的

508399311 · 发表于 2023-11-24 09:43:03

感谢分享，下载试试看

随遇而安9528 · 发表于 2023-12-4 10:39:25

经典图书

顶一下，坐等高手！

fcSW工程师 · 发表于 2023-12-6 08:12:12

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

fcSW工程师 · 发表于 2023-12-6 08:13:12

顶一下，坐等高手！

mafanzhong · 发表于 2023-12-7 13:11:24

学习学习，好东西，学习学习，好东西

bingdonghuoyan · 发表于 2023-12-11 22:37:55

学习一下楼主辛苦

suetee · 发表于 2024-3-12 13:33:33

加入QQ群
参与讨论和学习

或扫描二维码加入

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

zbdx123 · 发表于 2024-3-22 15:26:25

经典案例图书

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

s1059277510 · 发表于 2024-6-3 11:35:47

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢楼主分享

wangxinjie123 · 发表于 2024-6-5 09:05:25

经典案例图书

楼主太有才了，膜拜中……

893159804 · 发表于 2025-1-9 17:01:53

感谢楼主分享，很不错！

383237929 · 发表于 2025-1-9 21:45:28

活到老学到老！

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

求大佬帮忙把这个图号分离宏写入配置特定改成自定义

浏览过的版块

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献