[Composter]

у меня есть лиспик для создания текстового стиля,и выставления ему определенных параметров.он добавлен в автозагрузку

Код:

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

 
(defun c:zod32 ()
(princ "\nСоздание текстового стиля СПДС ")
(if	(null(tblobjname "Style" "spds"))
	(vla-add(vla-get-TextStyles(vla-get-activedocument(vlax-get-acad-object))) "Spds")
)
(vla-put-fontfile(vlax-ename->vla-object(tblobjname "style" "spds"))"spds.shx")
(vla-put-width(vlax-ename->vla-object(tblobjname "style" "spds"))0.85)
(vla-put-ObliqueAngle(vlax-ename->vla-object(tblobjname "style" "spds"))(angtof "15" 4))
(princ)
)

если зайти в менюшку с текстовыми стилями,то степень растяжения текста стоит 1 . применяешь его к тексту ,у текста свойство степень растяжения текста равняется 1. а через

Код:

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

 (vla-get-width(vlax-ename->vla-object(tblobjname "style" "spds")))

выдает значение 0,85 .мож это где нить в другом месте задается степень растяжения текста ?

[Александр Ривилис]

А какое значение системной переменной LUPREC? Если меньше двух, то тогда понятно.

[Composter]

спасибо,Александр.LUPREC у меня равна 0.т.е. получается я все делал правильно, просто автокад округлял значения