Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Solid Edge
  drft 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
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SolidEdge
Autor Thema:  drft VB (364 mal gelesen)
bbsbbs
Mitglied



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

Beiträge: 22
Registriert: 07.06.2004

erstellt am: 22. Okt. 2004 08:56    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

Don't saveas *.bmp ?

Dim objApp As SolidEdgeFramework.Application
Dim objDocuments As SolidEdgeFramework.Documents
Dim objDoc As solidedgedraft.DraftDocument
Dim objview As SolidEdgeFramework.View
Const PI = 3.14159265358979
On Error Resume Next
Set objApp = GetObject(, "SolidEdge.Application")
Set objDocuments = objApp.Documents
Set objDoc = objApp.Documents.Open("d:\1.dft")
Set objview = objApp.Windows(1).View
Call objview.SaveAsImage(Filename:="d:\88.bmp")

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

pablo
Mitglied
Techniker


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

Beiträge: 453
Registriert: 23.01.2002

Win10
Office 365
SE 2019

erstellt am: 22. Okt. 2004 09:15    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 bbsbbs 10 Unities + Antwort hilfreich

bbsbbs,
Dim objApp As SolidEdgeFramework.Application
Dim objDocuments As SolidEdgeFramework.Documents
Dim objDoc As solidedgedraft.DraftDocument
3D
Dim objview As SolidEdgeFramework.View
2D
Dim objSheetWindow As SolidEdgeDraft.SheetWindow
Const PI = 3.14159265358979
On Error Resume Next
Set objApp = GetObject(, "SolidEdge.Application")
Set objDocuments = objApp.Documents
Set objDoc = objApp.Documents.Open("d:\1.dft")
3D
Set objview = objApp.Windows(1).View
Call objview.SaveAsImage(Filename:="d:\88.bmp")[/B][/QUOTE]
2D
Set objSheetWindow = objApp.Windows(1)
objSheetWindow.SaveAsImage ............

HTHHope that helps = Hoffe es hilft pablo

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

bbsbbs
Mitglied



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

Beiträge: 22
Registriert: 07.06.2004

erstellt am: 22. Okt. 2004 09:45    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

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)2023 CAD.de | Impressum | Datenschutz