---

Makro1.CATScript.txt Makro2.CATScript.txt Ergebniss.jpg

Hallo Zusammen,

ich habe mir die Aufgabe gestellt ein Makro zu programmieren welches einen Referenzpunkt mit Achsensystem erzeugt und diese anschließend einfärbt.

Soweit so gut, da ich noch Anfänger in der Makroprogrammierung bin habe ich die Erstellung des Punktes sowie des Achsensystems aufgezeichnet. Das hat auch ganz gut funktioniert. Aber ich schaffe es nicht das ich in dem selben Makro die Einfärbung bzw. ein Umbenennen der erstellten Objekte hinbekomme. Deswegen habe ich mir hier im Forum Anregungen zum einfärben von Objekten geholt und diese in einem zweiten Makro umgesetzt. Auch das funktioniert jetzt, ich muss aber immer die Objekte anwählen die eingefärbt werden sollen.

Habt Ihr eventuell Tipps wie ich dise beiden Makros "zusammenschieben" kann? Ich denke ich bleibe immer daran hängen das ich es nicht schaffe die Objekte automatisch auszuwählen...

Im Anhang sind meine zwei Makros und ein Screenshot des Endergebnisses.

Viele Grüße
Olli P. 

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

---

Hallo,

Schieb einfach in deine Selection über .Add <Object> ein einzufärbendes Object und färb es dann über die VisPropertys ein.
Das <Object> ist in dem Fall dein Achsensystem.
Andernfalls kann ich dir nur sagen, dass es da viele Lösungen diesbezüglich auf dem Markt gibt. 

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

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

---

Vielen Dank,

das war schonmal ein voller Erfolg.

Letzlich habe ich es jetzt so gelöst das ich die beiden einzufärbenden Features suche und dann einfärbe. Das funktioniert wunderbar.

10U's sind auf dem Weg

Bis dann Olli P.

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

---

Zitat:

---

Hallo,
Schieb einfach in deine Selection über .Add <Object> ein einzufärbendes Object und färb es dann über die VisPropertys ein.
Das <Object> ist in dem Fall dein Achsensystem.
Andernfalls kann ich dir nur sagen, dass es da viele Lösungen diesbezüglich auf dem Markt gibt. 

---

Und die wären?
Ich kenne nur die möglichkeit Objekte über visprperties einzufärben, die man vorher einer selection hinzugefügt hatt.

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

---

Ich meinte damit Programme, die das gleiche simple Script beinhalten, aber Geld kosten.. 

ist nicht bös gemeint, aber wenn es da halt schon Lösungen gibt, dann muss man sie ja nicht umbedingt nachprogrammieren.
^^ Und dass das Forum halt auch nicht dafür da ist fertige Lösungen zu präsentieren, weshalb ich nur den kleinen Denkanstoß, den er eigentlic hshcon selbst geleistet hat, gegeben habe.

Ich dachte halt nur, dass es einfacher ist, wenn man VB programmierung noch garnicht kann und auch nicht den nötigen Einsatz hat, außer Makroaufzeichnung, dass man dann nicht zu viel Zeit in eine geeignete Lösung investieren sollte, sondern lieber ein Systemhaus gesucht werden sollte, was auch noch viele andere nette Lösungen für die Zukunft hat.
Bei den meisten gibt's ja solche kleinen Makros kostenlos für Kunden.

Also die Aussage geht nur über VisProp kann ich bestätigen, aber es gibt halt auch schon Programme zu kaufen, die alle möglichen Dinge erzeugen und dann einfärben...

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

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

---

Hallo,

ich wollte auch über ein Makro Achsensysteme auf vorhandene Punkte erzeugen.

Der Makrorekorder lieferte mir das selbe Ergebnis (wie im ersten Beitrag), welches bei mir allerdings nicht lauffähig ist.
Das Verfahren Item ist fehlgeschlagen: Set hybridShapePointCoord1 = hybridShapes1.Item("Punkt_xy")

Hat jemand eine Idee?

grüße Dominik

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