Bonjour, j'ai arrivé à cacher toutes les pièces d'assemblage dans solidworks automatiquement en utilisant VB.net. mais j'ai trouvé des soucis à afficher quelque pièces pour les utiliser par la suite.
j'a' essayé ce code la
Sub ShowComp(swApp As SldWorks, swModel As ModelDoc2, swComp As Component2)
Dim vChildArr As Object
Dim vChild As Object
Dim swChildComp As Component2
Dim swComponentVisible As Integer = 1
swComp.Visible = swComponentVisible
vChildArr = swComp.GetChildren
For Each vChild In vChildArr
swChildComp = vChild
swChildComp.Visible = swComponentVisible
ShowComp(swApp, swModel, swChildComp)
Next vChild
End Sub
sub main ()
Dim vSelComp As Object
Dim swSelComp As Component2
Dim swApp As New SldWorks
Dim swModel As ModelDoc2
For Each vSelComp In vSelCompArr
swSelComp = vSelComp
ShowComp(swApp, swModel, swSelComp)
Next vSelComp
end sub
il y a un problème au niveau de vSelComp, parce que les pièces que j'ai sont sous formes des string, et swSelComp est Component2.
est ce que vous avez une idée comment peut-on résoudre ce problème? ou avez vous d'autre solution? et merci