error in sub

[rwbaker]

does anyone see a problem with this sub
i am getting the following error
object library feature not supported

we are using ACAD2004

Sub DrawAlignedDimension()
StartPoint(0) = 0
StartPoint(1) = 0
StartPoint(2) = 0
EndPoint(0) = -txtXDIM
EndPoint(1) = 0
EndPoint(2) = 0
SetTextPosition_horz
Set DimensionObject = ThisDrawing.ModelSpace.AddDimAligned(StartPoint, EndPoint, TextPosition)
DimensionObject.Update
SetUnitsFormat


StartPoint(0) = 0
StartPoint(1) = 0
StartPoint(2) = 0
EndPoint(0) = 0
EndPoint(1) = txtYDIM
EndPoint(2) = 0
SetTextPosition_vert
Set DimensionObject = ThisDrawing.ModelSpace.AddDimAligned(StartPoint, EndPoint, TextPosition)
DimensionObject.Update

SetUnitsFormat
End Sub

 

[rwbaker]

I was calling an ACAD2006 ref.....my bad