|
CATIA V5 Programmierung : Aus Polylinie Koordinaten der Punkte auslesen
Steffen Hohmann am 14.09.2004 um 16:19 Uhr (0)
Hallo Marco,ich würde es wie folgt machen:Wenn der Name der Polylinie bekannt ist, dannDim oPart As PartSet oPart = CATIA.ActiveDocument.PartDim oPolyLine As HybridShapePolylineSet oPolyLine = oPart.FindObjectByName("Name_der_Polylinie")oder auswählen lassenDim oSelection As SelectionDim aSel(0)aSel(0) = "HybridShapePolyline"Set oSelection = oDoc.SelectionoSelection.SelectElement2 aSel, "Polylinie auswählen", FalseSet oPolyLine = oSelection.Item(1).ValueDanach Schleife aufbauen und Punktkoordinaten auslese ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Product to CatPart starten mit Makro
Steffen Hohmann am 14.09.2004 um 16:38 Uhr (0)
Hallo Ronny, eine Zwangspause kann man machen, indem man einfach eine Userform einblendet, die auf ein Klick auf eine Schaltfläche wartet. Die Userform muß aber mit Userform.Show 1 aufgerufen werden und mit dem Schaltflächen-Ereignis Userform.Hide wieder ausgeblendet werden. Da die Userform aber beim Bedienen von CATIA in den Hintergrund verschwindet, muß man sie als immer im Vordergrund definieren, so wie das beim Taskmanager der Fall ist. Gruss Steffen
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Product to CatPart starten mit Makro
Bartleby am 15.09.2004 um 07:29 Uhr (0)
Hallo Steffen, ich arbeite eben mit VBA da muss man Userform.Show 0 verwenden weil das Macro sonst auf eine Interaktion wartet, und nicht execute... als nächsten befehl ausführt. Noch eine andere Frage: ich will die CatiaError Messages zeitweise abschalten analog zu CATIA.DisplayFileAlerts=False CATIA.DisplayAlerts [boolean] gibts aber nicht oder ich hab s nur noch nicht gefunden. die Fehler(meldungen) sind lästig und werden sowieso im anschluss behoben. Gibts da irgendwo nen Schalter? MfG Ronny [Diese Na ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VBA Start
anhtuanvu am 15.09.2004 um 12:51 Uhr (0)
Hi, aber es gibt nicht mehr auf der Webseit. ------------------ Dumbo CATIA V5, R13, SP5
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VBA, Parameterwerte auslesen
anhtuanvu am 15.09.2004 um 12:54 Uhr (1)
Hallo Leute,ich bin ganz neu mit Catia beschäftig. Könnt ihr mir beibringen, wie man CATSkript erstellt? Mit welchem Program schreibt man? Ist das VBA oder?Danke sehr------------------DumboCATIA V5, R13, SP5
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Daten aus Textdatei einlesen
alf3k am 16.09.2004 um 12:53 Uhr (0)
Hallo, nachdem mein erstes richtiges Makro nun läuft, habe ich gleich noch ein weiteres Problem. Ich möchte von der erzeugten Textdatei die Koordinaten der Punkte einlesen, ein bisschen verändern und dann wieder in eine neue Textdatei mit gleichem Format schreiben. Die Textdatei habe ich angehängt.Mit dem Einlesen bin ich bisher soweit gekommen:--------------------------------------------------Const cDateiPfad = "C:Makroverzeichnis1 est_01.txt"Const cUmgerechnetPfad = "C:Makroverzeichnis1Umgerechnet_01.txt ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Daten aus Textdatei einlesen
Criollo am 06.08.2010 um 13:38 Uhr (0)
Hallo,so jetzt habe ich es hinbekommen.Man muss gleich über das CATIA.FileSystemObject gehen, dann klappt es auch.Vielen Dank trotzdemCrio
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selektion während der Laufzeit
Andreas Isele am 17.09.2004 um 10:47 Uhr (0)
Hallo, Versuchs mal hiermit: Sub CATMain() Dim Was2 (0) Was2 (0) = HybridShapePolyline Dim UserSel2 As Selection Set UserSel2 = CATIA.ActiveDocument.Selection UserSel2.Clear Dim Polylinie as HybridShapePolyline Dim oSelElem2 as SelectedElement Dim E2 As CATBSTR E2 = UserSel2.SelectElement(Was2, Punkt auswählen. , true) If E2 = Normal Then Set oSelElem2 = UserSel2.Item(1) MsgBox ( bla & UserSel2.Count) Else MsgBox ( Abbruch ) End If UserSel2.EndSelectElement Usersel2.Clear End Sub Gruss Andreas
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selektion und anschließendes Suchen in Selektion
zizorro am 17.09.2004 um 11:27 Uhr (0)
Hallo zusammen, ich w�rde gerne �ber ein Makro erreichen, dass ein User aufgefordert wird, einen HybridBody zu selektieren und in diesem HB dann alle Elemente, die einen bestimmten Suchstring im Namen haben, sucht. Bisher sieht mein Skript so aus: Sub CATMain() Dim MyPart As Document Set MyPart = CATIA.ActiveDocument Dim Was(0) Was(0) = HybridBody Dim UserSel As Selection Set UserSel = CATIA.ActiveDocument.Selection UserSel.Clear MsgBox ( Bitte selektieren Sie den HybridBody ) Dim SelBody As CATBST ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selektion und anschließendes Suchen in Selektion
Andreas Isele am 17.09.2004 um 13:18 Uhr (0)
Hallole, Versuchs bei der Suche mal mit: Dim CATIA As INFITF.Application Set CATIA = GetObject(, CATIA.Application ) Dim partDocument1 As Document Set partDocument1 = CATIA.ActiveDocument Dim part1 As Part Set part1 = partDocument1.Part Dim hybridShapeFactory1 As Factory Set hybridShapeFactory1 = part1.HybridShapeFactory Dim hybridBodies1 As HybridBodies Set hybridBodies1 = part1.HybridBodies Dim HB As HybridBody Set HB = hybridBodies1.Item(UserSel.Item(1).Value.Name) .... keine Garantie. Gruss Andreas
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selektion und anschließendes Suchen in Selektion
zizorro am 17.09.2004 um 13:36 Uhr (0)
Hallo Andreas, wenn ich das richtig versteh und die Suche sich hinter Dim CATIA As INFITF.Application Set CATIA = GetObject(, CATIA.Application ) verbirgt, dann funktionierts irgendwie nicht :-( Trotzdem danke, Gruß, zizo
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selektion und anschließendes Suchen in Selektion
Günter K. am 17.09.2004 um 14:15 Uhr (0)
Hallo zizo, ich bin s noch einmal. Ich glaube, ich habe es einigermaßen hinbekommen: Sub CATMain() Dim MyPart As Document Set MyPart = CATIA.ActiveDocument Dim Was(0) Was(0) = HybridBody Dim UserSel As Selection Set UserSel = CATIA.ActiveDocument.Selection UserSel.Clear MsgBox ( Bitte selektieren Sie den HybridBody ) Dim SelBody As CATBSTR SelBody = UserSel.SelectElement(Was, HybridBody wählen , true) Dim HB As HybridBody Set HB = UserSel.Item(1).Value UserSel.Clear UserSel.Add(HB) MsgBox (UserSel ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Teilweise umbenennen von Features
zizorro am 17.09.2004 um 15:00 Uhr (0)
Hallo! Im Anschluß an meinen letzten Thread habe ich doch gleich noch einmal eine Frage: Die gesucht und gefundenenen Features haben alle Namen nach folgendem Schema: Bsp: Plane.23_fuer_Skizze Line.2_fuer_Skizze Point.6_fuer_Skizze Jetzt möchte ich, dass der vordere Teil des Namens (Plane.23_) bestehen bleibt, und alles was dahinter kommt (fuer_Skizze) ersetzt wird, durch einen im Skript definierten String. Also z.B. Plane.23_ohne Referenz Line.2_ohne Referenz Point.6_ohne Referenz ...
|
| In das Form CATIA V5 Programmierung wechseln |
