|
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 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 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 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 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 : 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 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 : 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 Drafting : Ansicht auf Blatt nicht die ausgewählte 3D Projektion
Lusilnie am 20.02.2007 um 21:03 Uhr (0)
Hallo uwe.a,was heißt "leicht schräg"? Einfach nur gedreht oder nicht parallel zur gewählten Ebene?Bei Letzterem wäre die zweite Frage sofort: Parallel zu den Hauptebenen? - Wenn ja, dann ist wahrscheinlich unter "Tools-Options-Mechanical_Design-Drafting" im Reiter "Layout" Der Schalter "View axis system based on 3D axis system" (oder so ähnlich!) aktiviert. Dann leitet CATIA nur von den Hauptebenen (xy,yz,zx) ab, egal was Du wählst!mfg,Lusilnie------------------Alle Aussagen zu DassaultSystemes-Produkten ...
| | In das Form CATIA V5 Drafting wechseln |
|
CATIA V5 Drafting : Lieferantenschriftfeld
Lusilnie am 25.06.2008 um 00:23 Uhr (0)
Hallo Fenerb AK,alternativ gibt es noch das "IGES-Format" zum Transfer zwischen UG und CATIA im 2D-Bereich.Einfach aus dem UG als IGES speichern, Dateiendung von ".igs" nach ".ig2" umbenennen und im CATIA öffnen. Dann Ziel-CATDrawing öffnen und "2D-Component" vom IGES-Import ins Detail-Sheet des Ziel-CATDrawing kopieren. Danach als "2D-Component" bzw. Detail von der "2D-Component" benutzen, gegebenenfalls noch nacharbeiten.mfg,Lusilnie------------------Alle Aussagen zu DassaultSystemes-Produkten sind sehr ...
| | In das Form CATIA V5 Drafting wechseln |
|
CATIA V5 Programmierung : Edit Back ground
Lusilnie am 20.10.2006 um 10:09 Uhr (0)
Hallo leipziger,hilft Dir dies:Code:Option ExplicitLanguage = "VBSCRIPT"Sub CATMain() Dim drawingDocument1 As drawingDocument Set drawingDocument1 = CATIA.ActiveDocument Dim drawingSheets1 As drawingSheets Set drawingSheets1 = drawingDocument1.Sheets Dim drawingSheet1 As drawingSheet Set drawingSheet1 = drawingSheets1.ActiveSheet If drawingSheet1.Views.ActiveView.name = drawingSheet1.Views.Item(2).name Then drawingSheet1.Views.Item(1).Activate Else drawingSheet1.Views.Item(2).Activate End If ...
| | In das Form CATIA V5 Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
