|
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 |
|
CATIA V5 Programmierung : Konstruktionselement aus Projektion erzeugen
Jasiu am 15.07.2004 um 14:20 Uhr (0)
Kannst Du etwas mehr senden? Catia V5 file und das komplette Macro. Anlageflaeche ist eine Variable? Gruß aus dem noch wilderem Norden! Jan ------------------ [Diese Nachricht wurde von Jasiu am 15. Jul. 2004 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bohrungen und Senkungen
GeorgK am 16.07.2004 um 15:00 Uhr (0)
Habe mal ein Makro aufgezeichnet, wie es aussehen könnte. Komme leider aber mit der Selektion und den Abfragen nicht zurecht. Wie kann ich das machen? Danke Georg Language= VBSCRIPT Sub CATMain() Set documents1 = CATIA.Documents Set partDocument1 = documents1.Item( Part1.CATPart ) Set part1 = partDocument1.Part Set shapeFactory1 = part1.ShapeFactory Set bodies1 = part1.Bodies Set body1 = bodies1.Item( Hauptkörper ) Set shapes1 = body1.Shapes Set pad1 = shapes1.Item( Block.1 ) Set reference1 = part1.Create ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Referenz finden
em Michael Kirsch am 16.07.2004 um 15:48 Uhr (0)
Hallo SebW, ich dachte Du meinst Reference als CATIA Objekt. Mit folgendem Beispiel kannst Du nicht nur die Reference, sondern das referenzierte Objekt selbst identifizieren. Der Weg ist zwar weder schön noch eindeutig, da doppelte Namensvergabe in einem Part nicht unterbunden wird. Aber leider gibt das Objekt Referenz nicht viel mehr als den Namen des refernzierten Objekts :-(( Sub CATMain() Dim MyParentObject As AnyObject Dim MyReference As Reference Dim MySelection As Selection Dim MyP ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bohrungen und Senkungen
em Michael Kirsch am 16.07.2004 um 16:50 Uhr (0)
Hallo GeorgK, dieser Anwendungsfall wäre auch mit einer PowerCopy zu realisieren. Der Vorteil: Man braucht keine einzige Zeile Code schreiben und kann die Bohrung unternehmensweit mit einem CATIA V5-Katalog bereitstellen. Ist die Funktionsweise der PowerCopy bekannt? Grüße, Michael Kirsch ------------------ www.em.ag
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Eingabedialogfeld selbst gestalten
fireman am 18.07.2004 um 11:57 Uhr (0)
Hallo alle im CATIA-Land da draussen, pünktlich für den Sonntagnachmittag habe ich mal wieder eine Frage: wie kann ich in einem Makro mir meine eigene Eingabe-Dialogbox basteln. Benutze ich die normale Eingabebox , so habe ich immer nur ein Eingabefeld zur Auswahl. Bei verschiedenen einzugebenden Werten muss ich dann n-Boxen hintereinander aufrufen, und das sieht meiner Ansicht nach doof und wenig professionell aus. Das eine benutzerdefinierte Eingabebox erzeugt werden kann weiß ich (hab ich schon gesehen ...
|
| In das Form CATIA V5 Programmierung wechseln |
