|
CATIA V5 Programmierung : Assembly-Design - Sectioning -> Schnitte durch Makro als CATPart abspeicher
Tapani. am 14.07.2006 um 10:58 Uhr (0)
moin,hier der einfachste Fall: ein Product mit einem Part, im Part ist belibige Geometrie im Hauptkörper definiert und im ersten Hybridbody (Geometrisches Set in der Übersetzung) ist die Schnittebene als Ebene definiert.Code:sub CATMain() Dim fa(2), sa(2), op(2), mat(11) set plane1 = CATIA.ActiveDocument.Product.Products.Item(1).ReferenceProduct.Parent.Part.HybridBodies.Item(1).HybridShapes.Item(1) plane1.GetFirstAxis fa plane1.GetSecondAxis sa plane1.GetOrigin op set secs = CATIA.ActiveDocument.Product.Ge ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Join: Flächen aus Parts importieren
Tapani. am 20.07.2006 um 09:08 Uhr (0)
moin,das Problem liegt, wie du schon richtig erkannt hast darin, das im Click-Interface implizit einige Schritte durchgeführt werden, die vom Recorder nicht aufgezeichnet werden. In der Regel sind diese Schritte aber auch durch das Script erreichbar, man muss sie eben nur komplett per Hand erstellen, da der Recorder versagt...So, aber nun zum Problem:Wenn die eine Fläche in einem anderen Part liegt, musst du sie zuerst kopieren und dann per Paste Special als "as Result" in dem anderen Part einfügen. Aus ir ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter schnell ansprechen
Tapani. am 24.05.2006 um 14:46 Uhr (0)
Hallo Legat,als ersten Tip würde ich versuchen so viel wie möglich von den CATIA-Objekten in Variablen zwischen zu speichern:statt in der SchleifeCode:set Param = CATIA.ActiveDocument.Part.Parameters.Item(...)lieberCode:set paramsCol = CATIA.ActiveDocument.Part.Parametersaußerhalb der Schleife und dann Code:paramsCol.Item(...)innerhalb der Schleife.Aber ob das den erwünschten Effekt bringt ist fraglich, deshalb noch eine weitere, aber wesentlich kompliziertere Möglichkeit:Du bildest zuerst von allen Parame ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Färben einer Selektion
Tapani. am 24.07.2006 um 11:37 Uhr (0)
moin,das Problem liegt darin, das "VisProperties" eine Property von "Selection" ist und nicht von SelectedElement.grob skizziert sieht das also so aus:set sel = CATIA.ActiveDocument.Selectionstatus = sel.SelectElement2(...)sel.VisProperties.SetRealColor ...sel.Item(1).Value.Name = deinNeuerNameCU tapani------------------Dont take life so seriously....its not a permanent condition
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Fortschrittsanzeige / MsgBox ohne OK
Tapani. am 10.07.2006 um 11:20 Uhr (0)
Moin,ich setze 3 andere Methoden ein:Wenn der Algorithmus des Scriptes einmal den ganzen Strukturbaum abklappert, selektiere ich einfach das aktuelle Product und sehe so, wie weit das Script ist, oderich starte das Script ausserhalb von Catia (als *.vbs) mit cscript und nutze WScript.Echo Die Ausgabe erfolgt dann im Command-Window von der Scripting-Shell.Oder die Information landet in einem log-File, das man sich dann mit dem unix-command (unter windows: cygwin sei dank) mit tail -f log-file ansehen kann.C ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter anzeigen
Tapani. am 21.07.2006 um 16:08 Uhr (0)
moin,das Problem ist einfacher, als man erwarten würde, da alle Parameter, auch die in irgendwelchen sub-Products oder -Parts, in der Top-Level-Parameter-Collection enthalten sind. Da sind dann auch alle impliziten Parameter gelistet, aber über "UserAccessMode" kriegt man die user-Parameter raus.Beispiel-code:Code:sub CATMain() set params = CATIA.ActiveDocument.Product.Parameters for i = 1 to params.Count if params.Item(i).UserAccessMode = 2 then str = str & params.Item(i).Name & vbtab & params.Item(i). ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Assembly-Design - Sectioning -> Schnitte durch Makro als CATPart abspeicher
Tapani. am 10.07.2006 um 14:08 Uhr (0)
moin,beim Recorden von Makros werden für den Zugriff per .Item immer die Namen der Objekte verwendet, z.B. Documents.Item("Product1.CATProduct"). Beim zweiten Durchlauf des Makros heißt das Objekt aber meist anders z.B. "Product2.CATProduct". Willst du nur auf das aktuelle Dokument zugreifen ist CATIA.ActiveDocument.... der einfachste Weg. Und wenn du über alle Elemente eine Collection interieren willst, bietet sich der Zugriff über den Index an: For i = 1 to Documents.Count dosomething Documents.Item(i)ne ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Assembly-Design - Sectioning -> Schnitte durch Makro als CATPart abspeicher
Tapani. am 11.07.2006 um 15:48 Uhr (0)
moin,nö, sind sie nicht.Dann musst du mit GetTechnologicalObject arbeiten. z.B. set secs = CATIA.ActiveDocument.Product.GetTechnologicalObject("Sections") Annahme: das ActiveDocument ist ein CATProduct!Mit einer der Add-Funktionen des Sections-Objektes kannst du dann eine neue Section erstellen und danach an deren Properties rumschrauben... z.B. SetPosition zum setzen der SchnittebeneAllerdings entsteht dabei keine geschnittene Geometrie, d.h. die bestehende Geometrie wird nicht verändert. Außerdem ist m. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Anfängerfrage: Product speichern
Tapani. am 13.07.2006 um 17:26 Uhr (0)
moin,Jedes CATIA-Document-Objekt hat eine Property "Saved" die angibt ob das entsprechende Dokument gespeichert werden muss oder nicht und weiterhin eine Methode "Save" die das Dokument abspeichert. Eine kleine Schleife über alle Dokumente der Documents-Collection und du bist fertig. Falls mehrere (unabhängige) Dokumente geöffnet sind, sollte man jedoch den Strukturbaum des zu speichernden Product-Dokumentes abgrasen und so nur die zu dem entsprechenden Product gehörigen Dokumente ermitteln und dann abspei ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Do Until Schleife, Ausgans-Prüfkriterium
Tapani. am 18.07.2006 um 10:24 Uhr (0)
moin,dein E liefert den Status des Select-Commands, d.h. "Normal", "Cancel" etc. und nicht den Typ des Selected Element. Um das rauszukriegen gibts die VBS-Funktion typename. Auch brauchst du bei SelectElement2 nicht EndSelectElement zu verwenden. Und wenn du mit VB-Script arbeitest sollten Dim-Statements kein "as" enthalten. Gibt bei mir zumindest einen kritischen Fehler.Dann sieht dein Script folgendermaßen aus:Code:Sub CATMain() Dim Ref(0) Ref(0)= "AnyObject" Do Set UserSel=CATIA.ActiveDocument.S ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Copy/Paste
Tapani. am 01.09.2006 um 10:53 Uhr (0)
moin,das Problem liegt wohl darin, welches Objekt das Active Object (blau hinterlegtes Element in CATIA) ist, denn den Code hab ich gerade noch mal ausprobiert und an sich ist das ok. Der Fehler taucht nur dann auf, wenn das Ziel-Part nicht Bestandteil des ProductDocuments ist, indem das Quell-Part liegt und das Ziel-Part das ActiveDocument istoderwenn das Ziel-Part und Quell-Part zwar Bestandteil des selben ProductDocuments sind, aber das Ziel-Part (oder ein ganz aderes Part) das Active Object ist.Am einf ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Fläche aus anderem Part einfügen???
Tapani. am 28.07.2006 um 09:38 Uhr (0)
moin,das Problem liegt darin, das der Zielort für den Paste-Befehl in der Selection stehen muss. Du mußt die erstmal das ActiveDocument vor dem Öffenen des Parts merken und dann nach dem Copy das ursprüngliche Part-Document aktivieren (Document.Activate), dir davon die Selection holen (sicherheitshalber löschen) und dann den Hybridbody, in den die Fläche eingefügt werden soll, per "Add" in die Selection einfügen und dann den Paste-Befehl ausführen.grob skizziert sieht das dann so aus:Code: set oldActDoc ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parts umbenennen
Tapani. am 27.07.2006 um 11:16 Uhr (0)
moin,ich würde den ganzen Strukturbaum des gewünschten Documents traversieren und dabei alle Namen und Partnumbers ändern: Code:Sub traverse(Prod, origstr, newstr) set refp = Prod.ReferenceProduct if instr(refp.Name, origstr) then newpname = Replace(refp.Name, origstr, newstr) refp.Name = newpname end if if instr(refp.PartNumber, origstr) then newpnum = Replace(refp.PartNumber, origstr, newstr) refp.PartNumber = newpnum end if Set prods = Prod.Products pc = prods.Count If pc 0 then For i = 1 to pc ...
|
| In das Form CATIA V5 Programmierung wechseln |
