| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS | | | | SolidCAM Professor Videos | Tipps & Tricks (SolidCAM) |
Autor
|
Thema: API: Kommentar-Indikator einblenden (1269 / mal gelesen)
|
Lueghi Mitglied Admin für alle Systeme ....
Beiträge: 416 Registriert: 01.07.2005 CAD...: SWX2022 SP5, ACAD 2019, Tacton / LINO PDM...: PRO.FILE 8.6 ERP...: proAlpha 6.2e / 7.1 BS....: Win10, HP ZBook G5
|
erstellt am: 22. Jan. 2020 15:48 <-- editieren / zitieren --> Unities abgeben:
Hallo SolidWorks-Profis, ich brauche noch mal einen Tipp: möchte in der Strukturanzeige Part den Kommentar-Indicator einblenden. Makro aufzeichnen hilft nicht und in der API-Hilfe habe ich zu den Stichworten "indicator" "comment" auch nichts gefunden. Hat jemand einen Tipp? Gruß Stefan ------------------ Gruß Stefan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
HenryV Mitglied Konstrukteur, Engineering
Beiträge: 813 Registriert: 18.05.2005 SolidWorks 2022 x64 SP5.0 Dell Precision 5820 Intel Xeon W-2125 4x4GHz NVIDIA Quadro P2000 5GB 32GB RAM 2x Dell U2412M, 24" TFT Windows 10 Enterprise x64 22H2 Microsoft 365 E5 Microsoft Visual Studio Enterprise 2022
|
erstellt am: 23. Jan. 2020 08:58 <-- editieren / zitieren --> Unities abgeben: Nur für Lueghi
Hallo Stefan In SolidWorks gibt es meines Wissens nach noch kein API-Befehl. Aber man kann mit Kombination der Windows API ein ähnliches Ziel erreichen. Toggle Show Comment Indicator option using SOLIDWORKS API
Code: #If VBA7 Then Private Declare PtrSafe Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long #Else Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long #End IfDim swApp As SldWorks.SldWorks Sub main() Const WM_COMMAND As Long = &H111 Const SHOW_COMMENT_INDICATOR As Long = 56000 Set swApp = Application.SldWorks Dim swFrame As SldWorks.Frame Set swFrame = swApp.Frame SendMessage swFrame.GetHWnd(), WM_COMMAND, SHOW_COMMENT_INDICATOR, 0 End Sub
Gruss Andreas ------------------ 21 ist nur die halbe Antwort. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Lueghi Mitglied Admin für alle Systeme ....
Beiträge: 416 Registriert: 01.07.2005 CAD...: SWX2022 SP5, ACAD 2019, Tacton / LINO PDM...: PRO.FILE 8.6 ERP...: proAlpha 6.2e / 7.1 BS....: Win10, HP ZBook G5
|
erstellt am: 23. Jan. 2020 10:45 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|