Mit Hilfe des Tools von Vladimir Nesterovsky klappt es sehr gut.
Jetzt möchte ich gerne auch mit VBA auf die Daten zugreifen, doch ich komme nicht weiter.
Ich komme mit keiner dieser Methoden an die Daten ran:
----
Public Sub MethodeA()
Dim myDict As AcadDictionary
Set myDict = ThisDrawing.Dictionaries.Item("mydict")
Dim dataOut As Variant
Dim typeOut As Variant
myDict.GetXData "mykey", typeOut, dataOut
Debug.Print TypeName(typeOut)
Debug.Print TypeName(dataOut)
End Sub
----
----
Public Sub MethodeB()
Dim myDict As AcadDictionary
Set myDict = ThisDrawing.Dictionaries.Item("mydict")
Dim o As Object
Set o = myDict.GetObject("mykey")
Debug.Print TypeName(o) ' => IAcadObject
'Debug.Print CStr(o) ' => Error
End Sub
----
VBA ist bei mir schon wieder 2 Jahre her, vieleicht schaffe ich es mit einem kleinem Wink.
------------------
Andreas Strehler,
Der Uhrmacher
[Diese Nachricht wurde von DerUhrmacher am 11. Dez. 2004 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP