Witam
Mam makro solidworks, które działa poprawnie po uruchomieniu makra solidworks.
Chciałbym, aby to makro zostało podłączone do naszego kanału EPDM za pomocą dodatku Solidworkstask.
Oto moje makro, służy do obniżania paska bloku w pliku części.
Przyciemnij swdoc jako SldWorks.ModelDoc2
Dim swAllDocs As EnumDocuments2
Przyciemnij FirstDoc jako SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim NumDocsZwrócono tak długo, jak długo
Dim DocCount tak długo
Dim swapp As SldWorks.SldWorks
Dim longstatus As Long
Przyciemnij część jako obiekt
Sub FREEZE_ONE()
Ustaw swapp = _
Aplikacja.SldWorks
Ustaw część = swapp. Plik ActiveDoc
Jeśli (UCase(Right(part. GetPathName, 6)) = UCase("sldprt")) Następnie
boolstatus = udział. FeatureManager.EditFreeze(swMoveFreezeBarTo_e.swMoveFreezeBarToEnd, "", True)
część. Zapisz: As (cz. GetPathName)
Zakończ jeżeli:
Koniec subwoofera
Wkleiłem go do zakładki skryptu zadania
Makro nie jest uruchamiane.
Skąd to może się wziąć?
Czy wiesz, jak to zrobić?
Z góry dziękujemy za Twoją opinię
Yannicka
2020_03_04_22_10_03_nouvelle_tache_proprietes.png