texupport

RTEXT confuses VBA

When using VBA to iterate through entities within any block (including modelspace and paperspace), the first time an RTEXT entity is encountered, an error is produced. Whats worse is that this error cant be trapped with “on error resume next.”

For example:

Sub RtextError()
Dim oEnt As AcadEntity
Dim oBlock As AcadBlock
For Each oBlock In ThisDrawing.Blocks
If Not oBlock.IsXRef Then
For Each oEnt In oBlock
Debug.Print oEnt.ObjectName ***
Next oEnt
End If
Next oBlock
End Sub

*** when this line encounters an RTEXT entity, the following error occurs: Run-time error -2147221231 ClassFactory cannot supply requested class

Workarounds: None known
First Appeared: AutoCAD 2006
Status as of 2006 SP1: Still evident
Status as of 2007: Fixed. Tough luck, 2006 users.