---

wie im Titel schon gesagt, suche ich eine einfache Methode, um über die Referenznummer an Objekt zu kommen
(ähnlich wie Handent in Lisp)

Momentan bekomme ich über den Transactionmanager den Modellbereich und gehe hier alle Objekte durch, bis das Objekt mit der gesuchten Referenznummer gefunden habe.

Gibts da nichts einfacheres???

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

---

Hi,

Code:

---

Public Shared Function getObjectIDByHandle(ByRef AcadDocDB As DatabaseServices.Database, ByVal HandleLng As Long) As DatabaseServices.ObjectId
   On Error Resume Next
   Dim tHandle As DatabaseServices.Handle = New DatabaseServices.Handle(HandleLng)
   getObjectIDByHandle = AcadDocDB.GetObjectId(False, tHandle, 0)
   tHandle = Nothing
   On Error GoTo 0
End Function

---

[EDIT]und sicherheitshalber auch noch die Umrechnung von Handle, wenn dieser als hexadezimaler Stringwert vorhanden ist, auf Long
CLng("&h" & HandleStr)
[/EDIT]

- alfred -

------------------
www.hollaus.at

[Diese Nachricht wurde von a.n. am 27. Feb. 2009 editiert.]

---

super Danke, so funktonierts

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