Können wir die Explosion in den verschiedenen Konfigurationen durch ein Makro automatisieren?

3D Design
1

Hallo

Ich habe 30 Konfigurationen, ich möchte alle Versionen auflösen lassen.

Herzliche Grüße

 

2

Hallo, ich musste die 30 nacheinander machen und ich habe noch 30 zu tun...

Konfigurationen mit Excel hinzugefügt, cool

Export mit einem Makro" (wenn es fertig ist), cool

Machen Sie 30 explodiert von der gleichen Baugruppe mit konfiguriert es macht das Gehirn weich. 

3

Hallo, sobald Sie die 1. Explosion durchgeführt haben, können Sie Ihre Explosion in die anderen Konfigurationen kopieren und einfügen.

Und dann ändere bei jedem Burst, was du willst.

Wenn alle Ihre Bursts unterschiedlich sind, macht es natürlich keinen Sinn, zu kopieren und einzufügen.

Aber ich beantworte Ihre Makrofrage nicht...

Viel Glück, nur noch 30 sind es!

4

Hallo, ich habe es nicht geschafft zu kopieren und einzufügen

5

1- Strg+C, Strg+V

2- Ziehen Sie die Explosionsansicht in die Zielkonfiguration.

 

Geben Sie jedoch in der SW-Hilfe Folgendes ein: "copy of exploded views".

Dies wird zweifellos klarer werden.

6

Guten Abend

http://help.solidworks.com/2019/French/SolidWorks/sldworks/t_Copying_Exploded_Views_Overview.htm

Cdlt

7

Vielen Dank
Es ist schon besser als nichts.

aber es lohnt sich nicht, ein Makro zu kaufen, ich werde es für mehrere Projekte brauchen.

Derzeit möchte das Makro mich zum Reisen bewegen und erstellt nicht die Explosionsansicht.

8

Hallo

Ich hatte nicht bemerkt, dass Sie ein Makro durchlaufen wollten.

Es ist möglich, eine Konfiguration zu erstellen, die von jeder Konfiguration abgeleitet wird

Sehen Sie sich dieses Beispiel an

http://help.solidworks.com/2019/English/api/sldworksapi/Add_Derived_Configurations_Example_VB.htm

Auf der anderen Seite weiß ich nicht, ob es möglich ist, eine bereits vorhandene Explosion in  jeder Konfiguration zu importieren.

Yannick

9

Vielen Dank
Ich verwende Excel für Konfigurationen.

AddConfiguration scheint mir ein guter Hinweis zu sein, vielleicht  eine angedeutete Option.

10

Hallo

Die Antwort der Hotline   

Dim swAssembly als SldWorks.AssemblyDoc
           

swAssembly.CreateExplodedView

Ich habe einen ziemlich aussagekräftigen Test gemacht.
   
    

     

11

Nach einigen Recherchen  ging es weiter 

Regulärer Expolde-Schritt (VBA) hinzufügen

Dies ermöglicht es mir, die Teile, die Richtung und  den Abstand zu wählen

12

Hier ist das Ergebnis:

Dim swApp als SldWorks.SldWorks
Dim swModel als SldWorks.AssemblyDoc
Dim-Konfiguration als SldWorks.Configuration
Dim swMdl As SldWorks.ModelDoc2
Dim explStep als SldWorks.ExplodeStep
Dim num As Double
Dim comp As SldWorks.Component2
Dim var als Variante
Dim transDir As SldWorks.Edge
Dim angleDir As SldWorks.Feature
Dim obj As SldWorks.Component2
Dimmstufen als Variante
Verschachtelter Schritt als SldWorks.ExplodeStep dimmen
Dim boolstatus als boolescher Wert
Dim i As Long, j As Long
Dim errCode so lange
    

Sub main()

    Legen Sie swApp = Application.SldWorks fest
    Festlegen von swModel = swApp.ActiveDoc
    Legen Sie config = swModel.ConfigurationManager.ActiveConfiguration fest
    Set swMdl = swModel
    

    Aufrufen von swModel.AutoExplode
   

    Legen Sie explStep = config fest. GetExplodeStep(0)
    

    config. DeleteExplodeStep (explStep.Name)

    "Wählen Sie die zu verschiebenden Komponenten aus

    boolstatus = swModel.Extension.SelectByID2("FO2220 18104-01D_Odace 1TL_1-1@RegularExplodeStep", "KOMPONENTE", 0, 0, 0, Wahr, 1, Nichts, 0)
    boolstatus = swModel.Extension.SelectByID2("FO2253 Odace-Unterstützung PTM_18104-11A_-1@RegularExplodeStep", "COMPONENT", 0, 0, 0, True, 1, Nichts, 0)
    
    "Wählen Sie die Achse der Explosionsrichtung
    boolstatus = swModel.Extension.SelectByRay(1, 1, 1, 1, 1, 1, 1, 1, 1, True, 2, 0)
   
    'EntfernungsindexEntfernungsseite ...
    Anzahl = 3,1415 / 3
    Legen Sie explStep = config fest. 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, Nichts, 0)
    

    "Wählen Sie die Achse der Explosionsrichtung
    boolstatus = swModel.Extension.SelectByRay(1, 1, 1, 1, 1, 1, 1, 1, 1, True, 2, 0)
   
    'EntfernungsindexEntfernungsseite ...
    Anzahl = 3,1415 / 3
    Legen Sie explStep = config fest. AddExplodeStep2(0.2, 2, False, num, -1, True, False, True, errCode)
    Aufrufen von swMdl.EditRebuild3
    

    

Ende Sub