|
CATIA V5 Programmierung : newWindow (?) für stl export
bgrittmann am 06.12.2013 um 17:04 Uhr (1)
ServusEin STL fügst du in ein CATProduct über die Methode "AddComponentsFromFiles" ein:Code:Sub CATMain()Dim productDocument1 As ProductDocumentDim product1 As ProductDim products1 As ObjectDim arrPartDocument(0) As VariantSet productDocument1 = CATIA.ActiveDocumentSet product1 = productDocument1.ProductSet products1 = product1.Products arrPartDocument(0) = "c: empTestSTL.stl"products1.AddComponentsFromFiles arrPartDocument, "All"End SubGrußBernd------------------Warum einfach, wenn es auch komplizier ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CatVBA Makros auf anderen Rechner
bgrittmann am 20.01.2009 um 11:08 Uhr (0)
ServusIch dachte, dass VB6 automatisch mit CATIA installiert wird?Läuft denn ein "normales" catvbs-Script?Oder ist nur ein anderer Standardeditor eingestellt? Welche Fehlermeldung kommt den?GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SetViewName funktioniert nicht
bgrittmann am 21.01.2009 um 14:06 Uhr (0)
ServusMeiner Meinung sollte es so sein (nicht getestet):Code:Dim drawingDocument1 As DocumentSet drawingDocument1 = CATIA.ActiveDocumentDim drawingSheets1 As DrawingSheetsSet drawingSheets1 = drawingDocument1.SheetsDim drawingSheet1 As DrawingSheetSet drawingSheet1 = drawingSheets1.Item("Details")msgbox(drawingSheet1.name)Dim drawingView1 as DrawingViewSet drawingView1 = drawingSheet1.Views.item("Name1")drawingView1.SetViewName ("","test","")Schau dir mal die Doku an. Dort sind zu den meisten Befehlen kurz ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SetViewName funktioniert nicht
CEROG am 22.01.2009 um 11:04 Uhr (0)
Hallo WilliGo,versuch es mal damit:Es fehlen jetzt noch die Deklarationen.[CODE]Details umbenennenFor I = AnzahlBlaetter To 1 Step -1 Set oSheet = oSheets.Item(I) If oSheets.Item(I).IsDetail Then Set oViews = oSheets.Item(I).Views For J = oViews.Count To 3 Step -1 Name = oViews.Item(J).Name Pos = InStr(Name, "[") - 1 If Pos 1 Then oViews.Item(J).Name = Left$(oViews.Item(J).Name, Pos) End If oViews.Item(J).Name = I & "_" & J & "#" & oViews.Item(J) ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SetViewName funktioniert nicht
WilliGo am 22.01.2009 um 12:26 Uhr (0)
Hallo CEROGvielen Dank für den Code.Haben den Code eingebaut und getestet. Bekomme jetzt aber die folgende Meldung, die ich aber nicht verstehe. "Anweisungsende erwartet = Next J"Die Schleife ist doch beendet mit Next JVielleicht stecke ich auch noch zu sehr in den Kinderschuhen. Sub CATMain() Dim drawingDocument1 As Document drawingDocument1 = CATIA.ActiveDocument Dim drawingSheets1 As DrawingSheets drawingSheets1 = drawingDocument1.Sheets Dim drawingSheet1 As DrawingSheet drawingShe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro-Bohrung R16 und R17
Filippo am 22.01.2009 um 14:15 Uhr (0)
Hallo,beim erzeugen von Bohrungen mit Makros habe ich bemerkt das CATIA ab V5R17 weniger Parameter erzeugt als mit V5R16.Natürlich ist jetzt auch so das gerade der Parameter den ich brauche nicht mehr erstellt wird! Hat jemanden sowas auch bemerkt und wenn ja, gibt es eine lösung?Im Anhang ist ein CATPart, ein CATScript und 2 JPG-DateinCiao,Filippo
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SetViewName funktioniert nicht
CEROG am 22.01.2009 um 15:25 Uhr (0)
Hallo Willi,räum doch erst mal deinen Code auf. Du hast irgendwelche Objekte - deine ursprünglichen - deklariert und verwendet andere, nämlich die aus meinem Code.... Das ist zumindest schlampig und erschwert die die Fehlersuche.Noch ein Hinweis:Die erste View ist immer die Main View, die zweite die BackgroundView, auch bei DetailSheets. Deshalb gehe ich bis 3 runter. Du kannst natürlich auch hochzählen. In meinem Gesamtcode hat es sich insgesamt als günstiger erwiesen, runter zu zählen...Views solltest du ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SetViewName funktioniert nicht
CEROG am 22.01.2009 um 17:46 Uhr (0)
Hallo zusammen,@WilliGo:Ich habe deinen Code mal bereinigt. In dieser Form ist er noch nicht getestet. Code:Sub CATMain() Dim oDoc As DrawingDocument Dim oSheets1 As DrawingSheets Dim oSheets As DrawingSheets Dim oSheet As DrawingSheet Dim oViews As DrawingViews Dim I, J, Pos As Integer Set oDoc = CATIA.ActiveDocument Set oSheets = oDoc.Sheets Set oSheet = oSheet.Item("Details") -------------Details umbenennen------------ For I = oSheets.Count To 1 Step -1 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Produkt und Part öffnen, anschließend Part in produkt einfügen
Florian Held am 22.01.2009 um 18:24 Uhr (0)
Hi, sorry dass ich so eine Anfängerfrage stellen muss aber ich kann nichts finden was mir hilft und es macht mich fast Wahnsinnig.Mein Code:Path = "C:"Set MyRoot = CATIA.Documents.Open(Path & "HANS.CATProduct")Set MyInsert = CATIA.Documents.Open(Path & "EGON.CATPart")MyRoot.Product.Products.AddComponent (MyInsert.Product)Die Letzte Zeile, welche das geöffnete Part EGON.CATPart in das geöffnete Produkt HANS.CATProduct einfügen soll bringt einen Fehler.Weis wer warum bzw. was ich falsch mache?PS: AddComponen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : newWindow (?) für stl export
CAMiCADse am 22.01.2009 um 20:07 Uhr (1)
Hall Smerg, Zitat:Original erstellt von Smerg:hmmm, ist leider nicht, dass was ich meine...Ich möchte direkt aus einem Produkt heraus ein neues Window machen und dort nur aus dem aktiven Produkt, die Komponenten für den stl Export einfügen... und soweit ich weiß geht der Export eines Produktes nicht als stl!?hmmm, hast du meinen Vorschlag schon mal ausprobiert?Solltest du mal machen, ist nämlich genau dass, was du meinst...(Vorausgesetzt, da funkt kein PDM dazwischen)Da CATIA das Document nicht neu von der ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Produkt und Part öffnen, anschließend Part in produkt einfügen
denyo_1 am 23.01.2009 um 07:41 Uhr (0)
Hallo Florian,du versuchst das falsche Objekt zu der Collection in dem Produkt hinzuzufügen. Die AddComponente Methode verlangt ein RefernceProdukt. Du versuchst ein PartDocument hinzuzufügen und da entsteht ein Fehler.Schau dir mal folgenden Code an. Die wichtigen Zeilen hab ich fett markiert.Code:Sub CATMain() Dim oProdDoc As ProductDocument Dim oProd As Product Dim oPartDoc As PartDocument Dim oPart As Product Dim Doc As Documents Set Docs = CATIA.Documents Set oProdDoc = CATIA.ActiveDocument Set oProd ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Delete Useless Elements beschränkt auf ein Geoset
denyo_1 am 23.01.2009 um 07:46 Uhr (0)
Hallo Andi,Florian hat recht. Man kann zwar ohne Probleme auf jede CATIA Funktion mit einem Script zugreifen (StartCommand) aber, die Funktion selber löscht ja schon alle Elemente aus allen GeoSets und lässt dem Anwender hier keine Auswahlmöglichkeiten.Ich könnte mir aber vorstellen das man es mit einem eigenen kleinen Tool lösen könnte. Sprich erst mal soll der Anwender das GeoSet auswählen und dann schaut das Script welche Elemente keine Bzüge haben und löscht diese.------------------MFG DanielDie KATJA ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro starten in Produktstruktur und separaten Fenster
Hezarfen am 02.10.2007 um 14:32 Uhr (0)
Hallo Alex,danke für deine Hilfe.DataName war bei mir eine Function, die mir den Datei/Part Namen herausliest. Ich habe nun mein Makro entsprechend verändert, jedoch verstehe ich das nicht ganz. Wie kann ich nun auf ein Part im Produkt zugreifen. Wenn ich in der Produktstruktur in ein part rein gehe und in ihm ein Parameter veränder, sollte das Makro (im part) starten. Unten steht der code, der funktioniert nur wenn ich das part separat offen habe. In der Produktstruktur muss ich irgendwie noch den Part an ...
|
| In das Form CATIA V5 Programmierung wechseln |
