[olga87]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста лисп (Autocad 2007) для автоматизации следующего:
Есть объект "Выноска" с МТекстом (созданный командой "бвыноска"), нужно для этого объекта назначить через палитру "Свойства" для параметра "Глобальный масштаб размеров" значение в зависимости от высоты текста выноски. Например,
- если высота МТекста выноски = 5, то Глобальный масштаб размеров = 1
- если высота МТекста выноски = 50, то Глобальный масштаб размеров = 10
- если высота МТекста выноски = 500, то Глобальный масштаб размеров = 100,
и т.д.
При этом не меняя настройки текущего размерного стиля (как бы через палитру "Свойства").
Заранее спасибо!

[VVA]

olga87, Лучше будет если приложишь файл с примером "как есть" и "как надо"

[olga87]

Например, после создания выноски (высота текста задается переменной TEXTSIZE):

Код:

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

(setq ss2 (entlast))
(if (<= (getvar "TEXTSIZE") 5)
(vla-put-scalefactor (vlax-ename->vla-object ss2) 1.0)
)

Вообще, может лучше посчитать количество символов в числе TEXTSIZE (считать только в целой части): например,
TEXTSIZE=5, то кол-во =1
TEXTSIZE=10, то кол-во =2
TEXTSIZE=100, то кол-во =3
TEXTSIZE=1045, то кол-во =4
и т.д.
и если:
кол-во =1, то (vla-put-scalefactor (vlax-ename->vla-object ss2) 1)
кол-во =2, то (vla-put-scalefactor (vlax-ename->vla-object ss2) 10)
кол-во =3, то (vla-put-scalefactor (vlax-ename->vla-object ss2) 100)
кол-во =4, то (vla-put-scalefactor (vlax-ename->vla-object ss2) 1000)
...

[Setvar]

Сдается мне, что изменение глобального масштаба размеров (а это DIMSCALE) приведет к переопределению вообще всего размерного стиля.

[olga87]

Строка, например,

Код:

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

(vla-put-scalefactor (vlax-ename->vla-object ss2) 10)

не меняет глобальный масштаб в настройках текущего размерного стиля, значение меняется только на палитре "Свойства" (разово).

----- добавлено через ~25 мин. -----
Код ниже считает количество всех символов в значении "(getvar "TEXTSIZE")" и соответственно задает значение глобального масштаба.

Код:

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

...
(setq ss2 (entlast))
(if (= (len '(getvar "TEXTSIZE")) 1) (vla-put-scalefactor (vlax-ename->vla-object ss2) 1))
(if (= (len '(getvar "TEXTSIZE")) 2) (vla-put-scalefactor (vlax-ename->vla-object ss2) 10))
(if (= (len '(getvar "TEXTSIZE")) 3) (vla-put-scalefactor (vlax-ename->vla-object ss2) 100))
...

(defun len (lst)
(cond ((null lst) 0) (t (+ 1 (len (cdr lst)))))
)

НО: как исправить, чтобы количество символов считалось только для целой части числа, например,
если (getvar "TEXTSIZE") = 3.5, то len должна быть =1 (а не 2 - как сейчас)?

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

(fix (getvar "textsize")) ; ?

[VVA]

Сообщение от olga87 НО: как исправить, чтобы количество символов считалось только для целой части числа

Сравнивать числа. Функция len и if не нужны. Нужен 1 cond

Код:

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

(setq ss2 (entlast))
(cond
  ((< (getvar "TEXTSIZE") 10)(vla-put-scalefactor (vlax-ename->vla-object ss2) 1)) ;_От 0 до 9.99
  ((< (getvar "TEXTSIZE") 100)(vla-put-scalefactor (vlax-ename->vla-object ss2) 10));_От 9.99 до 99.99
  (t (vla-put-scalefactor (vlax-ename->vla-object ss2) 100));_Все остальное
  )

[Setvar]

Действительно, DIMSCALE не меняется.