[olga87]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста, как в Autocad 2007 lisp, определить длину линии под однострочным текстом.
Код ниже определяет количество символом в тексте, а нужна длина.
Высота текста может быть разная.

Код:

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

(setq lt (strlen txt))

Заранее спасибо!

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

Попробуй через vla-getboundingbox. Также были функции из ExpressTools, но я их не помню навскидку.

[olga87]

Спасибо!
Подскажите пожалуйста, как в код

Код:

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

(setq lt (strlen txt))

включить вычитание определенного числа?
Т.е., например:
(setq lt (strlen txt) -10), но в таком виде не работает.

[Nike]

(setq lt (- (strlen txt) 10))

[VVA]

Сообщение от olga87 а нужна длина.

Сообщение от Кулик Алексей aka kpblc vla-getboundingbox.

Сообщение от VVA В лиспе есть ф-ция textbox Почитай тему Автоматический подбор высоты текста Там рассматривали, что точнее определяет габарит текста (мтекста): textbox, boundingbox, ACET-GEOM-OBJECT-POINT-LIST, ACET-GEOM-TXTBOX,

По поводу самой корректной функции по определению длины текста обсуждали здесь Автоматический подбор высоты текста

[olga87]

Спасибо большое Всем!
Темы по Вашим ссылкам посмотрю.