Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Datentransfer
  Export V5 R13 > Iges

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:  Export V5 R13 > Iges (959 mal gelesen)
Kotschi
Mitglied
Arbeiter


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

Beiträge: 127
Registriert: 19.01.2004

WinXP SP2, Catia V5 R15, R16, R17

erstellt am: 25. Aug. 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

Habe das eine Frage:

Im internet gibt es einen Makro Schriftzug der wie folgt lautet:

----------------------------------------------------------------------

'Script zum Exportieren von V5-Parts und Produkten in STEP203'
'Erstellt von Jens Hansen / info@catia.cad.de'
'Dieses Script ist kostenlos verfügbar und darf weder verkauft noch Angeboten werden'
'Adresse zum Download: http://catia.cad.de'

Language="VBSCRIPT"

Sub CATMain()

folderinput = InputBox ("Wo befinden sich Ihre Daten ?","Eingabe","C:\Qeullordner\",500,1000)
folderoutput = InputBox ("Wohin soll gespeichert werden?","Eingabe","C:\Zielordner\",500,1000)

Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderinput)
Set fc = f.Files

For Each f1 in fc

Dim PartDocument1 As Document
Set documents1 = CATIA.Documents
Dim document1 As Document

PFADEINGABE =  folderinput & f1.name
Set PartDocument1 = CATIA.Documents.Open(PFADEINGABE)

PFADAUSGABE = folderoutput & f1.name & ".igs"
PartDocument1.ExportData PFADAUSGABE, "igs"


s = s & f1.name
s = s & vbCrLf

Next

'Bei Bedarf kann eine Schlussnachricht eingeblendet werden, wo die umgewandelten Elemente aufgelistet sind. Hierfür in nachfolgender zeile die Hochkommas entfernen.'
'MsgBox "fertig !" & vbCrLf & s '

CATIA.quit

End Sub
----------------------------------------------------------------------

Hat damit schon jemand gearbeitet?! Wie baut man sowas überhaupt ein?! Habe in sowas mal kurz gesagt gar keine Ahnung!!!

Gruß Kotschi

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

bhd
Mitglied



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

Beiträge: 352
Registriert: 02.04.2004

erstellt am: 26. Aug. 2004 14:08    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 Kotschi 10 Unities + Antwort hilfreich

Das ist ein ganz normales VBScript, und muß in einen Ordner kopiert werden und mit Tools->Macro->Macros gestartet werden.

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

Kotschi
Mitglied
Arbeiter


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

Beiträge: 127
Registriert: 19.01.2004

WinXP SP2, Catia V5 R15, R16, R17

erstellt am: 29. Aug. 2004 21:44    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

Naja so einfach ist es dann nun auch wieder nicht ... was kann ich denn davon weglassen?! was sollte drinstehen?!

Gruß Kotschi

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

Ludmilla Wolteren
Mitglied



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

Beiträge: 26
Registriert: 23.04.2003

erstellt am: 07. Sep. 2004 15: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 Kotschi 10 Unities + Antwort hilfreich

Schönen guten Tag auch,
ich würde alle Zeilen, die mit ' beginnen, löschen und schon ist der Quellkot richtig kurz.

Tschüüssss...

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


Ex-Mitglied

erstellt am: 07. Sep. 2004 15:25    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

10 Punkte

Ludmilla Wolteren

WEBER-HYDRAULIK
Mitglied
Konstrukteur + CAD Systembetreuer


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

Beiträge: 139
Registriert: 06.04.2002

erstellt am: 09. Sep. 2004 10:00    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 Kotschi 10 Unities + Antwort hilfreich

Hallo bhd!

Geht das Script auch ohne "STEP" Licenz?

mfg
Kurt

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

kurtbo
Mitglied



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

Beiträge: 63
Registriert: 02.02.2004

CATIA V5, SmarTeam RXX

erstellt am: 09. Sep. 2004 18:42    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 Kotschi 10 Unities + Antwort hilfreich

Zitat:
Geht das Script auch ohne "STEP" Licenz?


Nein. Definitiv nicht.
Eine Lizenz muß auf jedenfall vorhanden sein.

/kurtBo

------------------
^M - Die Seuche der Menschheit

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