需要一个选中未完全定义零件并孤立的宏

1360321994 · 发表于 2024-4-15 10:12:08

需要一个选中未完全定义零件并孤立的宏

补充内容 (2024-4-15 17:34):
[code]Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swPart As SldWorks.PartDoc
Dim swCompFeat As SldWorks.ComponentFeature
Dim swComp As...

jinxim · 发表于 2024-4-15 10:22:22

感觉表述有问题，不明白楼主想要做什么！

沉默的人 · 发表于 2024-4-15 11:45:32

感谢楼主分享，很不错！

1360321994 · 发表于 2024-4-15 17:16:20

jinxim 发表于 2024-4-15 10:22
感觉表述有问题，不明白楼主想要做什么！

就是选择没有配合好可以移动的零件并孤立他们，看一下自己配合有没有完全定义

1360321994 · 发表于 2024-4-15 17:19:33

经典案例图书

以下代码有没有大神帮忙调试下

Sub SelectPartiallyMatedComponents()
Dim swModel As SldWorks.ModelDoc2
Dim swAssembly As SldWorks.AssemblyDoc
Dim swCompFeat As SldWorks.ComponentFeature
Dim swComp As SldWorks.Component2
Dim swMate As SldWorks.Mate2
Dim swSelectionMgr As SldWorks.SelectionMgr
Dim swSel As SldWorks.SelectionSet
Dim i As Integer, j As Integer
Dim isPartiallyMated As Boolean
' 获取当前活动的装配体文档
Set swModel = Application.SldWorks
Set swAssembly = swModel.ActiveDoc
' 确保是装配体文档
If Not swAssembly Is Nothing Then
' 获取选择管理器
Set swSelectionMgr = swModel.SelectionManager
' 创建一个新的选择集
Set swSel = swSelectionMgr.CreateSelectionSet
' 遍历装配体中的所有组件
For i = 1 To swAssembly.ComponentFeatureCount
Set swCompFeat = swAssembly.ComponentFeature(i)
Set swComp = swCompFeat.GetComponent2
' 初始化标记变量
isPartiallyMated = False
' 检查组件的每个配合
For j = 1 To swComp.MateCount
Set swMate = swComp.Mate(j)
' 检查配合状态，这里假设未解决的配合表示部分配合
If swMate.GetMateStatus() <> swMateStatus_e.swMate_FullyDefined Then
isPartiallyMated = True
Exit For ' 如果找到一个未解决的配合，就跳出循环
End If
Next j
' 如果组件至少有一个配合是未解决的，则添加到选择集
If isPartiallyMated Then
swSel.AddComponent2 swComp, swFalse
End If
Next i
' 如果找到了部分配合的组件，选择它们
If swSel.GetSelectionCount > 0 Then
swSel.Select swFalse, swFalse
swModel.ShowNamedView2 "*Isolate Components", swViewType_e.swIsometricView, 0, 0, 0, swFalse, swFalse, swFalse, swFalse, swFalse, swFalse, swWarningsStatus, swBoolStatus
Else
MsgBox "No partially mated components found."
End If
' 清理对象
Set swComp = Nothing
Set swCompFeat = Nothing
Set swMate = Nothing
Set swSel = Nothing
Set swSelectionMgr = Nothing
Set swAssembly = Nothing
Set swModel = Nothing
Else
MsgBox "Please open an assembly document first."
End If
End Sub

复制代码

1360321994 · 发表于 2024-4-15 17:35:29

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swPart As SldWorks.PartDoc
Dim swCompFeat As SldWorks.ComponentFeature
Dim swComp As SldWorks.Component
Dim swBoolStatus As Integer, swWarnings As Integer
Dim swFeatures As SldWorks.FeatureManager
Dim swFeature As SldWorks.Feature
Dim i As Long
' 获取SolidWorks应用程序实例
Set swApp = Application.SldWorks
' 获取当前活动文档
Set swModel = swApp.ActiveDoc
' 检查是否是装配体文档
If Not swModel Is Nothing Then
If swModel.GetType() = swDocPART Then
MsgBox "当前文档不是装配体，请打开一个装配体文档再试。"
Exit Sub
End If
End If
' 获取选择管理器
Set swSelMgr = swModel.SelectionManager
' 清除所有选择
swSelMgr.ClearSelection2 True
' 遍历装配体中的所有零部件
Set swFeatures = swModel.FeatureManager
For i = 1 To swFeatures.FeatureCount
Set swFeature = swFeatures.Feature(i)
If swFeature.GetType() = swFeatureComponent Then
Set swCompFeat = swFeature
Set swComp = swCompFeat.GetComponent()
' 检查零部件的配合状态
swBoolStatus = swCompFeat.GetSuppression2(swComponentState_e.swComponentState_Suppressed, swWarnings)
If swBoolStatus = 0 Then
' 零部件没有被完全配合，选取它
swSelMgr.SelectByID2 swCompFeat.GetID(), "COMPONENTFEATURE", 0, 0, 0, False, 0, Nothing, 0
End If
End If
Next i
' 孤立选取的零部件
swModel.ForceRebuild3 (swForceRebuildOptions_e.swRebuildOptions_Silent + swForceRebuildOptions_e.swRebuildOptions_KeepReferences)
swModel.ViewZoomFit2
swModel.ShowNamedView2 "*Isolated View", swViewOptions_e.swViewOptions_Silent

复制代码

xiaocake · 发表于 2024-4-15 20:10:47

经典案例图书

麻烦不要拿狗屁通(GPT)的代码来消遣大伙。。。

xxxlover · 发表于 2024-4-19 17:11:33

好好学习，天天向上！

wangyanpin · 发表于 2024-4-19 23:16:42

不太明白想要什么？不完全定义，是尺寸为加强尺寸，还是缺少配合关系？

1360321994 · 发表于 2024-4-22 21:00:01

wangyanpin 发表于 2024-4-19 23:16
不太明白想要什么？不完全定义，是尺寸为加强尺寸，还是缺少配合关系？

就是一个光轴，配合了同心和重合，但是还能旋转，就是没完全定义，还有有些没配合好的，主要是把没配合好的零件孤立出来

1360321994 · 发表于 2024-4-22 21:01:25

xiaocake 发表于 2024-4-15 20:10
麻烦不要拿狗屁通(GPT)的代码来消遣大伙。。。

所以能麻烦调试下吗，不是很了解代码，从百度AI问出来的

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

需要一个选中未完全定义零件并孤立的宏

最佳新人

宣传达人

活跃会员

热心会员

灌水之王

突出贡献