---

Hallo Zusammen!

Mein Progrämmchen läuft soweit echt gut, nur eines hab ich bislang noch nicht herausgefunden.
Ich habe mein Programm erweitert, da in älteren Zeichnungen teilweise die Bemaßungsstile BEM1-1 etc. also mit - anstatt _ geschrieben und die entsprechenden Layer nicht vorhanden sind.

Case "BEM1-1"
Set ActNewLayer = ThisDrawing.Layers.Add("BEM1_1")
ThisDrawing.ActiveLayer = ActNewLayer
ActNewLayer.color = acRed
ActDimStyle.Name = "BEM1_1"

Dadurch wird der Name des DimStyles geändert.
In dem Listenfeld des Bemaßungswerkzeugkastens wird der Name aber erst nach anklicken der Bemaßung geändert. Kann man dieses so ändern, daß der Name sofort in dem Listenfeld neu erscheint?

Vielen Dank im voraus.

gruß

Dirk

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