Hi guys !
With the code below, I would like to check something on each dimensions and I dont know why, as soon I call my command, my autocad crashes (Fatal Error)
Is someone could help me I would appreciate very much !
Code:
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Interop
Public Class CheckDimTextOverride
<CommandMethod("cto")> _
Public Sub cto()
Dim MyEnt As Object
Dim myObjIds As Autodesk.AutoCAD.DatabaseServices.ObjectIdCollection
Dim MyDim As Common.AcadDimension
For Each MyEnt In myObjIds
If TypeOf MyEnt Is Common.AcadDimension Then
MyDim = MyEnt
MsgBox(MyDim.TextOverride)
End If
Next
End Sub
End Class
Thanks in advance !