求助:怎么在装配体中判断里面只有零件没有子装配体

DFFDSGG114485 · 发表于 2023-7-27 22:20:04

装配体中，判断里面只有零件，没有子装配体，求哪位大神指教

tjonline · 发表于 2023-7-29 18:04:17

这个，没有头绪

DFFDSGG114485 · 发表于 2023-7-29 22:08:58

就是判断裝配体中没有子装配体，只有一个层级，所有都是零件

DFFDSGG114485 · 发表于 2023-7-30 16:55:38

类似这样，用if判断装配体中只有零件

wjbg2019 · 发表于 2023-7-30 18:23:57

经典案例图书

你可以参考一下导bom

DFFDSGG114485 · 发表于 2023-7-30 19:54:02

这个宏我看了，里面没有这个判断

feelling2021 · 发表于 2023-10-23 19:14:49

经典案例图书

方法太多了，随便写一个 if(ListModel.where(p=>p.filename.ToUpper().Contain(".SLDASM")).Count()>1){MessageBox("有子装配体");}

DFFDSGG114485 · 发表于 2023-11-22 12:15:01

feelling2021 发表于 2023-10-23 19:14
方法太多了，随便写一个 if(ListModel.where(p=>p.filename.ToUpper().Contain(".SLDASM")).Count()>1){Mes ...

报错，哪里出问题了？有没有办法解决？

feelling2021 · 发表于 2023-11-22 12:46:05

不能乱贴啊，一个是VB，一个是C#，都不一样的语言啊

DFFDSGG114485 · 发表于 2023-11-22 22:19:55

，我小白一枚，VB怎么表达？

DFFDSGG114485 · 发表于 2023-11-22 22:20:51

不好意思，VB怎么表达呀？

samult · 发表于昨天 12:27

Dim swApp As Object
Dim swModel As Object
Dim swAsm As SldWorks.AssemblyDoc
Dim swCompTop() As Object
Dim swCompPart As Object
Dim mark As Boolean
Sub main()
mark = False
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
If Not swModel Is Nothing Then
If swModel.GetType = 2 Then
Set swAsm = swModel
swCompTop = swAsm.GetComponents(True)
For Each swComp In swCompTop
Set swCompPart = swComp.GetModelDoc()
If swCompPart.GetType = 2 Then
mark = True
Exit For
End If
Next
If mark = False Then
MsgBox "当前装配体不存在子装配体！", vbOKOnly + vbSystemModal, "检查是否存在子装配体"
Else
MsgBox "当前装配体存在子装配体！", vbOKOnly + vbSystemModal, "检查是否存在子装配体"
End If
Else
MsgBox "当前打开的文件不是装配体，请确认打开的是装配体再运行此宏！", vbOKOnly + vbSystemModal, "检查是否存在子装配体"
Exit Sub
End If
End If

End Sub

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

求助:怎么在装配体中判断里面只有零件没有子装配体

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献