Bonjour,
j ai des 30 configurations je voudrais avoir les éclaté des toutes les versions.
Cordialement
Bonjour, j ai du faire les 30 une par une et j en est 30 de plus a faire...
rajouté des configs avec excel, cool
exporter avec une macro' (quand elle sera fini), cool
faire 30 éclaté d'un même assemblage avec des configures cela ramolli le cerveau.
bonjour, une fois que tu as realise le 1er eclate, tu peux copier/coller ton eclate dans les autres configurations.
Et ensuite modifier ce que tu souhaites dans chaque eclate.
Evidement, si tous tes eclates sont differents, cela n'a aucun sens de copier/coller.
Mais je ne repond pas a ta question de macro...
Bon courage, plus que 30 a faire !
Bonjour, je n 'est pas réussi le copier collé
1- ctrl+c, ctrl+v
2- faire glisser la vue eclatee vers la configuration cible.
Mais dans l'aide sw, tapes : "copie des vues eclatees".
Cela sera sans doute plus clair.
Bonsoir,
http://help.solidworks.com/2019/French/SolidWorks/sldworks/t_Copying_Exploded_Views_Overview.htm
Cdlt
Merci,
c est déjà mieux que rien.
mais cela ne vaux pas une Macro, je vais en avoir besoin pour plusieur projet.
actuelement la macro veux me faire des deplacements et ne me crèe pas le vue éclaté.
Bonjour,
Je n'avais pas fait attention que vous vouliez passer par une macro.
Il est possible de créer une configuration dérivée de chaque configuration
Voir cette exemple
http://help.solidworks.com/2019/English/api/sldworksapi/Add_Derived_Configurations_Example_VB.htm
Par contre je ne sais pas s'il est possible d'importer un éclaté déja existant dans chaque configuration.
Yannick
Merci,
j utilise excel pour les configurations.
AddConfiguration me semble une bonne piste, peut être une option a indiqué.
Bonjour,
La réponce de la hot ligne
Dim swAssembly As SldWorks.AssemblyDoc
swAssembly.CreateExplodedView
j'ai fait un teste plutot concluant.
Après quelque recherche je suis partie sur
Add Regular expolde Step (VBA)
cela me permet de choisir les pièces la direction et la distance
Voici le resulta
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.AssemblyDoc
Dim config As SldWorks.Configuration
Dim swMdl As SldWorks.ModelDoc2
Dim explStep As SldWorks.ExplodeStep
Dim num As Double
Dim comp As SldWorks.Component2
Dim var As Variant
Dim transDir As SldWorks.Edge
Dim angleDir As SldWorks.Feature
Dim obj As SldWorks.Component2
Dim steps As Variant
Dim nestedStep As SldWorks.ExplodeStep
Dim boolstatus As Boolean
Dim i As Long, j As Long
Dim errCode As Long
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set config = swModel.ConfigurationManager.ActiveConfiguration
Set swMdl = swModel
Call swModel.AutoExplode
Set explStep = config.GetExplodeStep(0)
config.DeleteExplodeStep (explStep.Name)
'Select the components to move
boolstatus = swModel.Extension.SelectByID2("FO2220 18104-01D_Odace 1TL_1-1@RegularExplodeStep", "COMPONENT", 0, 0, 0, True, 1, Nothing, 0)
boolstatus = swModel.Extension.SelectByID2("FO2253 Odace support PTM_18104-11A_-1@RegularExplodeStep", "COMPONENT", 0, 0, 0, True, 1, Nothing, 0)
'Select the axis of explode direction
boolstatus = swModel.Extension.SelectByRay(1, 1, 1, 1, 1, 1, 1, 1, True, 2, 0)
'distance indexDistance coté ...
num = 3.1415 / 3
Set explStep = config.AddExplodeStep2(0.2, 0, False, num, -1, True, False, True, errCode)
boolstatus = swModel.Extension.SelectByID2("FO2255 18104-14A_extremite Odace Styl support_1-3@RegularExplodeStep", "COMPONENT", 0, 0, 0, True, 1, Nothing, 0)
'Select the axis of explode direction
boolstatus = swModel.Extension.SelectByRay(1, 1, 1, 1, 1, 1, 1, 1, True, 2, 0)
'distance indexDistance coté ...
num = 3.1415 / 3
Set explStep = config.AddExplodeStep2(0.2, 2, False, num, -1, True, False, True, errCode)
Call swMdl.EditRebuild3
End Sub