Wyświetlić komunikat ostrzegawczy w obszarze graficznym

SW 2013 SP4.0

Witam

Myślę, że już to widziałem, ale nie wiem jak to zrobić:

Chcę, aby komunikat (najlepiej dobrze widoczny w dużym i kolorze) w obszarze graficznym podczas otwierania zestawu. (te wiadomości byłyby typu: Ostrzeżenie! Nie zapomnij zaktualizować arkusza Excela podczas edycji tego zestawu). Oczywiście nie chcę, aby ten komunikat był widoczny na moich rysunkach. Będą one po prostu ostrzeżeniem dla użytkownika.

Czy ktoś kiedykolwiek to widział?

Dziękuję

Witam

Jeśli masz subskrypcję myCADtools, możesz użyć CustomToolbar.

Zdarzenia można włączyć w opcjach paska narzędzi CustomToolbar

Następnie należy dodać typ makra na pasku narzędzi (na dole znajduje się kod do wklejenia w edytorze makr)

Sprawdzasz: FileOpenPostNotify w SolidWorks.

Makro: 

**

Dim swApp jako SldWorks.SldWorks

Przyciemnij część jako SldWorks.ModelDoc2

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

 

Sub main()

 

Ustaw swApp = Application.SldWorks

 

Ustaw część = swApp.ActiveDoc

 

Jeśli Part.GetType = swDocumentTypes_e.swDocASSEMBLY to

 

MsgBox "to jest montaż"

 

Zakończ jeżeli:

 

Koniec subwoofera

 

**

 

Dostosuj okno wiadomości do swoich upodobań.

Klasa A+

 

Mick

2 polubienia

Witam.

 

Wydaje mi się, że kiedyś zrobiłem to, integrując tekst ze szkicem, ale nie robiąc z niego później funkcji.

Nie jest świetnie, jeśli twój pokój nie jest w odpowiedni sposób, nic nie widać, ale hej, potrzebujesz czegoś lepszego.