哪位大佬能将这个图号分离宏（带方程式）修改为遍历宏

dx198716 · 发表于 2024-7-10 11:20:39

经典图书

哪位大佬能将这个图号分离宏（带方程式）修改为遍历宏将这个宏，修改可以遍历正在打开的装配体，并对装配体下的每个零件进行遍历宏的操作。里面的“零件号”和“Description”等识别字不变。非常感谢！
下面是宏程序的代码（附件中也有宏程序可下载）

' ******************************************************************************
' 利用方程式实现图号分离.swp - By Allate, 2022-12-30
' ******************************************************************************
' 说明：
' 1. 本宏自动添加自定义属性代码以及方程式，再利用方程式进行图号分离；
' 2. 图号分离利用的符号是【空格】。

Option Explicit

Sub main()
Dim swApp          As SldWorks.SldWorks
Dim swModel       As SldWorks.ModelDoc2

On Error Resume Next
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

If swModel.GetType = 1 Then
      swModel.AddCustomInfo3 "", "零件号代码", swCustomInfoText, "Part.Extension.CustomPropertyManager("""").Set(""零件号"",Left(Part.GetTitle,InStr(Part.GetTitle,"" "")))"
      swModel.AddCustomInfo3 "", "Description代码", swCustomInfoText, "Part.Extension.CustomPropertyManager("""").Set(""Description"",split(split(split(Part.GetTitle,"" "")(1),"".sld"")(0),"".SLD"")(0))"
      swModel.AddCustomInfo3 "", "零件号", swCustomInfoText, ""
      swModel.AddCustomInfo3 "", "Description", swCustomInfoText, ""
      swModel.GetEquationMgr.Add2 0, "code = ""零件号代码""", True
      swModel.GetEquationMgr.Add2 1, "name = ""Description代码""", True
ElseIf swModel.GetType = 2 Then
      swModel.AddCustomInfo3 "", "零件号代码", swCustomInfoText, "Assembly.Extension.CustomPropertyManager("""").Set(""零件号"",Left(Assembly.GetTitle,InStr(Assembly.GetTitle,"" "")))"
      swModel.AddCustomInfo3 "", "Description代码", swCustomInfoText, "Assembly.Extension.CustomPropertyManager("""").Set(""Description"",split(split(split(Assembly.GetTitle,"" "")(1),"".sld"")(0),"".SLD"")(0))"
      swModel.AddCustomInfo3 "", "零件号", swCustomInfoText, ""
      swModel.AddCustomInfo3 "", "Description", swCustomInfoText, ""
      swModel.GetEquationMgr.Add2 0, "code = ""零件号代码""", True
      swModel.GetEquationMgr.Add2 1, "name = ""Description代码""", True
End If
swModel.ForceRebuild3 False

End Sub

c13579 · 发表于 2024-7-10 15:05:39

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

XUEHAN945 · 发表于 2024-7-10 15:05:55

经典图书

顶一下，坐等高手！

沉默的人 · 发表于 2024-7-11 08:31:57

顶一下，坐等高手！

wg1266 · 发表于 2024-7-13 08:43:36

经典案例图书

顶一下，坐等高手！

wg1266 · 发表于 2024-7-14 11:09:18

这个不难，找个遍历宏。把里面代码微改以下就可以了。

LauYoung · 发表于 2024-7-14 11:10:48

经典案例图书

楼主辛苦了！

coulwind · 发表于 2024-7-15 23:01:05

顶一下，坐等高手！

dx198716 · 发表于 2024-7-16 09:13:25

wg1266 发表于 2024-7-14 11:09
这个不难，找个遍历宏。把里面代码微改以下就可以了。

上面附件中有代码和宏程序，能不能帮忙改一下，我改过两次，没修改好。感谢

wg1266 · 发表于 2024-7-16 20:58:48

经典图书

dx198716 发表于 2024-7-16 09:13
上面附件中有代码和宏程序，能不能帮忙改一下，我改过两次，没修改好。感谢

你论坛找大A的遍历图号分离。在这个基础上改容易些。

葛特曼 · 发表于 2024-8-3 18:48:38

swModel.GetEquationMgr.Add2 0, ("""A"" = ""代号代码"""), False

z460515477 · 发表于 2024-8-6 16:11:24

遍历宏改的好像子零件方程

123133 · 发表于 2024-10-8 11:17:02

好好学习，天天向上！

zhufuqqwen · 发表于 2024-10-20 09:52:21

好好学习，天天向上！

zhufuqqwen · 发表于 2024-10-20 10:27:41

加入QQ群
参与讨论和学习

或扫描二维码加入

好好学习，天天向上！

zhufuqqwen · 发表于 2024-10-20 11:43:07

经典案例图书

好好学习，天天向上！

dx198716 · 发表于 2025-1-10 08:22:27

加入QQ群
参与讨论和学习

或扫描二维码加入

葛特曼发表于 2024-8-3 18:48
swModel.GetEquationMgr.Add2 0, ("""A"" = ""代号代码"""), False

这是怎么改的，能写全吗，非常感谢

cwzjd123 · 发表于 2025-1-13 22:10:05

经典案例图书

好好学习，天天向上

葛特曼 · 发表于 2025-1-24 14:02:42

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

xiaozhe0581 · 发表于 2025-2-24 14:47:10

顶一下，坐等高手！

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

哪位大佬能将这个图号分离宏（带方程式）修改为遍历宏

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献