Podczas uruchamiania głównego suba z edytora za pomocą F8 pokazuje mi błąd brakującego projektu lub biblioteki:
A patrząc na błąd lepiej rozumiem brakującą bibliotekę (SW2023)
Może masz ten sam problem. Którą wersję oprogramowania posiadasz?
@m_blt Chciałem rzucić okiem z ciekawości i zainteresowania, ponieważ ogólnie rzecz biorąc, twoje makra mnie urzekają! 
Edit: odznaczając czego brakuje i sprawdzając 3 biblioteki w wersji 2020 działa!
Po raz kolejny jestem zdumiony tym kodem:
Makro nie działa na części, ponieważ przechodzi przez drzewo budowania złożenia. Już tam powinien być ten komunikat:
Osobiście testowałem makro na kilku złożeniach, z których " najcięższy " miał 278 części, nie zauważając żadnej anomalii. Jeśli makro zostanie uruchomione bez wybierania żadnych obiektów, powinna być przynajmniej widoczna karta UserForm.
Potwierdzam podejrzenia @sbadenis : usterka może być spowodowana brakiem pewnych odniesień do obiektów VBA. Oto te, których używam z wersją 2023 SolidWorks:
Sprawdź również, czy wyświetlacz szkicu jest aktywowany w złożeniu, nigdy nie wiadomo...
Kolejna wskazówka: makro zostało napisane za pomocą SW 2023. Być może nie ma żadnej funkcji, jeśli używasz starszej wersji. Nawet jeśli powinien zostać wyświetlony komunikat o błędzie... Sądząc po ilustracji jego przesłania, @sbadenis sprawiło, że zadziałało to w wersji z 2020 roku
Czy zespół, na którym testowałeś makro, ma jakąś cechę, która uniemożliwia jego poprawne działanie? Powinieneś udostępnić jeden ze swoich zestawów i określić, której wersji oprogramowania używasz.
@m_blt
Kiedy widzę tę pracę, mówię sobie, że nadszedł czas, abym wziął tangens, który jest równoległy do płaszczyzny. Poza tym dobra oferta jest zawsze mile widziana.
C dlt
Zastosowałem zmiany w referencjach, sprawdzając 2022 dla mojej wersji:
A makro działało dobrze, jest TOP @m_blt 
:
Właśnie zmieniłem ptLoc długości i głębokości sześcianu, które dla mnie były odwrócone (ptLoc(4) i (1)), a także precyzję, aby nie mieć ułamka dziesiętnego:
UserForm1.Label3.Caption = "Longueur du cube : " & Format(longueur(ptLoc(0), ptLoc(4)), "#####0")
UserForm1.Label4.Caption = "Largeur du cube : " & Format(longueur(ptLoc(0), ptLoc(2)), "#####0")
UserForm1.Label5.Caption = "Profondeur du cube : " & Format(longueur(ptLoc(0), ptLoc(1)), "#####0")
Jest IDEALNY.
Z drugiej strony chciałbym pobrać te wartości i skojarzyć je ze zmiennymi we wszystkich konfiguracjach, ale nie wiem gdzie i jak (sub, funkcja ...) Muszę wstawić to:
Dim i As Integer
Dim tConfig() As String
Dim swErrors As Long
Dim swWarnings As Long
Do
'récupère le document actif dans SW
Set swModel = swApp.ActiveDoc
If Not swModel Is Nothing Then
'Boucle sur toutes les configurations
tConfig = swModel.GetConfigurationNames
For i = 0 To UBound(tConfig)
'ajoute un propriété personnalisée "DIM-Lo"
'Chr(34) permet d'ajouter le caractère "
bRet = swModel.DeleteCustomInfo2(tConfig(i), "DIM-Lo")
bRet = swModel.AddCustomInfo3(tConfig(i), "DIM-Lo", swCustomInfoText, Chr(34) & Format(longueur(ptLoc(0), ptLoc(4)), "#####0") & Chr(34))
'ajoute un propriété personnalisée "DIM-La"
'Chr(34) permet d'ajouter le caractère "
bRet = swModel.DeleteCustomInfo2(tConfig(i), "DIM-La")
bRet = swModel.AddCustomInfo3(tConfig(i), "DIM-La", swCustomInfoText, Chr(34) & Format(longueur(ptLoc(0), ptLoc(2)), "#####0") & Chr(34))
'ajoute un propriété personnalisée "DIM-Ha"
'Chr(34) permet d'ajouter le caractère "
bRet = swModel.DeleteCustomInfo2(tConfig(i), "DIM-Ha")
bRet = swModel.AddCustomInfo3(tConfig(i), "DIM-Ha", swCustomInfoText, Chr(34) & Format(longueur(ptLoc(0), ptLoc(1)), "#####0") & Chr(34))
Next i
Czy masz dla mnie jakiś trop?
Witam @m_blt Bravo i dziękuję za makro. Tylko mała sugestia; Określ osie xyz wskazanych wymiarów, na przykład w nawiasach, ponieważ szerokość i długość, głębokość jest co najmniej względna.
Cze wszystkim
Ostatnia (?) odpowiedź...
, dodałem lokalny układ współrzędnych w początku sześcianu, którego osie są wyrównane z krawędziami. W celu identyfikacji kierunków X, Y i Z.Jeszcze raz dziękuję @m_blt
Działa bardzo dobrze 
Mam różnicę w dokładności wyników między oknem dialogowym a zmiennymi we właściwościach (F8):
Jednak zastosowałem ten sam FORMAT w kodzie między tym, co jest wyświetlane w oknie dialogowym i we właściwościach (F8):
Dim valLONG As Variant
Dim valLARG As Variant
Dim valHAUT As Variant
Set ptLoc(0) = creationPt(min(0), min(1), min(2))
Set ptLoc(1) = creationPt(max(0), min(1), min(2))
Set ptLoc(2) = creationPt(min(0), max(1), min(2))
Set ptLoc(3) = creationPt(max(0), max(1), min(2))
Set ptLoc(4) = creationPt(min(0), min(1), max(2))
Set ptLoc(5) = creationPt(max(0), min(1), max(2))
Set ptLoc(6) = creationPt(min(0), max(1), max(2))
Set ptLoc(7) = creationPt(max(0), max(1), max(2))
For iPt = 0 To 7
Set ptLoc(iPt) = ptLoc(iPt).MultiplyTransform(RgToCube)
Next iPt
TraceBox ptLoc
lgAreteCube(0) = CalculLongueur(ptLoc(0), ptLoc(1))
lgAreteCube(1) = CalculLongueur(ptLoc(0), ptLoc(2))
lgAreteCube(2) = CalculLongueur(ptLoc(0), ptLoc(4))
UserForm1.Label3.Caption = "DIM-Lo : " & Format((lgAreteCube(2) / 10), "#####0")
UserForm1.Label4.Caption = "DIM-La : " & Format((lgAreteCube(0) / 10), "#####0")
UserForm1.Label5.Caption = "DIM-Ha : " & Format((lgAreteCube(1) / 10), "#####0")
UserForm1.CommandButton3.Enabled = True
valLONG = (Format((lgAreteCube(2) / 10), "#####0"))
valLARG = (Format((lgAreteCube(0) / 10), "#####0"))
valHAUT = (Format((lgAreteCube(1) / 10), "#####0"))
swConfNames = swModel.GetConfigurationNames ' Liste des noms de configurations
For iPt = LBound(swConfNames) To UBound(swConfNames) ' Boucle sur les configs
Set swCstPropMgr = swModel.Extension.CustomPropertyManager(swConfNames(iPt))
swCstPropMgr.Add3 "DIM-Lo", swCustomInfoDouble, valLONG, swCustomPropertyReplaceValue
swCstPropMgr.Add3 "DIM-La", swCustomInfoDouble, valLARG, swCustomPropertyReplaceValue
swCstPropMgr.Add3 "DIM-Ha", swCustomInfoDouble, valHAUT, swCustomPropertyReplaceValue
Next iPt
End Sub
Testowałem, zmieniając ułamki dziesiętne w ustawieniach mojego modułu programowego, ale to nic nie zmienia.
Czy masz pojęcie, skąd bierze się problem?
Ponieważ nie chcesz ułamków dziesiętnych, najprostszym sposobem jest przekonwertowanie zmiennej lgAreteCube z typu Double na Integer , w instrukcji generowania właściwości.
Wymiana linii:
swCstPropMgr.Add3 "CubEnvLongueurY", swCustomInfoNumber, CInt(lgAreteCube(1)), swCustomPropertyReplaceValue
Według niego:
swCstPropMgr.Add3 "CubEnvLongueurY", swCustomInfoNumber, CInt(lgAreteCube(1)), swCustomPropertyReplaceValue
Do dostosowania zgodnie z Twoimi ocenami.
Jeśli szukasz bardziej szczegółowego formatu, będziesz musiał użyć ciągów...
Jeszcze raz dziękuję @m_blt
Działa bardzo dobrze.
Od wczoraj szukam na Codestack, czy istnieje sposób na nazwanie szkicu 3D po jego wykonaniu, lub na pobranie nazwy ostatniego szkicu utworzonego w drzewie.
Ale nic na ten temat nie mogłem znaleźć.
Potrzebowałbym tego, aby dodać usunięcie szkicu 3D na końcu makra, aby wyczyścić nasze zespoły po pobraniu zmiennych.
Kiedy patrzę na ten kod wygenerowany w Solidworks z pierwszym usunięciem szkicu 2D, a następnie usunięciem szkicu 3D, nie ma żadnej różnicy w syntezie, z wyjątkiem nazwy funkcji. Niezależnie od tego, czy jest to 2D, czy 3D, pojawia się " SZKIC ":
boolstatus = Part.Extension.SelectByID2("Esquisse3D1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.EditDelete
boolstatus = Part.Extension.SelectByID2("Esquisse1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.EditDelete
Czy wiesz, jak postępować?
Z góry dziękuję
Witam
W rekordzie UserForm1 znajduje się przycisk [Wyczyść], który usuwa szkic 3D i układ współrzędnych skojarzony z modułem. Pod warunkiem, że są to dwie ostatnie funkcje drzewa, tak aby po utworzeniu kostki nic nie było dodawane.
Jeśli chodzi o pobieranie nazwy szkicu, metoda " Name " jest częścią klasy " ISketch " interfejsu API (" swSketch.Name ", patrz wiersz 377).
Jeśli jednak istnieje zmienna wskazująca na szkic, taka jak linia 363 (" Set swSketch = swModel.SketchManager.ActiveSketch "), metoda " Select4() " umożliwia wybór bez konieczności szukania jej nazwy, na przykład:
" ok = swSketch.Select4(False, Nothing) "
Prawdopodobnie odziedziczone członkinie, nie są udokumentowane w pomocy klasy " ISketch ", ale są udokumentowane w innych...
Witam @m_blt
Jeszcze raz dziękujemy za Twoją opinię.
Właściwie nie nacisnąłem przycisku DELETE.
Przyjrzę się temu bliżej, aby zobaczyć, kiedy działa w odniesieniu do informacji o zmiennych, które dodałem... i wzbogacić moje ubóstwo intelektualne w VBA.
Nawiasem mówiąc, w VBA majstrowałem przy tym dziś rano...
Makro, które pobiera nazwę ostatniej funkcji w celu jej usunięcia.
Ponieważ istnieje szkic 3D i trójścian, podwajam wiersze poleceń, aby usunąć 2 funkcje.
Wiem, to archaiczne 
Z pewnością jest sposób, aby to uprościć, myślę...
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swDoc As SldWorks.ModelDoc2
Dim swAssembly As SldWorks.AssemblyDoc
Dim swFeatureName As SldWorks.Feature
Sub SuppressionDeuxDernieresFonctions()
Set swApp = Application.SldWorks
Set swDoc = swApp.ActiveDoc
' Vérifie que le document SW est ouvert
If swDoc Is Nothing Then
MsgBox "Aucun document Solidworks ouvert"
Exit Sub
End If
Set swAssembly = swDoc
'''Première passe pour supprimer le trièdre
'Attribution nom dernière fonction
Set swFeatureName = swDoc.Extension.GetLastFeatureAdded
'Vérifie la selection de la fonction
If swFeatureName Is Nothing Then
MsgBox "Sélection fonction impossible"
swDoc.ClearSelection2 True
Exit Sub
End If
'Selection du nom
swFeatureName.Select True
'Suppression de la fonction
swDoc.EditDelete
'''Deuxième passe pour supprimer l'esquisse 3D
'Attribution nom dernière fonction
Set swFeatureName = swDoc.Extension.GetLastFeatureAdded
'Vérifie la selection de la fonction
If swFeatureName Is Nothing Then
MsgBox "Selection fonction Impossible"
swDoc.ClearSelection2 True
Exit Sub
End If
'Selection du nom
swFeatureName.Select True
'Suppression de la fonction
swDoc.EditDelete
End Sub
Witam @m_blt
Mam małe pytanie odnośnie definicji układu pudełka.
Mam kilka przypadków, w których nie pasuje do maksimum tego, co powinno być. W szczególności na okrągłych częściach z zaokrągleniami:
Mam obudowę na 2 sztukach po prawej i lewej stronie:
Ale nie mam etui na górnym kawałku:
Gdzie w kodzie mogę interweniować, aby uzyskać dobrą styczność?
W każdym razie makro działa świetnie.
Przywiozłem swoje aranżacje i dodatkowe funkcje i jest SUPER.
Bardzo dziękuję za udzieloną pomoc.
Z góry dziękuję.
Witam
Trudno powiedzieć, jakie jest źródło problemu, o którym mówisz. Kilka uwag:
Jaka jest skala błędu w porównaniu z ogólnymi wymiarami zespołu (na przykład w mm)?
O ile zaobserwowana wada wymaga znacznego zoomu, winny może być wyświetlacz...
Metoda " GetExtremePoint() " określa zewnętrzną granicę dla każdej części. Jest to obliczenie numeryczne wewnętrzne dla interfejsów API SolidWorks. Czy jest rygorystyczny? Jak każde obliczenie numeryczne, używa kryterium jakości do walidacji wyszukiwania, kryterium nieznanego użytkownikowi.
W tym punkcie, Pomoc SolidWorks wypowiedziała się na temat funkcji " GetBodyBox ", która najwyraźniej używa metody " GetExtremePoint ":
WAŻNE: Zwrócone wartości są przybliżone i nie powinny być używane do celów porównawczych lub obliczeniowych. Ponadto obwiednia może ulec zmianie po przebudowaniu modelu.
Kontury " chmur" widoczne na zrzutach ekranu wydają się być oparte na splajnach. Czy to może być pochodzenie pb?
Podsumowując: nie jestem w stanie zidentyfikować źródła problemu. Czy możesz podzielić się przykładem, który jest problematyczny? Nawet jeśli zostanie zdegradowany, lub przez prywatną wiadomość...
Pozdrowienia.
Bardzo dziękuję za te odpowiedzi.
Tak więc błąd różni się w zależności od zespołów i części.
Waha się to od 0,5 do 1,5 mm.
W moim przypadku niekoniecznie jest to ważne, ponieważ moje wartości wracają do cm.
Moje pytanie dotyczyło głównie lepszego zrozumienia kodu i ewentualnego poprawienia go, jeśli było to wykonalne. Więc nic koniecznego.
Nadal umieszczam zespół + części ze szkicem 3D + współrzędnymi systemu wygenerowanymi przez makro, jeśli chcesz spojrzeć.
Dzięki za informację 
ENCOMBREMENT.rar TESTOWY (1.1 MB)
Świetna robota @m_blt , jak zawsze.
I myślałem, że nigdy nie będę musiał używać " BoundingBox " aż do teraz... Trafiam na klienta, powiedzmy... Wybredny.
Twoje makro jest więc na czasie. Dziękuję 
Witam @Maclane i dziękuję za komplement...
Zwróćcie jednak uwagę na problem precyzji, który poruszył @MLG w swoim ostatnim przesłaniu.
Zauważyłem anomalię, ale nie mogłem zidentyfikować, czy to SW, czy makro jest winne.
Witam;
Jest to powtarzający się problem ze splajnami, Solidworks bierze pod uwagę tylko punkty, a nie samą krzywą, więc myślę, że funkcja " GetExtremePoint() " robi to samo (jak sugeruje jej nazwa).
Ze swojej strony pozwoliłem sobie zmodyfikować Twoje makro, dodając właściwości do dokumentu z opcją ich zarejestrowania (lub nie) we wszystkich konfiguracjach.
Z drugiej strony szukam sposobu na dodanie wymiarowania do szkicu 3D.
Nie przyjrzałem się jeszcze pojęciu związanemu z przyciskiem " Usuń ", ale myślę, że zmieniając nazwy funkcji " 3Dsketch " i " Układ współrzędnych " w bardziej wyraźny sposób (np. " BoundingBox_3D " i " BoundingBox_XYZ "), łatwiej będzie je usunąć, a nawet usunąć wszystkie funkcje (pozostałości) o tych samych nazwach (+licznik).
Pozdrowienia.
Witam @MLG
Być może wartości będą dokładniejsze, gdy wszystkie ustawienia jakości zostaną wymaksowane, w opcjach dokumentu?
Cze wszystkim
Różnica jest naprawdę minimalna, ale rzeczywiście jest obecna.
Mając ręcznie wymienione dokumenty, a niektóre z nich korzystały z tego makra, otrzymaliśmy różne dane wyjściowe, stąd moje pytanie...
A w przypadku splajnów unikamy pracy z nimi, aby nie mieć tego rodzaju problemów.
Cześć wszystkim
HOP, oto wracam do tego tematu!
Makro działa dobrze, ale napotykam problem.
Wyjaśnienia:
Makro zostało użyte do zdefiniowania sześcianu 3D, co pozwoliło mi na pobranie wartości footprintów mojego zespołu zgodnie z precyzyjną orientacją. Za ten grosz i WIELKIE PODZIĘKOWANIA dla @m_blt oraz dla wszystkich, którzy przyczynili się do powstania tego postu .
Moje zespoły mają podzespoły uszczelniające (poniżej w kolorze niebieskim) do mocowania produktu do podłogi. W moim makrze usunąłem te podzespoły tak, że miałem tylko część nad ziemią teraźniejszości. Mam jednak podzespoły w uszczelnieniu bezpośrednim (poniżej na czerwono), tzn. występują poniżej i powyżej poziomu 0 (poniżej bez możliwości podziału/rozdzielenia:
Chciałbym wiedzieć, czy możliwe jest dodanie do formularza użytkownika wyboru płaszczyzny poziomu 0 (płaszczyzny lub powierzchni części) w celu określenia najniższej płaszczyzny sześcianu 3D? Podzespoły w uszczelnieniu bezpośrednim (w kolorze czerwonym) nie mogą zostać usunięte, ponieważ są używane do definiowania szerokości sześcianu:
Wybór planu poziomu 0 musiałby zatem zdefiniować niską płaszczyznę sześcianu, a ślad długości/szerokości/wysokości musiałby być zdefiniowany tylko dla wszystkiego powyżej poziomu 0, bez uwzględnienia tego, co znajduje się poniżej.
Mam nadzieję, że jest to zrozumiałe, bo nie jest łatwo to wytłumaczyć
