[Kostinok]

Здравствуйте!

Может кто встречал реализацию такой программы, которая содержала бы текстовые шаблоны, шаблон надписи для соответствующих чертежей проекта, выбрав который, программа выводила текст на чертеж?

[Alan]

Не совсем внятно написано...
Но так как я понял всё очень просто.
Есть текстовый файл (названный вами шаблон) <<имя файла>>. Его пишем на чертеж. Так?

Код:

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

 (setq point (getpoint "\n Укажите точку")
      fl    (open <<имя файла>> "r")
) ;_ конец setq
(while (setq s (read-line fl))
  (progn
    (command "_.TEXT" point 2.7 0 s)
    (setq point    (polar point (/ pi -2.) 6)
    ) ;_ конец setq  6 - шаг между строками в мм чертежа
  ) ;_ конец progn
  (close fl)
) ;_ конец while

[Kostinok]

Да, все верно и работает шикарно.

Вчера как не искал, не мог найти подобную тему, а сегодня наткнулся на
http://forum.dwg.ru/showthread.php?p=284825
ЛИСП - Автозаписная книжка в реализации VVA.

Большое спасибо за подсказку.