|
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 : CAD Daten auslesen...
Steffen Hohmann am 26.03.2003 um 14:48 Uhr (0)
Hallo Sebastian, mit Java gehts folgendermaßen: //Wenn CATIA noch nicht gestartet ist var CATIA CATIA = WScript.CreateObject("CATIA.Application") //Wenn CATIA bereits gestartet ist var CATIA CATIA = WScript.GetObject("","CATIA.Application") CATIA.Visible = true Danach hat man über die Variable "CATIA" Zugriff auf alle CATIA-Objecte bzw. Methoden. Bsp. neues Partdocument erzeugen: CATIA.Documents.Add ("Part") Ich hoffe Dir hilfts weiter. Gruss Steffen
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CAD Daten auslesen...
Steffen Hohmann am 26.03.2003 um 16:14 Uhr (0)
Hallo Sebastian, mein Beispiel ist JScript. Da CATIA ein COM-Server ist, sollte die API eigendlich Sprachenneutral sein. Der Zugriff auf die Methoden und Klassen erfolgt über die tlb-Deteien, die im Verzeichnis ..BXXintel_acodein liegen. Da ich mit echtem Java noch nicht programmiert habe, weiß ich nicht, wie diese einzubinden sind. Gruss Steffen
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Aus- zuklappen von Bäumen
Steffen Hohmann am 13.05.2002 um 16:07 Uhr (0)
Hallo demon_37, grundsätzlich kann man jeden CATIA-Befehl aus externen Anwendungen aufrufen. In Visual Basic macht man das über die Sendkeys-Anweisung. Leider gibt es für das CATScript keine äquivalente Anweisung. Wenn man in der glücklichen Lage ist, einen Compiler zu besitzen, erstellt man sich eine kleine exe-Datei, die das erledigt. Ich habe mir z.B. eine kleine Befehlesbibliothek angelegt, die ich dann aus dem CATScript aufrufe. Konkret zu Deinem Problem sieht as so aus: Das Auf- und Zuklappen des Str ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Aus- zuklappen von Bäumen
Steffen Hohmann am 16.06.2003 um 08:50 Uhr (0)
Hallo Louis, der korrekte Befehlsaufruf lautet: SendKeys b:CATIA-Befehlsname + Chr(13), 1 wobei CATIA-Befehlsname für den Namen des zu übertragenen Befehls steht. Wichtig: Befehle, die eine Interaktion erfordern (b:Block, b:Punkt, usw.), können nicht verwendet werden, da das Makro weiterläuft und nicht wartet, bis die Dialogbox geschlossen wird. Gruss Steffen
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Skizzen ins NOSHOW legen?
Steffen Hohmann am 21.07.2003 um 12:05 Uhr (0)
Hallo JPR, Über die Search-Methode sind doch schon alle Skizzen ausgewählt. Jetzt braucht man doch nur noch über die VisProperties die ausgewählten Skizzen ins NoShow schieben. Der folgende 3-Zeiler ist ausreichend. CATIA.ActiveDocument.Selection.Clear CATIA.ActiveDocument.Selection.Search CATGmoSearch.Sketch,all CATIA.ActiveDocument.Selection.VisProperties.SetShow catVisPropertyNoShowAttr Fertig!! Gruss Steffen
|
| 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 : Reframe auf Selektion
Steffen Hohmann am 21.07.2003 um 11:44 Uhr (0)
Hallo Laute, solltest Du mit VB arbeiten kannst Du über die SendKeys-Methode einen CATIA-Befehl absetzen. Der Befehl für das Reframe auf die ausgewählten Objekte lautet Bildschirmfüllend anzeigen bzw Reframe on für die englische Oberfläche. Der Quelltext sieht wie folgt aus: AppActivate CATIA V5 SendKeys b:Bildschirmfüllend anzeigen + Chr(13), True (SendKeys c:Reframe On + Chr(13), True -- für englisch) Da wohl bis dato noch keiner so richtig die StartCommand-Methode zum Laufen gebrach ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : fragen zu macros programmierung an CATDrawings!?
Steffen Hohmann am 28.07.2003 um 08:46 Uhr (0)
Hallo giovane, hier das Makro für Deine Anforderung. Sub CATMain() Dim oFileSystem As INFITF.FileSystem Set oFileSystem = CATIA.FileSystem Dim oFolder As INFITF.Folder Verzeichnisname für CATIA-Zeichnungen Set oFolder = oFileSystem.GetFolder( C:Tempa ) Dim FileSep As String FileSep = oFileSystem.FileSeparator Dim i As Long Dim j as Variant Dim oFile As INFITF.File Dim oActiveDoc As DrawingDocument Dim BackView As DrawingView Dim oText As DrawingText ...
|
| 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 |
|
CATIA V5 Programmierung : Position.GetComponents - Funktion
Steffen Hohmann am 24.07.2003 um 11:29 Uhr (0)
Hallo Laute, bei mir funkts in VB. Ich habe folgende Struktur: 1. ein Modul mit einer Sub Main (Main ist die Startprocedure des VB-Projektes) Public CATIA As Application Sub Main() AppActivate CATIA V5 DoEvents Set CATIA = GetObject( , CATIA.Application ) Form1.Show End Sub 2. eine Form mit Button und einer Ereignisprocedure für den Button Private Sub Command1_Click() Dim oSel Set oSel = CATIA.ActiveDocument.Selection Dim sFilter(3) sFilter(0) = Pla ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Position.GetComponents - Funktion
Steffen Hohmann am 25.07.2003 um 13:45 Uhr (0)
Hallo Laute, bei Verwendung der SendKeys-Methode muß auf jeden Fall das CATIA-Fenster aktiv sein. Es kann durchaus sein, dass das Makro zu schnell läuft und der gesendete CATIA-Befehl im Nirwana landet. Setzte einfach vor die SendKeys-Methode noch ein DoEvents, damit das Betriebssystem alle Arbeiten vor der Befehlsübergabe an CATIA erledigt. Oder Du aktivierst noch über AppActivate CATIA V5 das CATIA-Fenster aus dem Programm. Gruss Steffen
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : liste (collection) erstellen
Steffen Hohmann am 05.12.2003 um 09:26 Uhr (0)
Hallo gvescovi,der Klasse "Collection" ist in Visual Basic definiert und im CATScript nicht verfügbar. Ein CATIA Äquivalent ist mir nicht bekannt.Als Alternative kann man sich ja ein ARRAY vom Type "Hole" definieren, in welchem man die Bohrungen ablegt.Dim HoleArray () As HoleReDim HoleArray (50)GrussSteffen
|
| In das Form CATIA V5 Programmierung wechseln |
