---

Hallo und Hilfe bitte.

Bin von meinen CATIAV5-VBA-Programmierern verlassen worden und haben nun ein Problem.

1.) Kenne die Makroprogrammierung nur von "überdieschulterguck" und daher kopiere mir nur die mir bekannten CODE's-Stellen um überhaupt weiterzukommen.
2.) Fehlermeldungen sagen mir daher nich viel (was will der?)
3.) Verzweifelung!

Folgender Fall:

Ich soll per Makro drei V5 Details (Drawing) per "Knopfdruck" automatisch verschieben, wobei vorher eines gelöcht und dann neu eingefügt werden soll. Zwei sollen in unveränderten Zustand neu possitioniert werden.

Das mit den Löschen und neu Einfügen bekomme ich noch hin aber die vorhandenen Details Verschieben, daran scheitere ich.
Bin jetzt soweit: die beiden Details mit selection1.Serch = "Name=WZ*+TOL*,all" slelektiert (sie werdn mir auch optisch markiert) und nun??? Ich möchte die neue Position als Koordinaten mitteilen, und zwar nur der Selektion ermittelten Elemente.

Ich bin am Ende mit meiner "überdieschulterguckgelerntheit"

Detail eins Name bekannt!
Detail zwei Name bekannt!
Nullpunkte (Positionierung) bekannt!
Position auf Blatt bekannt!

(fränkisch): wii gett'n des?

Wäre für eine unkomplizierte, schnelle Lösung sehr sehr dankbar

Gruß
Fugmann

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

---

Servus
Probiere es mal so:
Auf das Objekt der Selektion zugreifen und X und Y-Koordinaten neu angeben.

Code:

---

selection1.Search = "CATDrwSearch.DrwDitto.Name=WZ*+TOL*,all"
for i = 1 to selection1.count2
    set MyDetail = selection1.item2(i).value
    MyDetail.X = 100
    MyDetail.Y = 150
next

---

Gruß
Bernd

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

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

---

Hallo mit 1000Dank zurück

Habe den Code probiert, jedoch leider mit einer Fehlermeldung in der selection1.Search =

Den Fehler habe ich gefunden und nachgebessert.

Der Nachteil dieses Codes ist dass er mir beide Details nun auf EINEN Punkt setzt und beide Details somit übereinander liegen.

Hier mein Code der sogar (Gott weis warum auch immer)funktioniert.

'==============================================
    'Schriftkopf und Toleranzfeld verschieben
    '==============================================
   
    Set Selection2 = CATIA.ActiveDocument.Selection
   
    Selection2.Search "Name=WZ*,all"
        For i = 1 To Selection2.Count2
            Set MyDetail = Selection2.Item2(i).Value
            MyDetail.x = MyTBx
            MyDetail.y = MyTBy
        Next

    Set Selection3 = CATIA.ActiveDocument.Selection
   
        Selection3.Search "Name=TOL*,all"
        For i = 1 To Selection3.Count2
            Set MyDetail = Selection3.Item2(i).Value
            MyDetail.x = MyPNx
            MyDetail.y = MyPNy
        Next

  Selection2.Clear

Gruß und Danke für die rasche Hilfe
Fugmann

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