[getr]

Помогите разобраться,почему не всегда работает такой кусок лиспа :

Код:

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

;;;извлечение высоты шрифта из текущего стиля
  (setq hshr (cdr (assoc 40 (tblsearch "style" (getvar "textstyle"))))
  )
;;;установка высоты текста
  (if (= hshr 0.0)
    (setq htxt 7.0)
    (setq htxt hshr)
  ) ;_end if
       (command "_.TEXT" "_j" "_c" ptvst htxt 0.0 ch1)

Если текущий текстовой стиль с высотой текста 0.0-то работает,
а если с фиксированной,напр. 5,то нет.Выдается ошибка: неизвестная команда "значение текста,записаного в сh1"

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

А если так?

Код:

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

(if (= (cdr (assoc 40 (entget (tblsearch "style" (getvar "textstyle"))))) 0.)
  (command "_.text" "_j" "_c" ptvst 7. 0. ch1)
  (command "_.text" "_j" "_c" ptvst 0. ch1)
  ) ;_ end of if

А вообще-то текст можно и (entmakex) создавать...

[VVA]

Посмотри (и используй) ru-text-draw >ShaggyDoc (2006-10-04 07:13:05)

[getr]

->Алексею Кулик
автокад выдает:; error: bad argument type: lentityp ((0 . "STYLE") (2 . "style1") (70 . 0) (40
. 3.0) (41 . 1.0) (50 . 0.261799) (71 . 0) (42 . 3.0) (3 . "wwcade.shx") (4 .
""))
->VVA
сейчас посмотрю

[getr]

Прошелся по ссылке VVA и понял в чем дело.Оказывается при разных текущих стилях(с фикс.H шрифта и нефикс.) запросы команды отличаются,так для стиля с фикс. высотой шрифта она не запрашивается,поэтому ошибка и происходила.

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

getr, не понял сути вопроса. Я кода на создание текста через (entmakex) здесь не выдавал.
---
Добавлено: догнал. entget у меня в коде лишний...

[VVA]

getr, Молодца что разобрался. Кстати по той же ссылке есть создание и через entmakex и с помощью vla-*

[getr]

->Алексею
Без entget твой вариант заработал.
Спасибо всем за оперативную помощь.