Ширина литер шрифта

Я пользуюсь следующим кодом:                   
Dim minExt As Variant
Dim maxExt As Variant
Dim objEnt As AcadObject
set objEnt=.........
objEnt.GetBoundingBox minExt, maxExt
wid = maxExt(0) - minExt(0) 'ширина
hgt = maxExt(1) - minExt(1) 'высота

Дает реальную длину и высоту текста, а не ту, которую Вы объявили при вставке текста в чертеж.
Эта тема подробно обсуждалась в этом форуме ранее.
Николай.