---

Hallo,

ich versuche gerade ein Makro zu schreiben das den Bemaßungs Befehl aktiviert und gleichzeitig den "Stil" auf etwas anderes als "Nach Norm" einstellt. allerdings passiert bei mir nichts außer das die Bemaßung gestartet wird.

Die idee dahinter ist, für verschiedene Bemaßungstypen einen extra Button zu haben.

hier mal der Code den ich bis jetzt habe:

Code:

---

'Zeichnung definieren
Dim oDoc As DrawingDocument
    Set oDoc = ThisApplication.ActiveEditDocument
   
'Bemaßung starten
ThisApplication.CommandManager.ControlDefinitions.Item("DrawingGeneralDimensionCmd").Execute

Dim oDwgStlMgr As DrawingStylesManager
    Set oDwgStlMgr = oDoc.StylesManager
   
Dim oDimStyle As DimensionStyle

'aktuellen Bemaßungsstil anzeigen
Dim dimname As String
dimname = oDwgStlMgr.ActiveStandardStyle.ActiveObjectDefaults.BaselineDimensionStyle.Name

Debug.Print dimname & "before"

'Bemaßungsstil festlegen
Set oDimStyle = oDwgStlMgr.DimensionStyles.Item("NAME DES ANDEREN STILS")

Debug.Print dimname & "after"

---

vielleicht kann mir jemand auf die sprünge helfen. wenn es überhaupt möglich ist das wären des Befehls einzustellen.

Danke und Gruß
Daniel

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

---

Ich kann dir jetzt keinen Code so auf die schnelle schreiben aber ich würde das anders angehen.

Ich weiß nicht ob es möglich ist das ganze beim setzen der Bemaßung schon mitzugeben.

Würde es denn auch gehen wenn du erstmal alle bemaßungen machst und dann zum schluss die auswählst bei denen du den Stil ändern willst und dann auf einen Button drückst und sich der Stil der ausgewählten (SeletSet) ändert?

Wenn du es aber so machem möchtest wie du beschrieben hast denke ich eher das du zuerst den Stil umstellen musst dann die Bemaßung ausführst und nachher den Stil wieder zurück setzt.

------------------
Grüße aus Wien
Philipp
Email: Base64 Encoded:
cGhpcHNfOTJAeWFob28uZGU=

[Diese Nachricht wurde von axi92 am 27. Jan. 2017 editiert.]

[Diese Nachricht wurde von axi92 am 27. Jan. 2017 editiert.]

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

---

Hi,

erstmal danke für die antwort 

das mit dem auswählen hatte ich auch kurz überlegt aber es wäre schon schön wenn es gleich beim erstellen umgestellt wird.

habe auch schon versucht die reihefolge zu ändern das eben zuerst der stil umgestellt wird, leider ohne Ergebnis. ich glaube da fehlt noch ein wichtiger schritt in meinem code um das umzustellen.

Ich versuchs weiter, Danke

Gruß
Daniel

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