|
CATIA V5 Programmierung : Edit-Modus abfragen
em Michael Kirsch am 06.07.2004 um 17:10 Uhr (0)
Hallo BigCheese, meines Wissens nach gibt es hier keinen direkten Weg, aber: Wenn das aktive Part gleichzeitig auch selektiert ist, kann man diese Selection in ein Part casten: Dim MyActiveDocument As Document Set MyActiveDocument = CATIA.ActiveDocument Dim MyPart As Part Set MyPart = MyActiveDocument.Selection.Item(1) Grüße, Michael Kirsch ------------------
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Produkt oder Part mit Makro aktivieren
em Michael Kirsch am 06.07.2004 um 17:18 Uhr (0)
Hallo lucky-- wenn man die fraglichen Part- bzw. Product-Objekte einmal hat, kann man sie per Skript einfach aktivieren bzw. deaktivieren, z. B.: Dim MyPart As Part Set MyPart = CATIA.ActiveDocument.Product.Products.Item(n) MyPart.Deactivate Nun sollte das Part deaktiviert sein. Alternativ könnte man auch mit Hide/Show arbeiten oder mit Load/Unload. Grüße, Michael ------------------
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Product to CatPart starten mit Makro
BADU am 01.07.2004 um 16:12 Uhr (0)
Hallo Catia User wie kann ich die Funktion Product to CatPart mit Makro starten? Kleine Syntax wäre hilfreich.Danke für eure Hilfe Gruss Badu ------------------ Gruss BADU
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Product to CatPart starten mit Makro
Steffen Hohmann am 05.07.2004 um 10:32 Uhr (0)
Hallo BADU, das liegt daran, daß mit der Anweisung CATIA.SystemService.ExecuteBackgroundProcessus ( I:makroCATIABefehl.exe Convert product to CATPart ) eine Hintergrundverarbeitung stattfindet. D.h. Das Makro wartet nicht bis Schritt 2 abgearbeitet wurde, sondern setzt nach Aufruf von Schritt 2 gleich mit Schritt 3 fort. Ändere einfach ExecuteBackgroundProcessus in ExecuteProcessus , dann sollte es funktionieren. Gruss Steffen
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Product to CatPart starten mit Makro
Steffen Hohmann am 05.07.2004 um 11:36 Uhr (0)
Hallo BADU, ja Du hast recht. So geht s nicht, da der Befehl die Auswahl einer Baugruppe erfordert. Somit ist eine Interaktion mit CATIA notwendig und ExecuteProcessus schaltet diese Interaktion aus. Eigentlich bietet CATIA mit CATIA.StartCommand (Befehl) eine Möglichkeit. Wer es irgendwie zum Laufen bekommen hat, bitte laßt es der ganzen Welt wissen!! Gruss Steffen
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : prüfen ob Dokument offen
JFS am 07.07.2004 um 08:03 Uhr (0)
Hi, AnzDoc = CATIA.Documents.Count If ( AnzDoc = 0 ) Then MsgBox no document opened Exit Sub End If Gruß JFS
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kompass und Strukturbaum ausblenden
axl07111 am 08.07.2004 um 10:27 Uhr (0)
Hallo Zusammen,weiß von Euch jemand wie man per Makro den Kompass und den Strukurbaum ausblendet ?Ich habe das Problem, daß ich nicht weiß mit welchem Befehl ich diese Operation durchführen kann.Die Makroaufzeichnung liefert folgendes Ergebnis:Sub CATMain() Dim specsAndGeomWindow1 As SpecsAndGeomWindowSet specsAndGeomWindow1 = CATIA.ActiveWindowDim viewer3D1 As Viewer3DSet viewer3D1 = specsAndGeomWindow1.ActiveViewerDim viewpoint3D1 As Viewpoint3DSet viewpoint3D1 = viewer3D1.Viewpoint3D KompassSet viewpoin ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kompass und Strukturbaum ausblenden
em Michael Kirsch am 08.07.2004 um 11:27 Uhr (0)
Hallo axl07111,so kannst Du den Spezifikationsbaum bzw. die Geometrie ein- und ausblenden:Sub CATMain() Dim MyWindow As SpecsAndGeomWindow Dim MyViewer As Viewer3D Set MyWindow = CATIA.ActiveWindow -----nur Geometrie----- MyWindow.Layout = catWindowGeomOnly -----Geometrie und Spezifikationsbaum----- MyWindow.Layout = catWindowSpecsAndGeom -----nur Spezifikationsbaum----- MyWindow.Layout = catWindowSpecsOnlyEnd SubBeim Kompass muss ich leider passen.Hope that helps!Michael Kirsch------------- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selection/SelectedElement
em Michael Kirsch am 09.07.2004 um 11:50 Uhr (0)
Hallo Bartleby, was Du vorhast, könnte man auch einfach mit dem Objektpfad lösen statt mit einer Suche. Dim i, j As Long Dim MyPart As Part Dim MyCurrentBody As Body Dim MyPad As Pad Set MyPart = CATIA.ActiveDocument.Part For i = 1 To MyPart.Bodies.Count Set MyCurrentBody = MyPart.Bodies.Item(i) -----Alle Bodies abprüfen----- For j = 1 To MyCurrentBody.Shapes.Count -----Variable MyPad leeren----- Set MyPad = Nothing -----Error Handling ausschalten----- On Erro ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zu welchem Body gehört selection?
em Michael Kirsch am 12.07.2004 um 12:57 Uhr (0)
Hallo Stekolschik, folgendes Programm liefert zu einem ausgewählten Element den Namen des entsprechenden Bodys. Der Clou ist die Übergabe des selektierten Objekts mit der Methode Value der Klasse SelectedElement : Option Explicit Dim MyPartDocument As PartDocument Dim MySelection As Selection Dim i As Long Dim MyBodyName As String Sub CATMain() Set MyPartDocument = CATIA.ActiveDocument Set MySelection = MyPartDocument.Selection For i = 1 To MySelection.Count MyBodyName = MySelection.Item(i).Value.Pa ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Layernummer abfragen
LordFuture am 13.07.2004 um 22:13 Uhr (0)
Hi, ich hab ein kleines Problem. Ich habe ein Part mit mehreren Körpern, welche auf unterschiedlichen Layern liegen. Was ich brauche ist eine Liste der Körper (Ihre Namen) mit den Layernummern der Layer auf denen sie halt liegen. Kann mir jemand sagen wie ich den Layer eines Körpers ermittele? Hier mein Program: Sub CATMain() Set partDocument1 = CATIA.ActiveDocument Set part1 = partDocument1.Part Set bodies1 = part1.Bodies msgbox Anzahl der Körper: & bodies1.count Dim solarray(999) Dim layarray(999) for ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Referenz finden
em Michael Kirsch am 15.07.2004 um 10:47 Uhr (0)
Hallo SebW, wenn Du das Objekt der Projektion hast, kannst Du mit der Methode ElemToProject das projizierte Element als Referenz auslesen: Dim MyProjection As HybridShapeProject Dim MyProjectedElement As Reference Set MyProjection = CATIA.ActiveDocument.Part.HybridBodies.Item(`Name des Körpers`).HybridShapes.Item(`Name der Projektion`) Set MyProjectedElement = MyProjection.ElemToProject Hope that helps, Michael ------------------ www.em.ag
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part umbenennen mit Teilenummer
em Michael Kirsch am 15.07.2004 um 11:01 Uhr (0)
Hallo V5amSee, die PartNumber auszulesen und daraus einen Dateinamen zu bauen ist sicher nicht das Problem. Wenn die Parts nicht in Baugruppen eingebettet sind, lässt sich das im Prinzip folgendermaßen realisieren: Dim MyPartDocument As PartDocument Set MyPartDocument = CATIA.ActiveDocument MyPartDocument.SaveAs(MyPartDocument.Part.PartNumber) Wenn aber Baugruppen mit im Spiel sind, wird die Herausforderung darin bestehen, die geladene Baugruppenstruktur zu identifizieren und dann die geladenen Parts und P ...
|
| In das Form CATIA V5 Programmierung wechseln |
