Hello,
I have a VB.NET-program. With the program I start AutoCAD 2007, open a
drawing and change the properties from attributes (COM-version).
I get a error in line "Console.WriteLine(DirectCast(objAcadObject,
Interop.Common.AcadAttribute).PromptString)".
What can I do?
Hartmut
Dim objBlock As Interop.Common.AcadBlock = Nothing
Dim objAcadEntity As Interop.Common.AcadEntity = Nothing
Dim objAcadBlockReference As Interop.Common.AcadBlockReference = Nothing
Dim obj() As Object = Nothing
Dim objAcadObject As Interop.Common.AcadObject = Nothing
For Each objBlock In objActiveDocument.Blocks
For Each objAcadEntity In objBlock
If objAcadEntity.ObjectName.ToLower = "AcDbBlockReference".ToLower
Then
objAcadBlockReference = CType(objAcadEntity,
Interop.Common.AcadBlockReference)
If objAcadBlockReference.Name = "TitleTest" AndAlso
objAcadBlockReference.HasAttributes Then
obj = DirectCast(objAcadBlockReference.GetAttributes,
Object())
For Each objAcadObject In obj
Console.WriteLine("n: " & objAcadObject.ObjectName)
'restult: AcDbAttribute
Console.WriteLine(DirectCast(objAcadObject,
Interop.Common.AcadAttribute).TagString) ' >>> Error: Typs
"System.InvalidCastException"
Next
End If
End If
Next
Next