|
CATIA V5 Allgemein : cgr, wrl, stl in CATPart konvertieren
Lusilnie am 18.01.2007 um 20:38 Uhr (0)
Hallo allerseits,da noch keine Aufschreie wegen Fehler gekommen sind, beuge ich dem vor und "update" den Code:Code:Sub CATMain() Dim sInputFile As String sInputFile = CATIA.FileSelectionBox(".cgr-Datei auswaehlen", "*.cgr", CatFileSelectionModeOpen) Dim sInputFileName As String sInputFileName = Left(sInputFile, InStrRev(sInputFile, ".") - 1) Dim oDoc As document Set oDoc = CATIA.documents.Read(sInputFile) oDoc.ExportData sInputFileName & ".model", "model" oDoc.Close Set oDoc = CATIA.documents.Open ...
| | In das Form CATIA V5 Allgemein wechseln |
|
CATIA V5 Allgemein : cgr, wrl, stl in CATPart konvertieren
Lusilnie am 20.01.2007 um 01:01 Uhr (0)
Hallo kri,danke für den Hinweis mit der Namensbegrenzung. Ist wirklich ein V4-Problem. Also basteln wir auch das noch in den CODE:Code: Sub CATMain() Dim sInputFile As String sInputFile = CATIA.FileSelectionBox(".cgr-Datei auswaehlen", "*.cgr", CatFileSelectionModeOpen) Dim sInputFileName As String sInputFileName = Left(sInputFile, InStrRev(sInputFile, ".") - 1) Dim sInputFileNameV4 As String If Len(sInputFileName) 72 Then sInputFileNameV4 = Left(sInputFileName, 72) & ".model" ...
| | In das Form CATIA V5 Allgemein wechseln |
|
CATIA V5 Allgemein : cgr, wrl, stl in CATPart konvertieren
Lusilnie am 22.01.2007 um 21:10 Uhr (0)
Hallo kri,auch eine Möglichkeit, doch es geht viel einfacher: Mit nur einem Zeichen, einem an der richtigen Stelle (- am Anfang der Zeile nach oDoc.SaveAs sInputFileName & ".CATPart"), damit das CATPart einfach nicht geschlossen wird! Durch dieses Zeichen am Anfang wird die Zeile als "Kommentar" deklariert. Alternativ kann man auch einfach die Zeile löschen, oder eine Abfrage einbringen, oder, oder,...Sieht dann so aus:Code:Sub CATMain() Dim sInputFile As String sInputFile = CATIA.FileSelectionBox(".cgr ...
| | In das Form CATIA V5 Allgemein wechseln |
|
CATIA V5 Allgemein : cgr, wrl, stl in CATPart konvertieren
Lusilnie am 23.01.2007 um 20:49 Uhr (0)
Hallo kri,sorry, mein Fehler! Natürlich muß ich auch die nachfolgende Zeile abändern, da das CATPart ja das letzte und das Model das vorletzte Document ist, wenn ich nichts schließe! Also lauten die Zeilen so:Code: oDoc.SaveAs sInputFileName & ".CATPart" oDoc.Close Set oDoc = CATIA.documents.Item(CATIA.documents.Count - 1) oDoc.CloseIch hoffe, jetzt stimmt es! mfg,Lusilnie------------------Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!frei nach größeren Geistern
| | In das Form CATIA V5 Allgemein wechseln |
|
CATIA V5 Allgemein : cgr, wrl, stl in CATPart konvertieren
Lusilnie am 18.01.2007 um 00:48 Uhr (0)
Hallo allerseits,o.k., es ist zwar noch nicht Ostern, doch hier mal, wie von "kri" gewünscht, die zusätzlichen Scriptzeilen zum CATPart-Erstellen.Allerdings nur prinzipiell, ohne Gewähr usw. und mit dem Hinweis, dass das Ganze auch nicht in allen Umgebungen und Einstellungen läuft! D.h. wenn eine Migration V4 zu V5 per Utillities nicht funktioniert, funktioniert es auch nicht per Script.Weitere Einstellungen/Hinweise:-unter General-Compatibility-Save_As_V4_Model muss bei Windows-Nutzung der "Initial_Path" ...
| | In das Form CATIA V5 Allgemein wechseln |
|
CATIA V5 Allgemein : cgr, wrl, stl in CATPart konvertieren
Lusilnie am 16.05.2009 um 00:47 Uhr (0)
Hallo Em Ily,Du scheinst da einen Abschreib-Fehler in Deinem Cosde zu haben, es muss "sInputFileNameV4" lauten:Code: ... Set oDoc = CATIA.documents.Read(sInputFile) oDoc.ExportData sInputFileNameV4, "model" oDoc.Close ... mfg,Lusilnie------------------Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!frei nach größeren Geistern
| | In das Form CATIA V5 Allgemein wechseln |
|
CATIA V5 Allgemein : cgr, wrl, stl in CATPart konvertieren
Lusilnie am 13.03.2008 um 00:28 Uhr (0)
Hallo Martin K,ich bin zwar nicht "Steffen", antworte aber trotzdem.Die Funktionalität in: sInputFile = CATIA.FileSelectionBox("cgr-Datei auswählen", "/tmp/*.cgr", CatFileSelectionModeOpen)bezieht sich nur auf die Dateiendung und funktioniert sicher (?) auch nur im "Windo..". Aus meiner Erfahrung wird die Dateierweiterung z.B. in AIX nicht ausgewertet. (Danke DassaultSystemes!!!!!) Allerdings funktioniert auch im Windows nur die Typ-Auswahl "*.cgr". Einen Pfad ala "/tmp/*.cgr" kann ich auch dort nicht a ...
| | In das Form CATIA V5 Allgemein wechseln |
|
CATIA V5 Allgemein : 3D-Schnitt
Lusilnie am 02.03.2009 um 23:15 Uhr (0)
Hallo allerseits,schön, dass es einen Workaround gibt, aber ist der nicht etwas kompliziert?Einfacher wäre es doch mit einem Script, in etwa so:Code:Sub CATMain() Dim rootDoc As ProductDocument Set rootDoc = CATIA.ActiveDocument Dim root As Product Set root = rootDoc.Product Dim oProds As products Set oProds = root.products Dim oSections As Sections Set oSections = root.GetTechnologicalObject("Sections") Dim oSection As Section Set oSection = oSections.Add End SubIch habe die Datei auc ...
| | In das Form CATIA V5 Allgemein wechseln |
Section_Add.CATScript.txt |
CATIA V5 Allgemein : 3D-Schnitt
Lusilnie am 02.03.2009 um 23:23 Uhr (0)
Hallo allerseits,schön, dass es einen Workaround gibt, aber ist der nicht etwas kompliziert?Einfacher wäre es doch mit einem Script, in etwa so:Code:Sub CATMain() Dim rootDoc As ProductDocument Set rootDoc = CATIA.ActiveDocument Dim root As Product Set root = rootDoc.Product Dim oProds As products Set oProds = root.products Dim oSections As Sections Set oSections = root.GetTechnologicalObject("Sections") Dim oSection As Section Set oSection = oSections.Add ...
| | In das Form CATIA V5 Allgemein wechseln |
Section_Add.CATScript.txt |
CATIA V5 Allgemein : 3D-Schnitt
Lusilnie am 02.03.2009 um 23:23 Uhr (0)
Hallo allerseits,schön, dass es einen Workaround gibt, aber ist der nicht etwas kompliziert?Einfacher wäre es doch mit einem Script, in etwa so:Code:Sub CATMain() Dim rootDoc As ProductDocument Set rootDoc = CATIA.ActiveDocument Dim root As Product Set root = rootDoc.Product Dim oProds As products Set oProds = root.products Dim oSections As Sections Set oSections = root.GetTechnologicalObject("Sections") Dim oSection As Section Set oSection = oSections.Add ...
| | In das Form CATIA V5 Allgemein wechseln |
|
CATIA V5 Allgemein : Catia V5 R17 auf Windows Vista Home Prem.
Lusilnie am 10.10.2007 um 22:48 Uhr (0)
Hallo nullplan,zum Thema: Zitat:Original erstellt von nullplan:Wer also V5 auf Vista installiert, bewegt sich z.Zt. auf unsicherem Boden...Ich denke die Aussage ist nicht ganz richtig, richtig sollte sie doch so lauten:Wer CATIA V5 installiert und nutzt, bewegt sich auf unsicherem Boden...ODER? mfg,Lusilnie------------------Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!frei nach größeren Geistern
| | In das Form CATIA V5 Allgemein wechseln |
|
CATIA V5 Allgemein : Bauteil ist nicht sichtbar?
Lusilnie am 27.11.2005 um 15:33 Uhr (0)
Hallo neffe30,hast Du das Macro im "leeren" CATIA ausgeführt, d.h. keine Datei war geöffnet? Wenn nicht, probiers mal!Ansonsten müßtest Du doch mal ins Macro schauen, ob irgendwelche Pfade zum Speichern definiert sind, die es bei Dir nicht gibt!Soweit erst mal meine Ideen!mfg,Lusilnie
| | In das Form CATIA V5 Allgemein wechseln |
|
CATIA V5 Allgemein : Stückliste generieren
Lusilnie am 30.11.2005 um 19:40 Uhr (0)
Hallo WillyWuff,um Dir die Arbeit zu ersparen, wäre ein Macro hier das Beste!Nun weiß ich leider nicht, wie gut Du darin bist, doch Dassault hat ein Beispiel irgendwo in den Verzeichnissen für die Online-Hilfe-Dateien, daß so heißt:StrCreateUserParameters.CATScriptAnhand dieses Beispiels einfach ein eigenes Macro stricken und schon kannst Du Dir a) die jetzige Arbeit sparen und hast b) ein Korrektur-Mittel, falls es wieder mal vergessen wird...mfg,Lusilnie
| | In das Form CATIA V5 Allgemein wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
