---

Hallo,

ich brächte einen Hinweis wie ich in ADT 2007 per Programmierung mit VBA neue Anzeigethemen erstellen kann. Ein neues Thema kann ich schon erstellen mit:

Dim acadBaseDatabase As AecBaseDatabase
Dim acadDisplayThemeStyle As AecDisplayThemeStyle

Set acadBaseDatabase = ThisDrawing.Database
Set acadDisplayThemeStyle = acadBaseDatabase.DisplayThemeStyles.Add("Test")

Soweit so gut, ich habe aber noch nicht herausgefunden, wie ich pro DisplayThemeStyle neue Konditionen erstellen kann. Dies findet man im Stil-Manager im Tab Gestaltung pro Anzeigethemenstil. Weiterhin möchte ich auch Themenregeln definieren. Leider habe ich den Bezug zu VBA von diesen Objekten zum Anzeigethemenstil noch nicht gefunden. Sogar das Anzeigethema an sich findet sich in der Auflistung ThisDrawing.ModelSpace.

Kann mir jemand weiterhelfen?

Danke im Vorraus!

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