---

Hallo,
die Maßtexte sollen zusätzlich die Einheit cm anzeigen.
Das erreiche ich durch Setzen der Systemvariable DIMPOST (Suffix des Maßtextes) in meinem VBA-Programm.
objAcadDocument.SetVariable("DIMPOST", " cm")

Nur jetzt hat auch die Radiusbemaßung die zusätzliche Einheit cm, was natürlich falsch ist.
Wie erreiche ich es, dass nur die lineare/ausgerichtete Bemaßung zusätzlich die Einheit cm hat?

Alexander

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

---

Hi,

wieso nicht über Bemaßungsstil?

- alfred -

------------------
www.hollaus.at

---

Wenn dies das Problem löst.
Ich wäre dankbar, wenn ich dafür ein kleines VBA-Beispiel bekommen könnte.

Alexander

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

---

Hi,

da muß nichts programmiert werden (zumindest sehe ich jetzt noch nicht die Notwendigkeit lt. Deiner Aufgabenbeschreibung).

Starte _DIMSTYLE, aktiviere Deinen Stil in der Liste ==> (Button) Neu
In diesem Dialog stellst Du unter 'Verwenden für' ==> 'Lineare Bemaßung' ein, dann ==> 'Weiter' und unter 'Primäreinheiten' gibst Du Dein gewünschtes Präfix 'cm' an.

Damit werden nur lineare Bemaßungen mit 'cm' ergänzt und alle anderen nicht.

HTH, - alfred -

------------------
www.hollaus.at

---

Hallo,
danke für deine Hilfe. Habe es probiert und es funktioniert.
Nur, das will ich mit VBA einstellen.

Das von mit geschilderte Problem ist doch nur ein kleiner Teil des VBA-Programms.
Deshalb sollte diese Einstellung die Software vornehmen.
Hast du dafür eine Lösung?

Alexander

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

---

Hi Alexander,

ich muss passen, leider. 

Wenn ich einen solchen SubStil zu ISO-25 händisch anlege und dann in der Datenbank mit Tools nachsehe, dann erkenne ich zwar:

a) dass ein neuer Stil  ISO-25$0  angelegt wird
b) dieser EED-Daten dran hat

Aber auch nach einigen Minuten hinsehen, erkenne ich mit VBA leider keine Möglichkeit, einen solchen Stil hinzuzufügen, sodass dieser auch als SubStil erkannt wird.

D.h. wenn es auch sonst niemand herausbekommt, dann wird's wohl alternative Varianten geben müssen. Einfallen würde mir z.B. dass Du
a) einen DimStyle anlegst, bei dem 'cm' als Suffix definiert ist
b) Objekt-Erstellungen mit Events überwachst und wenn eine lineare Bemassung erstellt wird, dann gleich nach dem Event 'CommandEnded' den Stil zurechtdrehen.

Trotz allem halte ich das nicht für die saubere Methode, da mit einem solchen Event schon einiges an Performance verloren gehen kann.

Hast Du nicht die Möglichkeit, mit einer Vorlagenzeichnung zu starten, wo ein solcher Stil (mit SubStil) schon definiert ist, denn dann musst Du im Programm ja nichts machen, denn dann macht AutoCAD für Dich.

Sorry, - alfred -

------------------
www.hollaus.at