---

Hallo Zusammen!

Ich bastel gerade an einem VBA Programm, mit dem ich mir eine eigene Bemaßungsdialogbox erstellen möchte.
Diese soll wie folgt aussehen:
Auf einem Formular befinden sich 7 CommandButton und 2 ComboBoxen.
In der 1 ComboBox (cbo1) werden alle sich in der Zeichnung befindenen Bemaßungsstile angezeigt.
In der 2 ComboBox (cbo2) werden alle sich in der Zeichnung befindenen
Layer angezeigt.
Die ausgewählten Dinge sollen dann jeweils die akruellen bzw. aktiven sein.
Die CommandButton sollen mit den entsprechenden Bemaßungen _dimlinear etc. hinterlegt sein.
Hier mein bastel Source Code:

Private Sub cmd1_Click()
UserForm1.Hide
ThisDrawing.SendCommand "_dimlinear" & vbCr
UserForm1.Show
End Sub
Private Sub cbo1_Change()
    Dim pickdimst As String
    Dim ndimst As AcadDimStyle
    pickdimst = cbo1.Text
    Set ndimst = ThisDrawing.DimStyles(picklayer)
End Sub
Private Sub cbo2_Change()
    Dim picklayer As String
    Dim nlay As AcadLayer
    picklayer = cbo2.Text
    Set nlay = ThisDrawing.Layers(picklayer)
End Sub
Private Sub UserForm_Initialize()
    Dim dim1 As AcadDimStyle
        For Each dim1 In ThisDrawing.DimStyles
            cbo1.AddItem dim1.Name
        Next
    Dim lay1 As AcadLayer
        For Each lay1 In ThisDrawing.Layers
            cbo2.AddItem lay1.Name
        Next
    cbo1.ListIndex = 0
    cbo2.ListIndex = 0
End Sub

Kann mir da jemand bei helfen?

Viele Dank im voraus.

Gruß Dirk

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

---

Ich verstehe den Sinn dieses Tools nicht ganz.
Mit welcher ACAD-Version arbeitest du etwa, ACAD14?
Ab der Version 2000 gibt es doch schon eine schöne Bemaßungswerkzeugleiste in der du einen der Bemaßungsstile aus der Zeichnung auswählen kannst.

------------------
Roland

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