---

Wieder ein paar Anfängerfragen zur Makroprogrammierung.

Idee: Mir gefällt die standardmäßige Anzeige von Doppelbemaßungen nicht. Ich möchte stattdessen hinter dem metrischen Maß das Zollmaß in runden Klammern anzeigen.
Dazu soll das Makro den aktuellen Bemaßungswert auslesen, durch 25,4 teilen und in Klammern als Suffix anhängen.
Das auslesen des Bemaßungswertes klappt nicht. Was mach ich falsch? Ist der Befehl GetValue2 der falsche, oder wende ich ihn falsch an?

Zusatzfrage:
Eigentlich soll die Anzeige des Suffix lauten: (0,5"). Wie kann man das " anzeigen lassen?

Piet

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

---

Doppelbemassung.txt Doppelbemassung-swp.zip

Ich hab vergessen, die Dateien anzuhängen. Hier sind sie.

Piet

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

---

Hallo Piet,

Dein Problem ist folgendes:
Mit GetSelectedObject bekommst Du nicht direkt ein Dimension-Objekt, sondern ein DisplayDimension-Objekt. Von dort aus kannst du mittels der Methode GetDimension das Dimension-Objekt aber holen, und dann muesste das klappen.

Zu deiner Zusatzfrage mit dem Zoll-Zeichen:
Einfach in VBA zwei Hochzeichen nehmen, also "", das wird dann von VBA als ein " ausgegeben.
Konkret:
MyPostDimText = "(" + MyPostDimText + """)"

Viel Spass

------------------
PASCAM Ralph Müller
Softwareentwicklung

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

---

Vielen Dank Ralph,

damit haut es jetzt hin. Allerdings stellt sich heraus, dass dieses Makro so nicht wirklich sinnvoll und praktisch ist, da die Toleranzen damit nicht in den Suffix übertragen werden. Der Aufwand dafür lohnt sich nicht, ich werd mir noch was besseres einfallen lassen.

In dem Zusammenhang noch eine Frage:
Wie erreiche ich, das alle Bemaßungen auf einer Zeichnung ausgewählt werden, auch ohne, dass der User schon Bemaßungen ausgewählt hat?

Piet

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