[DANZZ]

Как с помощью лиспа получить коэффициент сжатия текста текущего стиля текста!!!

[Кулик Алексей aka kpblc]

Код:

[Выделить все]

(vla-get-Width (vla-get-ActiveTextStyle (vla-get-ActiveDocument (vlax-get-acad-object))))

Либо если через (ent*):

Код:

[Выделить все]

(cdr (assoc 41 (entget (tblobjname "style" (getvar "textstyle")))))

[DANZZ]

Спасибо!