iCAx开思网

标题: 打开装配体，遇到轻化问题。 [打印本页]

作者: ning58 时间: 2016-1-31 07:58
标题: 打开装配体，遇到轻化问题。
本帖最后由 ning58 于 2016-1-31 08:35 编辑

[attach]1230186[/attach]

Function ComponentArr(SwModel As ModelDoc2)
'Debug.Print SwModel.GetTitle
Dim oDic As New Dictionary
Dim swRootComp As Component2, SwComp As Component2
Dim SwRootConf As Configuration, vChildComp, vModel As ModelDoc2
Set SwRootConf = SwModel.GetActiveConfiguration
Set swRootComp = SwRootConf.GetRootComponent
vChildComp = swRootComp.GetChildren
For ii = 0 To UBound(vChildComp)
Set SwComp = vChildComp(ii)
Set oDic(SwComp.GetPathName) = SwComp
Next ii
''
ComponentArr = oDic.Items
End Function
Private Sub ll()
Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
Set SwApp = Application.SldWorks
Set SwModel = SwApp.ActiveDoc
Dim Arr, SwComp As Component2
Arr = ComponentArr(SwModel)
For ii = 0 To UBound(Arr)
Set SwComp = Arr(ii)
With SwComp
Debug.Print .GetPathName, .Name, .ReferencedConfiguration, .GetSuppression, .IsHidden(True)
End With
Next ii
End Sub

复制代码

运行结果，只能判断是否压缩，没法判断零件是否为轻化。

D:\JB4716\JB4716\立式支座.SldAsm       立式支座-3 耳式支座-1800-12-A8       1          True
D:\JB4716\JB4716\管箱.SLDASM             管箱-1       管箱Dn1800    2          False
D:\JB4716\JB4716\壳体管束φ38.SLDASM    壳体管束φ38-1             壳体管束 Dn1800-38L=2500    2          False
D:\JB4716\JB4716\双头螺柱.SLDPRT       双头螺柱-101  M20×170    1          True
D:\JB4716\JB4716\螺母.SldPrt             螺母-205    M20          1          True

作者: 楠柠檬、 时间: 2016-2-13 19:51
闷大有一个遍历宏，那里面是忽略压缩和轻化零件的，我觉得你可以从那个帖子扣点细节

作者: seanxujun 时间: 2016-2-14 15:42
你论坛到处问，你有看遍SolidworksAPI吗，你想用API工作，建议你先把界面调成英文的。API帮助中据我初步看有你想要的答案。自己好好看看，那样你会更快找到答案。不是每个人都像你有精力研究API的。

欢迎光临 iCAx开思网 (https://www.icax.org/)

Powered by Discuz! X3.3