Cze wszystkim
Szukam za pomocą makra, aby automatycznie wypełnić właściwość (w moim przypadku zmienną DESCRIPTION) mojej listy spawanych części.
Moja lista części spawanych składa się z głównej i wstaw arkusza blachy z funkcji bibliotecznej
Dowiedziałem się, jak dodać nazwę zmiennej w każdej części, która ma być spawana, ale nie wiem, jak pobrać informacje z bibliotek projektowych.
W bibliotece w każdej konfiguracji znajduje się właściwość DESCRIPTION. Czy można go odzyskać?
Lub nazwa konfiguracji biblioteki.
Załączam makro, fragment biblioteki i plik programowy
Z góry dziękuję za pomoc
Cdlt powiedział:
Yannicka
cutlist.zip
Witam
Nie wiem, jak automatycznie zaimportować opis części z biblioteki.
Z drugiej strony można to zrobić za pomocą makra:
- Przejdź przez funkcje, aby znaleźć każdy element biblioteki
- wyodrębnij ścieżkę do pliku i nazwę wstawionej konfiguracji
- Otwórz plik, aby znaleźć opis odpowiadający konfiguracji
- Znajdź spawaną część odpowiadającą funkcji
- napisz opis w spawanej części
1 polubienie
Dziękujemy za opinię , Jerome
Niestety, nie mam takich umiejętności.
Uruchomiłem makro, ale już utknąłem na wyodrębnieniu nazwy biblioteki.
Sub recherche_fonction_biblio()
Dim swApp jako SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swFeat As SldWorks.feature
Dim swSubFeat jako SldWorks.feature
Ustaw swApp = Application.SldWorks
Ustaw swModel = swApp.ActiveDoc
Ustaw swFeat = swModel.FirstFeature
Zrób Póki Nie SwFeat Nic
Jeśli swFeat.GetTypeName2() = "Nakrętka zaciskana, stal" to
swSubFeat. (Ścieżka i nazwa)
Zakończ jeżeli:
Pętla
Koniec subwoofera
Mała sztuczka, dodanie debug.print, aby zobaczyć, jak to wygląda w miarę postępów, bardzo pomaga w debugowaniu.
debug.print swFeat.GetTypeName2()
I zobaczysz wszystkie wartości paradowane i czy wejdziesz do swojej pętli, czy nie.
https://www.developpez.net/forums/d1358915/logiciels/microsoft-office/access/vba-access/explication-debug-print/