[size=16.002px]以下是一个VBA宏代码，用于在SolidWorks装配体中查看选定零件的自定义属性：

使用方程式后再删除方程后，修改尺寸时未知原因经常会出现尺寸只读，无法修改，能否选中该尺寸后能获取该名称，以方便重新输入方程式，求助这个功能的宏

如题

这是一个特殊主题，点这里可以回原帖查看详细内容

Dim swApp As Object
Dim swModel As ModelDoc2
Dim swAssembly As AssemblyDoc
Dim swComp As Component2
Dim swMates As Mates2
Dim swMate As Mate2
Dim i As Long
' 获取SolidWorks应用程序对象
Set swApp = Application.SldWorks
' 获取当前活动文档
Set swModel = swApp.ActiveDoc
' 检查文档是否为装配体
If swModel.GetType() swDocASSEMBLY Then
MsgBox "当前文档不是装配体。"
Exit Sub
End If
' 获取装配体对象
Set swAssembly = swModel.Extension.GetAssemblyDoc
' 获取装配体中的所有配合
Set swMates = swAssembly.GetMates2(False)
' 遍历所有配合
For i = 0 To swMates.GetCount() - 1
Set swMate = swMates.Item(i)
' 在这里添加检查配合有效性的逻辑
' ...
' 如果配合无效，则删除它（注意：这里的删除逻辑是假设性的，需要你自己实现）
' swMates.Remove(i) ' 注意：实际的API可能没有直接提供Remove方法，你需要使用其他方式删除配合
' 注意：由于删除配合可能会改变配合集合的索引，因此你可能需要调整循环逻辑或使用其他方法来跟踪要删除的配合
Next i
' 重新启用重建（可选）
swModel.ViewOnly = False
...查看全文

分享一些工程图资料给大家共同学习
[/hide]

各位大神，SolidWorks2025小金球已经显示开了，图形却没有效果，这是怎么回事？求各位大神解决！

分享一个管件的模型库。有需要的可以自己去下载。供参考学习！
通过网盘分享的文件：管件模型库
链接: https://pan.baidu.com/s/1zS81rMqVyncTnBgDKb3CmA

Dim swApp As Object
Dim swModel As ModelDoc2
Dim swAssembly As AssemblyDoc
Dim swComp As Component2
Dim swMates As Mates2
Dim swMate As Mate2
Dim i As Long
' 获取SolidWorks应用程序对象
Set swApp = Application.SldWorks
' 获取当前活动文档
Set swModel = swApp.ActiveDoc
' 检查文档是否为装配体
If swModel.GetType() swDocASSEMBLY Then
MsgBox "当前文档不是装配体。"
Exit Sub
End If
' 获取装配体对象
Set swAssembly = swModel.Extension.GetAssemblyDoc
' 获取装配体中的所有配合
Set swMates = swAssembly.GetMates2(False)
' 遍历所有配合
For i = 0 To swMates.GetCount() - 1
Set swMate = swMates.Item(i)
' 在这里添加检查配合有效性的逻辑
' ...
' 如果配合无效，则删除它（注意：这里的删除逻辑是假设性的，需要你自己实现）
' swMates.Remove(i) ' 注意：实际的API可能没有直接提供Remove方法，你需要使用其他方式删除配合
' 注意：由于删除配合可能会改变配合集合的索引，因此你可能需要调整循环逻辑或使用其他方法来跟踪要删除的配合
Next i
' 重新启用重建（可选）
swModel.ViewOnly = False
...查看全文