SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 求大佬帮忙把这个图号分离宏写入配置特定改成自定义 [打印本页]
作者: 念心nx    时间: 2023-4-26 22:43
标题: 求大佬帮忙把这个图号分离宏写入配置特定改成自定义
求大佬帮忙把这个图号分离宏写入的内容都改到自定义里，然后这个宏可以做成零件和装配体通用吗？




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

1.png

2.png

Snipaste_2023-04-26_22-43-10.png

图号分离 方程式.rar

（8.51 KB, 下载次数: 60 ）

作者: wjbg2019    时间: 2023-4-27 08:00
建议直接复制代码到消息，这个代码不长
作者: 念心nx    时间: 2023-4-27 09:01
这个是宏的代码：

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
SW机械工程师网，找到组织了！
作者: cj8510    时间: 2023-4-28 07:22
这个分离的方法是挺好的，命名格式统一自动分离。
作者: cun114    时间: 2023-4-29 11:52
很不错，顶一下！
作者: HAIOOO22    时间: 2023-6-7 00:28
念心nx 发表于 2023-4-27 09:01
这个是宏的代码：

Dim swApp As Object

好厉害啊兄弟！装配体的宏可以弄吗？
作者: zsl169    时间: 2023-6-12 15:39
我有好几个版本的
作者: 508399311    时间: 2023-11-24 09:43
感谢分享，下载试试看
作者: 随遇而安9528    时间: 2023-12-4 10:39
顶一下，坐等高手！
作者: fcSW工程师    时间: 2023-12-6 08:12
SW机械工程师网，找到组织了！
作者: fcSW工程师    时间: 2023-12-6 08:13
顶一下，坐等高手！
作者: mafanzhong    时间: 2023-12-7 13:11
学习学习，好东西，学习学习，好东西
作者: bingdonghuoyan    时间: 2023-12-11 22:37
学习一下 楼主辛苦
作者: suetee    时间: 2024-3-12 13:33
SolidWorks机械工程师网，顶一下。
作者: zbdx123    时间: 2024-3-22 15:26
SolidWorks机械工程师网，顶一下。
作者: s1059277510    时间: 2024-6-3 11:35
感谢楼主分享
作者: wangxinjie123    时间: 2024-6-5 09:05
楼主太有才了，膜拜中……
作者: 893159804    时间: 2025-1-9 17:01
感谢楼主分享，很不错！
作者: 383237929    时间: 2025-1-9 21:45
活到老学到老！
作者: 葛特曼    时间: 2025-4-26 18:35
SolidWorks机械工程师网，顶一下。



欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/) Powered by Discuz! X3.2