---

Hallo Gemeinde,

ich möchte folgendes mit CATIA bewerkstelligen: (ALT / F11)
habe einen beliebigen Quellcode
....
StelleX
....

an Stelle X benötige ich den Namen des aktiven Fensters (PART). Da ich nicht weis, wie die Datei nachher heißen wird, muss ich den Namen des aktiven Fensters auislesen.
Quasi:

Dim Name as string
Name = ??????

Beispielsweise heißt die offene Datei "A.CATPart"
dann soll nachher in Name das drinstehen (OHNE Pfad)

hoffe, jemand hat dazu eine Lösung...
MFG Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Namensueberpruefung.txt

Servus,

sofern ich dich richtig verstanden hab sollte dir das angefügte Textfile helfen.

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke schöön ...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nochmals - rein aus Interesse:

comefrom = Left(CATIA.ActiveDocument.name, Len(CATIA.ActiveDocument.name) - 8)
das gibt den aktuellen Namen an ("A.CATPart")

wie würde der Quellcode aussehen, um den ganzen Pfad anzuschauen ?
("C:\A.CATPart")

MFG
Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus,

Code:

---

MsgBox (CATIA.ActiveDocument.FullName)

---

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

danke, das ging ja superschnell 
wofür ich das eigentlich brauche :
Ich mache mit einem MAKRO ein neues Fenster auf (z.B. B.CATPart)
dann will ich wieder zurück zu A.CATPart (welche bereits ja offen ist)

mit
CATIA.Documents.Item(comefrom).Activate

naja, aber das funktioniert nicht so wie es sollte 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ok, muss noch CATPart hinzufügen
also comefrom = comefrom & ".CATPart"

... PS: gibt es hier kein "editieren ??? 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Editieren.jpg

Servus,

sicher doch. Siehe Bild (roter Rahmen)

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ah ok, da hab ich gar net gesucht  

Danke dir nochmals

und noch eine Frage:
Ich hab mit dem Makrorekorder ein Makro aufgezeichnet
(Einen Positionspunkt in einem Geoset kopiert / in ein Geoset in einem Fremdem Body eingefügt mit LINK / Replace den alten mit dem neuen Positionspunkt)
es passiert aber rein gar nichts, wenn ich das Makro laufen lasse. Keine Fehlermeldung, kein Punkt wird erzeugt, gar nichts. Woran kann das liegen ?

EDIT:
Hier das, was der Makroeditor aufgezeichnet hat. WOBEI: Die Namen der Dateien dürfen (später) nicht fix sein
Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("#Origin")

part1.InWorkObject = hybridBody1

Set partDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = partDocument1.Selection

selection1.Clear

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

Dim hybridShapePointCoord1 As HybridShapePointCoord
Set hybridShapePointCoord1 = hybridShapes1.Item("#Part_Originpoint")

selection1.Add hybridShapePointCoord1

selection1.copy

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("cylinder_geometry")

part1.InWorkObject = body1

Dim hybridBodies2 As HybridBodies
Set hybridBodies2 = body1.HybridBodies

Dim hybridBody2 As HybridBody
Set hybridBody2 = hybridBodies2.Item("cylinder_geometry")

part1.InWorkObject = hybridBody2

part1.Update

part1.Update

[Diese Nachricht wurde von symax am 05. Nov. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Bitte Systeminfo ausfüllen.
Wenn du das Makro aufzeichnest solltest du danach versuchen den Code zu lesen und zu verstehen.
Bei deiner Aufzeichnung fehlt das Einfügen selbst (PasteSpecial). Dazu solltest du genügend Beiträge hier im Forum oder in der Doku finden.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das das Paste fehlt, hab ich inzwischen selbst gemerkt.
Zeichnet der Makrorekorder auch nicht auf.
Paste normal zeichnet er auf, aber spezial nicht.
PasteSpecial("CATPrtResult") z.B. geht auch nicht ...

Naja, mal schaun ob ich da heut noch ne Lösung finde

OK, Catia hat nen fehler gehabt (und musste beendet werden) 
jetzt gehts

MFG
Stefan

[Diese Nachricht wurde von symax am 05. Nov. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP