| |
| MegaCAD 3D Basis I in Hamburg, ein Seminar am 11.11.2024
|
Autor
|
Thema: Frage an Hillex=>Beispiel zum Aufruf der prtdraw.dll Funktionen aus VB (1044 mal gelesen)
|
Thömse Mitglied Konstrukteur
Beiträge: 1350 Registriert: 30.06.2003
|
erstellt am: 15. Dez. 2004 10:59 <-- editieren / zitieren --> Unities abgeben:
Morgen Karsten Habe heute Morgen Dein Beispiel angeschaut mit dem Megaviewer. Kannst Du mir sagen wie ich den Code ändern muss damit der Hintergrund des angezeigten Fensters in schwarz kommt..???? Besten Dank und Gruss TOM Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thömse Mitglied Konstrukteur
Beiträge: 1350 Registriert: 30.06.2003 Inventor 2022 Professional Build:287, Release:2022.2.1 Vault Professional 2022 Build:27.2.67.0 2022.2.2 Update SolidWorks 2017 MegaCad 2015 3D Intel Xeon W-2135 CPU 3.70GHz 16 GB RAM Nvidia Quadro P2000 Windows 10 Pro
|
erstellt am: 15. Dez. 2004 11:16 <-- editieren / zitieren --> Unities abgeben:
|
Hillex Mitglied Meister/BWdH/Dipl.Ing.Ind.Engineering
Beiträge: 587 Registriert: 16.01.2002
|
erstellt am: 15. Dez. 2004 11:30 <-- editieren / zitieren --> Unities abgeben: Nur für Thömse
Moin, du mußt die Variable lngFlags ändern, diese wird in frmMain in der Procedure Form_Load initialisiert. Erlaubte Werte für die Farben sind 0-15, dabei entspricht 0-schwarz und 15-weiß.
Code: Private Sub Form_Load() 'Namen und Pfade initialisieren Call SetDllPath(CurDir) Call SetFileName("") Call SetIniName(CurDir & "\MEGACAD.INI") Call Komandozeile 'prtdraw.dll patchen If Patch(GetDllPath) = False Then Call MsgBox("Die prtdraw.dll konnte nicht gepatcht werden." & vbCrLf & _ "Die Anzeige der Makrodaten kann somit nicht zur Verfügung gestellt werden.", _ vbExclamation, "Info") mnuHelpMakros.Enabled = False End If 'MegaCAD SetMegaIni Funktion aus drawprt.dll aufrufen Call SetIni(GetIniName) 'Variablen und Funktionen initialisieren 'Rückgabewert von Scale... festlegen 'ScaleMode-Wert für tRECT Bereiche von prtdraw.dll, Pixel erforderlich frmMain.ScaleMode = 3 '1-Twip, 2-Punkt, 3-Pixel, 4-Zeichen Call SetScrollBarPos Call SetScrollBarMinMax Call InitZoom(100, 10, 0) Call InitStatusBar bolFreeZoom = False lngFlags = 0 'Hintergrundfarbe 0-15) 15-weiß, 7-grau, 0-schwarz lngRand = 10 End Sub
------------------ 90% aller Fehler haben ihre Ursache 60cm vor dem Bildschirm. CU Karsten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Hillex Mitglied Meister/BWdH/Dipl.Ing.Ind.Engineering
Beiträge: 587 Registriert: 16.01.2002 Windows10 MegaCAD 2023 3D
|
erstellt am: 15. Dez. 2004 11:50 <-- editieren / zitieren --> Unities abgeben: Nur für Thömse
Moin, da war doch glatt einer schneller. Um auch die aktuellen 2005er Zeichnungen betrachten zukönnen ist die aktuelle prtdraw.dll erforderlich. Natürlich wird auch diese in der orginal Version einen Absturz beim aufruf von MakroLoop in VB erzeugen. Deshalb wird die orginal prtdraw.dll mit hilfe des PrtDrawVBPatch-Moduls verändert damit es mit VB funktioniert. Dies sollte auch mit der aktuellen dll möglich sein. Dazu mußt du die 2004er prtdraw.dll in deinem VB-Projektverzeichnis gegen die neue 2005er dll, welche im "C:\Programme\MegaCAD_3D_2005\UTILS" Verzeichnis austauschen. Zusätzlich mußt du die alte gepatchte prtdraw4VB.dll im Projektverzeichnis löschen, diese wird beim ersten Programmstart neu erstellt. So sollt es auch mit Zukünftigen Versionen funktionieren. Oder einfach die dll aus der zip-Datei ins Projektverzeichnis kopieren. ------------------ 90% aller Fehler haben ihre Ursache 60cm vor dem Bildschirm. CU Karsten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thömse Mitglied Konstrukteur
Beiträge: 1350 Registriert: 30.06.2003
|
erstellt am: 16. Dez. 2004 07:37 <-- editieren / zitieren --> Unities abgeben:
Moin Karsten Besten Dank für Deine Hilfe und vorallem Deinen Grundcode um ein PRT anzuzeigen im VB. Wenn ich wieder Hilfe brauche würde ich mich gerne wieder an Dich wenden. Gruss und schöner Tag aus dem Zürcher-Oberland TOM Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Hillex Mitglied Meister/BWdH/Dipl.Ing.Ind.Engineering
Beiträge: 587 Registriert: 16.01.2002 Windows10 MegaCAD 2023 3D
|
erstellt am: 16. Dez. 2004 09:52 <-- editieren / zitieren --> Unities abgeben: Nur für Thömse
Moin, darfst du. Allerdings kann ich dir nicht garantieren ob es so schnell geht. Nebenbei muß ich auch manchmal noch was für meinen Chef machen. ------------------ 90% aller Fehler haben ihre Ursache 60cm vor dem Bildschirm. CU Karsten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |