[Valera25]

Допустим имеется программа на языке AutoLISP для создания параметрического изображения детали. Требуется разработать программу, которая считывает информацию из текстового файла и помещает ее на чертеж в указанную точку. Вот мой вариант:
(DEFUN TEST (/ FN BP OF RL P U)
(SETVAR "CMDECHO" 0)
(SETVAR "BLIPMODE" 0)
(SETQ FN (GETSTRING "\n Bведите полное имя файла с текстом:")
BP (GETPOINT "\n Bведите точку начала текста:" )
P (GETREAL "\n Bведите высоту букв ")
U (GETREAL "\n Bведите угол наклона букв"))
(TYPE FN)
(PRINT FN)
(SETQ OF (OPEN FN "r")
H (/ P 4)
RL (READ-LINE OF))
(COMMAND "STYLE" "" "" P H "" "" "" ""
"TEXT" BP U RL)
(WHILE (SETQ RL (READ-LINE OF))
(COMMAND "TEXT" "" "" RL)
)
(CLOSE OF)
)
Эта программа выводит лишь одну строку.
Каким образом, можно выводить несколько строк из текстового файла?

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

http://www.autocad.ru/cgi-bin/f1/board.cgi?t=33278Ds
И не надо говорить, что там был не ты.

[Profan]

Простейшая программа:

Код:

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

;*********VTEXT.LSP - Вставка текста из файла в чертеж.******
;                     Громов В.В. Январь 1994.
;
(defun C:VTEXT ( / text f pt h sh )
        (princ "\ Выберите текстовый файл.")
        (setq text (getfiled "Выбор тестового файла" "" "txt" 2))
    (if text
        (progn
        (setq f (open text "r")
              pt (getpoint "\n Укажите начало текста: ")
              h (getreal "\n Высота текста: ")
              sh (getreal "\n Шаг строк: "))
       (while
           (setq s (read-line f))
       (if s
         (progn
         (command "_TEXT" pt h "0" s)
         (setq pt (list (car pt) (- (cadr pt) sh)))
       ))
     )
         (close f))
         (princ "\n Файл не найден. "))
(princ)
)

[DEM]

Сообщение от Кулик Алексей aka kpblc http://www.autocad.ru/cgi-bin/f1/board.cgi?t=33278Ds И не надо говорить, что там был не ты.

Мопед не его он просто разместил объяву

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

> Profan : Не будет работать при текстовом стиле с установленной высотой

[Profan]

Знаю, что не будет. Поэтому и написал, что программа простейшая. Это пример использования "getfiled". Остальное пусть студент домысливает. :evil: