Tous cacher sauf composant actif

vos questions concernant les API SolidWorks

Tous cacher sauf composant actif

Messagepar wycsil » Sam 15 Déc 2012, 19:15

Bonjour,

j'ai un assemblage ouvert et je souhaiterai faire une macro VBA pour masquer
tous les composants de l'ensemble sauf celui que je suis en train d'editer
wycsil
Ewok SolidWorks
 
Messages: 3
Inscription: Dim 26 Aoû 2012, 19:02

Re: Tous cacher sauf composant actif

Messagepar Titifonky » Dim 16 Déc 2012, 8:57

Il existe la commande Isoler qui permet de faire ça. Click-droit sur un composant et Isoler
Titifonky
Padawan SolidWorks
 
Messages: 89
Inscription: Mar 05 Avr 2011, 8:23
Localisation: Lille .............. SW Premium 2013 .......... Seven 64b

Re: Tous cacher sauf composant actif

Messagepar wycsil » Dim 16 Déc 2012, 10:03

oui mais quand tu es en tran d'etider une pièce, dans une esquisse tu n'a plus la commande isoler.
Donc si tu veux voir ou masquer l'ensemble tu ne peu plus le faire.
wycsil
Ewok SolidWorks
 
Messages: 3
Inscription: Dim 26 Aoû 2012, 19:02

Re: Tous cacher sauf composant actif

Messagepar Titifonky » Dim 16 Déc 2012, 18:18

C'est vrai, je regarde demain ce que j'ai comme macro pouvant s'adapter à ton besoin
Titifonky
Padawan SolidWorks
 
Messages: 89
Inscription: Mar 05 Avr 2011, 8:23
Localisation: Lille .............. SW Premium 2013 .......... Seven 64b

Re: Tous cacher sauf composant actif

Messagepar MarcS » Lun 17 Déc 2012, 22:39

Voici...

Dim vChild As Variant
Dim swChildComp As SldWorks.Component2
Dim SWConfig As SldWorks.Configuration
Dim swSelData As SldWorks.SelectData
Dim swSelMgr As SelectionMgr
Dim SwModel As SldWorks.ModelDoc2
Dim Sw_Ass As SldWorks.AssemblyDoc
Dim swEditModel As SldWorks.ModelDoc2
Dim Active_part As String


Set swApp = Application.SldWorks
Set Sw_Ass = swApp.ActiveDoc
If Sw_Ass Is Nothing = True Then
swApp.SendMsgToUser2 "Désolé vous devez avoir un assemblage actif pour utiliser ce programme…", swMbWarning, swMbOk
Exit Sub
End If
Set SwModel = Sw_Ass
If SwModel.GetType <> swDocASSEMBLY Then
swApp.SendMsgToUser2 "Désolé vous devez avoir un assemblage actif pour inserer cette piece…", swMbWarning, swMbOk
Exit Sub
End If

Set swSelMgr = SwModel.SelectionManager
Set swSelData = swSelMgr.CreateSelectData

Set SWConfig = Sw_Ass.GetActiveConfiguration
Set swRootComp = SWConfig.GetRootComponent
vChild = swRootComp.GetChildren
SwModel.ClearSelection2 (True)


Set swEditModel = Sw_Ass.GetEditTarget
Active_part = swEditModel.GetPathName
Set swEditModel = Nothing

For i = 0 To UBound(vChild)
SwModel.ClearSelection2 (True)
Set swChildComp = vChild(i)
Set swEditModel = swChildComp.GetModelDoc2

If Active_part = swEditModel.GetPathName Then
Else
boolstatus = swChildComp.Select4(True, swSelData, False)
Sw_Ass.HideComponent2
End If
Set swEditModel = Nothing
Next i
Set SwModel = Nothing
Set Sw_Ass = Nothing
Set swApp = Nothing
End Sub

MarcS

Si je te donne un poisson tu pourras manger Aujourd’hui
mais si je t’apprend a pêcher tu pourras manger toute ta vie !!!
Salut !

Marc S.
Avatar de l’utilisateur
MarcS
Chevalier Jedi SolidWorks
 
Messages: 311
Inscription: Mar 06 Jan 2009, 20:10
Localisation: Quebec, Quebec SolidWorks 2017 SP 1.0 & SolidWorks 2014 SP 2.0

Re: Tous cacher sauf composant actif

Messagepar wycsil » Mar 18 Déc 2012, 10:47

merci je test ca :)
wycsil
Ewok SolidWorks
 
Messages: 3
Inscription: Dim 26 Aoû 2012, 19:02


Retourner vers Questions générales sur les API

 


  • Articles en relation
    Réponses
    Vus
    Dernier message

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 5 invités

banniere

cron