---

Hallo Leute
Ich habe folgendes Problem:
Ich möchte in einer Zeichnung allen DimStyls eine Lienweigth zuweisen
Wie ich die Schleife Programmiere ist mir klar
aber wie ich die Eigenschaft einem DimStyls zuweise ist mir nicht klar.

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

---

Ich hab es schon gelöst

Private Sub CommandButton1_Click()
    For Each entry In ThisDrawing.DimStyles
       
        ThisDrawing.ActiveDimStyle = ThisDrawing.DimStyles.Item(entry.Name)
        ThisDrawing.SetVariable "DIMLWD", 200              'Legt die Maßlinienstärke fest
        ThisDrawing.SetVariable "DIMLWE", 200              'Weist Hilfslinien eine Linienstärke zu
        ThisDrawing.SendCommand "-DimStyle" & vbCr & "_s" & vbCr & entry.Name & vbCr & "_y" & vbCr

    Next

End Sub

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

---

Hi,

Tausch mal diese Zeile:

Code:

---

ThisDrawing.SendCommand "-DimStyle" & vbCr & "_s" & vbCr & entry.Name & vbCr & "_y" & vbCr

---

gegen diese:

Code:

---

entry.CopyFrom ThisDrawing.Application.ActiveDocument

---

SendCommand sollte man so weit es geht vermeiden, da Sendcommand und VBA nicht immer synchron zusammen arbeiten.

Gruß, Carsten

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

---

Ich habe die Zeile jetzt ersetzt
das Problem ist das er die Eigenschaften zwa zuweist aber es wird nicht Angezeigt. Das Update der Zeichnung funktioniert nicht.

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