Hallo
Ik heb 30 configuraties die ik graag zou willen laten exploderen van alle versies.
Vriendelijke groeten
Hallo, ik moest de 30 een voor een doen en ik ben er nog 30 te doen...
Configuraties toegevoegd met Excel, Cool
exporteren met een macro' (als het klaar is), koel
Het maken van 30 exploderen van dezelfde assemblage met configureert, verzacht de hersenen.
Hallo, zodra je de 1e hebt laten ontploffen, kun je je ontplofte kopiëren / plakken in de andere configuraties.
En verander vervolgens wat je wilt in elke burst.
Het is duidelijk dat als al je bursts anders zijn, het geen zin heeft om te kopiëren/plakken.
Maar ik beantwoord je macrovraag niet...
Succes, nog maar 30 te gaan!
Hallo, het is me niet gelukt om te kopiëren en plakken
1- Ctrl+C, Ctrl+V
2- Sleep de exploded view naar de doelconfiguratie.
Maar typ in de sw-help: "kopie van exploded views".
Dit zal ongetwijfeld duidelijker zijn.
Goedenavond
http://help.solidworks.com/2019/French/SolidWorks/sldworks/t_Copying_Exploded_Views_Overview.htm
Cdlt
Bedankt
Het is al beter dan niets.
maar het is geen macro waard, ik heb het voor verschillende projecten nodig.
Momenteel wil de macro me laten reizen en creëert hij niet de exploded view.
Hallo
Ik had niet gemerkt dat je door een macro wilde gaan.
Het is mogelijk om van elke configuratie een configuratie te maken
Zie dit voorbeeld
http://help.solidworks.com/2019/English/api/sldworksapi/Add_Derived_Configurations_Example_VB.htm
Aan de andere kant weet ik niet of het mogelijk is om een reeds bestaande geëxplodeerde in elke configuratie te importeren.
Yannick
Bedankt
Ik gebruik Excel voor configuraties.
AddConfiguration lijkt me een goede aanknopingspunten, misschien een optie aangegeven.
Hallo
Het antwoord van de hotline
Dim swAssembly als SldWorks.AssemblyDoc
swAssembly.CreateExplodedView
Ik heb een nogal overtuigende test gedaan.
Na wat speurwerk ging ik verder
Reguliere expolde Step (VBA) toevoegen
Hierdoor kan ik de onderdelen, de richting en de afstand kiezen
Hier is het resultaat:
Dim swApp als SldWorks.SldWorks
Dim swModel als SldWorks.AssemblyDoc
Dim config As SldWorks.Configuration
Dim swMdl als SldWorks.ModelDoc2
Dim explStep als SldWorks.ExplodeStep
Dim num als dubbel
Dim comp als SldWorks.Component2
Dim var Als Variant
Dim transDir als SldWorks.Edge
Dim angleDir As SldWorks.Feature
Dim obj As SldWorks.Component2
Dim stappen als variant
Dim genesteStap als SldWorks.ExplodeStep
Dim boolstatus als Booleaanse
Dim i zo lang, j zo lang
Dim errCode zo lang mogelijk
Sub hoofd()
Stel swApp = Toepassing.SldWorks in
Stel swModel = swApp.ActiveDoc in
Set config = swModel.ConfigurationManager.ActiveConfiguration
Stel swMdl = swModel in
Aanroepen swModel.AutoExplode
Stel explStep in = configureren. GetExplodeStep(0)
configuratie. DeleteExplodeStep (explStep.Name)
'Selecteer de componenten die u wilt verplaatsen
boolstatus = swModel.Extension.SelectByID2("FO2220 18104-01D_Odace 1TL_1-1@RegularExplodeStep", "COMPONENT", 0, 0, 0, True, 1, Niets, 0)
boolstatus = swModel.Extension.SelectByID2("FO2253 Odace-ondersteuning PTM_18104-11A_-1@RegularExplodeStep", "COMPONENT", 0, 0, 0, True, 1, Nothing, 0)
'Selecteer de as van de ontploffingsrichting
boolstatus = swModel.Extension.SelectByRay(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, True, 2, 0)
'afstandsindexAfstandszijde ...
num = 3.1415 / 3
Stel explStep in = configureren. AddExplodeStep2(0.2, 0, Onwaar, getal, -1, Waar, Onwaar, Waar, errCode)
boolstatus = swModel.Extension.SelectByID2("FO2255 18104-14A_extremite Odace Styl support_1-3@RegularExplodeStep", "COMPONENT", 0, 0, 0, True, 1, Nothing, 0)
'Selecteer de as van de ontploffingsrichting
boolstatus = swModel.Extension.SelectByRay(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, True, 2, 0)
'afstandsindexAfstandszijde ...
num = 3.1415 / 3
Stel explStep in = configureren. AddExplodeStep2(0.2, 2, Onwaar, getal, -1, Waar, Onwaar, Waar, errCode)
Roep swMdl.EditRebuild3
Einde Sub