|
CATIA V5 Programmierung : Interaktive Selektion eines Splines für VB?
Steffen Hohmann am 15.04.2003 um 18:05 Uhr (0)
Hallo Andreas, hier der Lösungsansatz zur Auswahl von Splines: Sub Main() Dim CATIA As Application Dim oPartDoc As PartDocument Dim oSel() As Object Dim SelFilter(1) Set CATIA = GetObject(, "CATIA.Application") Set oPartDoc = CATIA.ActiveDocument SelFilter(0) = "HybridShapeSpline" SelFilter(1) = "Spline2D" oPartDoc.Selection.Clear oPartDoc.Selection.SelectElement SelFilter, "Splines auswählen", False ReDim oSel(oPartDoc.Selection.Count) For i ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Copy/Paste von Körpern durch Selektion in einer Baugruppe
Steffen Hohmann am 09.04.2003 um 17:52 Uhr (0)
Hallo Dietmar, das Dokument, in dem der Körper ausgewählt wurde, erhältst Du über Selection.Item(XXX).Value.Parent.Parent.Parent (siehe unten) Das aktivieren eines Parts innerhalb des Produktes ist dabei nicht notwendig. Anbei das komplette Beispiel als CATScript-Code. Sub CATMain() Dim oPartDoc As PartDocument Dim oProdDoc As ProductDocument Dim oSel As Object Dim SelFilter(0) Set oProdDoc = CATIA.ActiveDocument SelFilter(0) = "Body" oProdDoc.Selection.SelectElement S ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ebenen in Makro umbenennen und löschen
Steffen Hohmann am 27.01.2003 um 10:52 Uhr (0)
Hallo Axel, die meisten Objekte können auch über den Namen angesprochen werden, wenn man die zugehörige Collection kennt. Am Beispiel deines geöffneten Körpers "Referenz" sieht das so aus: CATIA.ActiveDocument.Selection.Clear CATIA.ActiveDocument.Selection.Add (CATIA.ActiveDocument.Part.HybridBodies.Item("Referenz") CATIA.ActiveDocument.Selection.Delete Gruss Steffen
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Referenz aus 3d-Element in globaler Variablen sichern
Steffen Hohmann am 13.08.2004 um 13:03 Uhr (0)
Hallo fireman, in letzter Zeit häufen sich die Beiträge, in denen es darum ging, ein Part in einer Baugruppe über ein Makro zu aktivieren. Aus meiner Sicht sehe ich keine Notwendigkeit dies zu tun, da auf jedes Objekt (auch Objekte aus Parts) innerhalb einer Baugruppe zugegriffen werden kann. Man muß nur den Objektpfad von oben nach unten durchgehen. Nun zu deinem Problem: Innerhalb eines geöffneten Dokuments gibt es nur eine (und nur eine!) Selection-Instanz: CATIA.ActiveDocument.Selection Über dieses Sel ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bestimmten Linienstärken eine Farbe zuweisen
Steffen Hohmann am 22.07.2003 um 09:32 Uhr (0)
Hallo Gansen,so gehts:Sub CATMain() CATIA.ActiveDocument.Selection.Search "Weight=0,13mm,all" CATIA.ActiveDocument.Selection.VisProperties.SetRealColor 255,0,0,1 CATIA.ActiveDocument.Selection.Search "Weight=0,35mm,all" CATIA.ActiveDocument.Selection.VisProperties.SetRealColor 0,255,0,1 CATIA.ActiveDocument.Selection.ClearEnd SubGrussSteffen
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selection wiederverwenden
Steffen Hohmann am 04.08.2004 um 14:48 Uhr (0)
Hallo Ronny, es gibt pro Dokument immer nur ein Selection-Instanz. Die Anweisung Set Selection2 = Selection1 erzeugt also keine neue Instanz sondern nur einen weiteren Verweis auf die Selection. Wird die Selection an irgendeiner Stelle geändert, beispielsweise auch durch interaktive Auswahl, ändern sich auch beide Selection-Objekte. Du mußt also vor Änderung der Selection nicht das Objekt sichern, sondern den Inhalt. Bsp: Dim Selection1 As Selection Set Selection1 = CATIA.ActiveDocument.Selection Selection ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Referenz aus 3d-Element in globaler Variablen sichern
Steffen Hohmann am 09.06.2004 um 11:11 Uhr (0)
Hallo fireman, so müßte es gehen: Sub CATMain() Dim Anlageflaeche As Reference Dim odoc As PartDocument Set odoc = CATIA.ActiveDocument Dim oSel As Selection Set oSel = odoc.Selection Dim aSelArray(0) aSelArray(0) = Face oSel.Clear oSel.SelectElement2 aSelArray, Fläche auswählen , False Set Anlageflaeche = oSel.Item(1).Reference Dim oSketch As Sketch Set oSketch = odoc.Part.MainBody.Sketches.Item( Skizze.XXXXX ) oSketch.OpenEdition ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selection und VisProperties
Steffen Hohmann am 30.05.2005 um 17:01 Uhr (0)
Hallo Max, man kann schon einzelne Elemente einer Selection ansprechen mit MySelection.Item(i) Nur die Methode GetRealColor gilt immer für die ganze Selection. Hier muß man also zu einem Trick greifen. Zuerst speichert man die einzelnen Elemente der Selection in ein Array: Dim SelElemente() As Object ReDim SelElemente(MySelection.Count) Groesse des Feldes setzen For i = 1 To MySelection.Count Set SelElemente(i) = MySelection.Item(i) Next i Dann löscht man die Selection und weist der Selection einzeln ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : makros beim öffnen ausführen
Steffen Hohmann am 28.01.2004 um 09:01 Uhr (0)
Hallo Adam, in CATIA gibt es kein Autostart-Makro wie in EXCEL. Du könntest beispielsweise das Produkt über ein Makro öffnen, und dieses dann weiterlaufen lassen (mit den Anweisungen, die für das Produkt gelten) Gruss Steffen
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makros im Skizziermodus
Steffen Hohmann am 24.06.2005 um 12:35 Uhr (0)
Hallo, es gib eine Möglichkeit, in den Skizziermodus zukommen. Als erstes wird die Skizze über das Programm selektiert und dann über die StartCommand-Methode der Skizziermodus aufgerufen. Sub CATMain() Dim oDoc As PartDocument Set oDoc = CATIA.ActiveDocument Dim oPart As Part Set oPart = oDoc.Part Dim oBody As Body Set oBody = oPart.MainBody Dim oSketch As Sketch Set oSketch = oBody.Sketches.Item(1) Dim oSel As Selection Set oSel = oDoc.Selection oSel.Add oSketch ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makrobefehle
Steffen Hohmann am 14.04.2003 um 08:13 Uhr (0)
Hallo AS24, Linienstärken kann man nur über die VisProperties setzen. Bsp.: ... Set MyView = MySheet.Views.Item(XXX) Set GeoFac = MyView.Factory2DSet Set MyLine = GeoFac.CreateLine(0#, 0#, 0#, 100#) DrawingDocument.Selection.Clear DrawingDocument.Selection.Add MyLine DrawingDocument.Selection.VisProperties.SetRealWidth 1, 0 ... Gruss Steffen
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Erzeugen/Löschen von Dokumenten
Steffen Hohmann am 22.06.2005 um 14:51 Uhr (0)
Hallo Schotti, mir ist der Sinn nicht ganz klar. Diese enthalten Produkte können mehrere Komponenten mit Parts enthalten. - Was ist eine Komponente mit Parts? Es werden die gewünschten Komponenten angelegt. Im Produkt sind alle Komponenten enthalten (Alles OK!). Das Part jedoch enthält keine kopierten Köper (es ist leer). - Das Part muß ja leer sein, da es neu angelegt wird. Ich glaube, ich kann Dir nur helfen, wenn ich ein konkretes Beispiel habe. Damit meine ich keine weit ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Position.GetComponents - Funktion
Steffen Hohmann am 24.07.2003 um 08:32 Uhr (0)
Hallo Laute, Was sind denn die Positionsdaten eines Features (Pad, Fillet, usw.)? Also die Position-Methode funktioniert nur mit Part s, Product s und sonstigen Komponenten, die in einer Baugruppe verbaut werden können. Eine andere Anwendungsmöglichkeit die funktioniert ist mir nicht bekannt. Dein zweites Makro läuft, wenn Du die Typdeklaration von oPosition auskommentierst. Aber Du bekommst in der Matrix dPosition nur die Positionskoordinaten vom oPart. Die Anweisung Set oPart = CATIA.ActiveDocument. ...
|
| In das Form CATIA V5 Programmierung wechseln |
