---

Hi,

wenn ich in einer Skizze eine Geometrie bereits selektiert habe,
wie kann ich dann das "Gruppieren".

Habe es mit:

Catia.Startcommand "Fix Together"

versucht, allerdings kommt dann eine Fehlermeldung das er den Befehl nicht kennt.

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

---

Servus,

bei mir funktioniert der Code solange ich mich in einer Skizze befinde. Sobald ich aber auserhalb der Skizze bin bekomm ich auch den Fehler, dass er den Befehl nicht kennt.

Ich schätze mal, dass du außerhalb der Skizze bist.

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

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

---

Hm, eigentlich nicht.

Wenn ich:

MsgBox StartPart.Part.InWorkObject.Name

vor dem Catia.Startcommand verwende, gibt er mir aus "Skizze2"

Oder muss ich das im Script irgendwie nochmal extra deklarieren?

Oder gibt es ggf. einen anderen Weg es zu lösen, ausser über Catia.Startcommand ?

[Diese Nachricht wurde von mycon am 19. Feb. 2011 editiert.]

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

---

Servs
IMHO musst du über OpenEdition die Skizze öffnen (siehe Doku)zB:
Set my2DFactory = mySketch.OpenEdition
Hast du dies gemacht?

Gruß
Bernd

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

[Diese Nachricht wurde von bgrittmann am 19. Feb. 2011 editiert.]

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

---

Bis jetzt nicht, nein, da ich das Makro schon aus einer Skizze herraus aufrufe.

Habe es jetzt mal mit:

    Dim StartParts As Documents
    Set StartParts = CATIA.Documents
    Dim StartPart As PartDocument
    Set StartPart = CATIA.ActiveDocument

    Dim sketch1 As Sketch
    sketch1 = StartPart.Part.InWorkObject.Name
    Dim my2DFactory As Factory2D
    Set my2DFactory = sketch1.OpenEdition

    CATIA.StartCommand "Fix Together"

versucht, kommt aber nach wie vor der gleiche Fehler.

[Diese Nachricht wurde von mycon am 19. Feb. 2011 editiert.]

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

---

Servus
Wenn du CATIA auf deutsch eingestellt hast musst du:
CATIA.StartCommand ("Gruppieren")
verwenden.
Und hinterher über Sendkeys das Fenster wieder schließen?

Gruß
Bernd

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

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

---

Jetzt bringt er wenigstens keine Fehlermeldung mehr,
aber er gruppiert es nicht. :/

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

---

Servus
Geht das entsprechende Fenster "Gruppieren" auf? Hast du zuvor was selektiert?

Gruß
Bernd

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

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

---

Servus,

wenn ich diesen Codeabschnitt laufen lass klappt das einwandfrei.

Code:

---

Dim objLine1 As Line2D
Dim objLine2 As Line2D
Dim objLine3 As Line2D
Dim objLine4 As Line2D
Set objLine1 = geometricElements1.Item("Line.1")
Set objLine2 = geometricElements1.Item("Line.2")
Set objLine3 = geometricElements1.Item("Line.3")
Set objLine4 = geometricElements1.Item("Line.4")

objSel.Add objLine1
objSel.Add objLine2
objSel.Add objLine3
objSel.Add objLine4

CATIA.StartCommand "Fix Together"

---

Bei mir bleibt halt das Fenster der Gruppierung offen.
Ich glaub, dass an deiner Selektion deiner Skizzengeometrien etwas nicht stimmt.

Hast du vielleicht deine Selektion mit objSel.Clear versehentlich gelöscht

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

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

---

Ok, er hatte es doch gruppiert, nur nicht in der Skizze sondern noch in der dxf von wo ich es aus kopiert hatte.

Klappt jetzt, vielen Dank 

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