Witam
Mam 30 konfiguracji chciałbym mieć rozstrzelone wszystkie wersje.
Pozdrowienia
Witam, musiałem zrobić 30 jeden po drugim i mam jeszcze 30 do zrobienia...
Dodano konfiguracje z Excelem, fajne
Eksportuj z makrem' (po zakończeniu), fajne
Zrobienie 30 eksplodujących z tego samego zestawu z konfiguracjami zmiękcza mózg.
Witaj, po dokonaniu pierwszego wybuchu, możesz skopiować/wkleić swój rozstrzelony do innych konfiguracji.
A następnie zmień to, co chcesz w każdej serii.
Oczywiście, jeśli wszystkie twoje serie są różne, nie ma sensu kopiować/wklejać.
Ale nie odpowiadam na twoje pytanie makro...
Powodzenia, zostało jeszcze tylko 30!
Witam, nie udało mi się skopiować i wkleić
1- Ctrl+C, Ctrl+V
2- Przeciągnij widok rozstrzelony do konfiguracji docelowej.
Ale w pomocy sw wpisz: "kopia widoków rozstrzelonych".
To z pewnością stanie się jaśniejsze.
Dobry wieczór
http://help.solidworks.com/2019/French/SolidWorks/sldworks/t_Copying_Exploded_Views_Overview.htm
Cdlt powiedział:
Dziękuję
To już lepsze niż nic.
ale nie jest wart makro, będę go potrzebował do kilku projektów.
Obecnie makro chce zmusić mnie do podróży i nie tworzy widoku rozstrzelonego.
Witam
Nie zauważyłem, że chcesz przejść przez makro.
Możliwe jest utworzenie konfiguracji pochodnej każdej konfiguracji
Zobacz ten przykład
http://help.solidworks.com/2019/English/api/sldworksapi/Add_Derived_Configurations_Example_VB.htm
Z drugiej strony nie wiem, czy jest możliwość zaimportowania już istniejącego rozstrzelonego w każdej konfiguracji.
Yannicka
Dziękuję
Do konfiguracji używam Excela.
AddConfiguration wydaje mi się dobrym tropem, być może wskazaną opcją.
Witam
Odpowiedź gorącej linii
Dim swAssembly jako SldWorks.AssemblyDoc
swAssembly.CreateExplodedView
Zrobiłem dość jednoznaczny test.
Po kilku poszukiwaniach poszedłem dalej
Dodaj krok zwykłego wyprowadzenia (VBA)
To pozwala mi wybrać części, kierunek i odległość
Oto wynik:
Dim swApp jako SldWorks.SldWorks
Przyciemnij swModel jako SldWorks.AssemblyDoc
Przyciemnij konfigurację jako SldWorks.Configuration
Dim swMdl jako 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
Przyciemnij stopnie jako wariant
Dim nestedStep As SldWorks.ExplodeStep
Dim boolstatus As Boolean
Dim i As Long, j As Long
Dim errKod tak długo
Sub main()
Ustaw swApp = Application.SldWorks
Ustaw swModel = swApp.ActiveDoc
Set config = swModel.ConfigurationManager.ActiveConfiguration
Ustaw swMdl = swModel
Wywołanie metody swModel.AutoExplode
Ustaw explStep = config. GetExplodeStep(0) (PobierzKrokRozstrzelenia)
konfiguracji. DeleteExplodeStep (explStep.Name)
'Wybierz komponenty, które chcesz przesunąć
boolstatus = swModel.Extension.SelectByID2("FO2220 18104-01D_Odace 1TL_1-1@RegularExplodeStep", "KOMPONENT", 0, 0, 0, Prawda, 1, Nic, 0)
boolstatus = swModel.Extension.SelectByID2("FO2253 Obsługa Odace PTM_18104-11A_-1@RegularExplodeStep", "KOMPONENT", 0, 0, 0, Prawda, 1, Nic, 0)
'Wybierz oś kierunku rozbicia
boolstatus = swModel.Extension.SelectByRay(1, 1, 1, 1, 1, 1, 1, 1, 1, True, 2, 0)
'distance indexDistance side ...
liczba = 3.1415 / 3
Ustaw explStep = config. AddExplodeStep2(0,2, 0, Fałsz, liczba, -1, Prawda, Fałsz, Prawda, errCode)
boolstatus = swModel.Extension.SelectByID2("FO2255 18104-14A_extremite Odace Styl support_1-3@RegularExplodeStep", "KOMPONENT", 0, 0, 0, Prawda, 1, Nic, 0)
'Wybierz oś kierunku rozbicia
boolstatus = swModel.Extension.SelectByRay(1, 1, 1, 1, 1, 1, 1, 1, 1, True, 2, 0)
'distance indexDistance side ...
liczba = 3.1415 / 3
Ustaw explStep = config. AddExplodeStep2(0,2, 2, False, num, -1, True, False, True, errCode)
Wywołaj swMdl.EditRebuild3
Koniec subwoofera