---

Hallo allerseits!

Seit einigen Tagen versuche ich mich in der Makro-Programmierung. Ich habe mir dazu ein Buch gekauft, jedoch behandelt dieses Buch sämtliche Themen äußerst oberflächlich. Obwohl ich trotzdem einige Erfolge feiern konnte, bin ich auf ein, größeres Problem gestoßen.
Ich versuche Schritt für Schritt ein Makro zu schreiben, welches eine Skizze auf einer erstellten Ebene erzeugt. Diese Ebene ist wiederum eine Offset-Ebene mit einer externen Referenzebene als Ursprung.
Leider übernimmt die erstellte Skizze nicht den Ursprung des CATParts, sondern die der Skizzenreferenz. Das wäre aber wichtig, da es sich um Baugruppen handelt, die wiederum in Stationen alle den selben Ursprung haben. (Info: Autonetz)
Kann mir vielleicht jemand eine Lösung zeigen wie ich den Skizzenursprung auf den CATPart-Ursprung setzen kann?
Der Makrorekorder ist hier nicht besonders hilfreich. Er setzt zwar den Skizzenursprung auf den CATPart-Ursprung, jedoch übergibt er nur feste Zahlen an das Skizzenobjekt. Ich könnte das Makro also nirgends sonst verwenden, nur bei diesem Part.
Ich hoffe, mir kann jemand helfen und vielen Dank im voraus.  

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

---

Hallo mirko78,

Versuchs mal damit:

Code:

---

        Dim d1(8)
        body1 = mypart.MainBody
        sketches1 = body1.Sketches
        ref1 = mypart.CreateReferenceFromObject(Plane1)
        sketch1 = sketches1.Add(ref1)
        sketch1.GetAbsoluteAxisData(d1)
        d1(0) = 0
        d1(1) = 0
        d1(2) = 0
        sketch1.SetAbsoluteAxisData(d1)

---

Plane1 muss dabei deine Offset-Ebene sein.

------------------
-----------

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

---

Das ist ja zu einfach. Aber es funktioniert. Manchmal sieht man halt den Wald vor lauter Bäumen nicht. Ich bedanke mich vielmals.

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