|
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 |
|
CATIA V5 Programmierung : Text Properties im Drawing
Lusilnie am 25.10.2006 um 22:14 Uhr (0)
Hallo Hokay,nach meiner Meinung funktioniert das mit der Textbreite nur für Texte, nicht für eine Selektion!Es müßte also etwa so lauten (ungetestet, da CATIA gerade nicht vorhanden!):Code:Dim K as IntegerFor K = 1 to selection1.count selection1.Item(K).Value.visProperties.SetParameterOnsubString catCharSpacing,0,0,70Next( Oder ohne ".Value" ?)mfg,Lusilnie------------------Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!frei nach größeren Geistern
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Text Properties im Drawing
Lusilnie am 25.10.2006 um 22:14 Uhr (0)
Hallo Hokay,nach meiner Meinung funktioniert das mit der Textbreite nur für Texte, nicht für eine Selektion!Es müßte also etwa so lauten (ungetestet, da CATIA gerade nicht vorhanden!):Code:Dim K as IntegerFor K = 1 to selection1.count selection1.Item(K).Value.visProperties.SetParameterOnsubString catCharSpacing,0,0,70Next( Oder ohne ".Value" ?)mfg,Lusilnie------------------Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!frei nach größeren Geistern
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Text Properties im Drawing
Lusilnie am 25.10.2006 um 22:14 Uhr (0)
Hallo Hokay,nach meiner Meinung funktioniert das mit der Textbreite nur für Texte, nicht für eine Selektion!Es müßte also etwa so lauten (ungetestet, da CATIA gerade nicht vorhanden!):Code:Dim K as IntegerFor K = 1 to selection1.count selection1.Item(K).Value.visProperties.SetParameterOnsubString catCharSpacing,0,0,70Next( Oder ohne ".Value" ?)mfg,Lusilnie------------------Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!frei nach größeren Geistern
| | In das Form CATIA V5 Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
