[Джек]

Вот я написал Лисп, в котором задается высота текста.

Код:

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

(setq visota_txt
(if
     (or
      (and
           (> (getvar "dimlfac") 1.0);условие-1 если масштабный коэфф. линейного размера больше 1,0
           (= (getvar "tilemode") 1.0);условие 1,1 если текст вставляется в модель
      ); конец and
           (= (getvar "tilemode") 0);условие 2 если текст вставляется в лист
     ); конец or
  2.5 ;если ДА
  250.0 ; если НЕТ
); конец if
) ;конец setq

Смысл какой – если мы вставляем текст:
- в «Моделе» и масштаб чертежа 1:10 или 1:50 или 1:100 (значение берется из системной переменной dimlfac) и т.д (условие -1и условии 1.1);
- в «Листе» (условие 2).
То в этих случаях высота текста будет 2,5 мм , то в остальном случае высота вставляемого текста будет 250 мм (масштаб 1:1).

Все бы хорошо, но есть одно НО!!!!!!!!! Когда в кладке «Листа» и в видовом экране заходим в «Модель» и чертеж выполнен в масштабе 1:1 , то данный Лисп не работает, т.е. вставляет высоту текста 2,5 мм, а хотелось бы 250.

Можно исправить ситуацию?
Спасибо

[VVA]

Как-то так

Код:

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

(defun C:TEST ()
  (cond
    ((= (getvar "TILEMODE") 1)(alert "Модель"))
    ((= (getvar "TILEMODE") 0)
     (if (= (getvar "cvport") 1)
       (alert "ЛИст")
       (alert "Модель из листа")
       )
     )
     (t nil)
     )
  )

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

Рекомендую глянуть http://www.arcada.com.ua/forum/viewt...1730b4a8971f78