---

Hallo zusammen,

ich hab jetzt schon ne ganze Weile nichts mehr mit VBA im Acad gemacht. Jetzt ist es mal wieder so weit und schon gibts wissenslücken.
Kann mir jemand sagen welche Eigenschaft für die "exakte Bemassung" eines Masses steht, also nicht den TextOverride, sondern den Maßwert.

Viele Grüße
Ralph

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

---

Hallo Raplh,

Schau mal hier:

Code:

---

Public Sub test123()
Dim Object As Object
Dim promt As String
Dim Pickedpoint As Variant
On Local Error Resume Next
promt = "Objekt wählen:"
Utility.GetEntity Object, Pickedpoint, promt
If TypeName(Object) <> "Nothing" Then
    MsgBox Object.Measurement
End If

End Sub

---

Was du suchst ist die Eigenschaft Measurement

Gruß, Carsten

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

---

"Measurement", genau dass wars.
Das tauch nur bei einer Deklaration als "AcadDimension" nicht in der Liste auf.

Hab ein Objekt daraus gemacht.
Vielen Dank Carsten

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