---

Hallo Leute habe hier einen code der die Bemaßungspunkt-Definitionen
ausliest.
Der Haken ist daß dies leider nicht immer funktioniert!
Zb bei Xrefs Hat ev jemand ne andere schnelle Lösung dafür??

Public Function getdimblock(dimen) As AcadBlock 'As AcadDimension) As AcadBlock
Dim nexthand As String
Dim doc As AcadDocument
Set doc = dimen.Document
nexthand = VBA.Hex(handnum(dimen.handle) + 1)
On Error Resume Next
Set getdimblock = doc.HandleToObject(nexthand)
Err.Clear
While getdimblock Is Nothing Or Not TypeOf getdimblock Is AcadBlock
nexthand = VBA.Hex(handnum(nexthand) + 1)
On Error Resume Next
Set getdimblock = doc.HandleToObject(nexthand)
Err.Clear
Wend
End Function

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

---

Hat niemand ne Idee wie ich die Zugehörigen Blöcke für die Bemaßungen herausbekomme?

Mfg Chris

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