Hot News aus dem CAD.de-Newsletter:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  MegaCAD
  Frage an Hillex=>Beispiel zum Aufruf der prtdraw.dll Funktionen aus VB

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:   Frage an Hillex=>Beispiel zum Aufruf der prtdraw.dll Funktionen aus VB (868 mal gelesen)
Thömse
Mitglied
Konstrukteur


Sehen Sie sich das Profil von Thömse an!   Senden Sie eine Private Message an Thömse  Schreiben Sie einen Gästebucheintrag für Thömse

Beiträge: 1304
Registriert: 30.06.2003

Inventor 2019 Professional
Vault Professional 2019
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 10:59    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


MegaView.gif

 
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


Sehen Sie sich das Profil von Thömse an!   Senden Sie eine Private Message an Thömse  Schreiben Sie einen Gästebucheintrag für Thömse

Beiträge: 1304
Registriert: 30.06.2003

Inventor 2019 Professional
Vault Professional 2019
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Karsten

Das mit der Hintergrundfarbe funtz jetzt, habs gefunden. Anderes Problem die MegaCAD 2005 Dateien werden nicht angezeigt, hast Du mir da einen Tip.

Gruss und besten Dank
TOM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hillex
Mitglied
BWdH/Tischlermeister


Sehen Sie sich das Profil von Hillex an!   Senden Sie eine Private Message an Hillex  Schreiben Sie einen Gästebucheintrag für Hillex

Beiträge: 579
Registriert: 16.01.2002

Intel(R)Core(TM)i7
RAM: 16GB
SSD: 256GB
MS Windows 10Pro 1703
MegaCAD_2013_3D
MegaCAD_2017_3D

erstellt am: 15. Dez. 2004 11:30    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Thömse 10 Unities + Antwort hilfreich

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
BWdH/Tischlermeister


Sehen Sie sich das Profil von Hillex an!   Senden Sie eine Private Message an Hillex  Schreiben Sie einen Gästebucheintrag für Hillex

Beiträge: 579
Registriert: 16.01.2002

Intel(R)Core(TM)i7
RAM: 16GB
SSD: 256GB
MS Windows 10Pro 1703
MegaCAD_2013_3D
MegaCAD_2017_3D

erstellt am: 15. Dez. 2004 11:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Thömse 10 Unities + Antwort hilfreich


prtdraw4VB2005.zip

 
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


Sehen Sie sich das Profil von Thömse an!   Senden Sie eine Private Message an Thömse  Schreiben Sie einen Gästebucheintrag für Thömse

Beiträge: 1304
Registriert: 30.06.2003

Inventor 2019 Professional
Vault Professional 2019
SolidWorks 2017
MegaCad 2015 3D
Intel Xeon W-2135 CPU 3.70GHz
16 GB RAM
Nvidia Quadro P2000
Windows 10 Pro

erstellt am: 16. Dez. 2004 07:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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
BWdH/Tischlermeister


Sehen Sie sich das Profil von Hillex an!   Senden Sie eine Private Message an Hillex  Schreiben Sie einen Gästebucheintrag für Hillex

Beiträge: 579
Registriert: 16.01.2002

Intel(R)Core(TM)i7
RAM: 16GB
SSD: 256GB
MS Windows 10Pro 1703
MegaCAD_2013_3D
MegaCAD_2017_3D

erstellt am: 16. Dez. 2004 09:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Thömse 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2019 CAD.de | Impressum | Datenschutz