[Н и к о л а й]

День добрый.
Нужна помощь, последний раз писал на Лиспе под десятку – подключал ввод с дигитайзера по СОМ-порту, но это было лет так 25 назад. Теперь вот пришлось, надо накрапать програмулю. Кинулся на акаде-2004, у нас почему то все зависают на нем. Акад – не лайт, не русифицирован. Лисп, я так понимаю – интегрирован в акад, или я не правильно понимаю. В общем гружу программку уже с одной строчки:
(defun c:xxx ( / )
(command "_.LINE" "0,0" "210,0" "210,297" "0,297" "_C")
(princ)
)
- пути в настройках прописаны, находит без ошибок
- проект компилируется без ошибок
- дебагер не доступен
- при пуске из консоли, даже если вставляю в тело диалог или вывод, неизменно отвечает – nil
- brack point игнорирует
- из командной строки акада на моё (ххх) получаю
; error: no function definition: XXX

Снес 2004 и поставил полный аглицкий 2008
- Product name: AutoCAD 2008
- Service pack: 0
- License type: standlone – loced
- License behavior: permanent
- Version: B.51.0 (UNICODE)
- На команду (ver) отвечает "Visual LISP 2008 (en)"

Эффект тот же, что и с 2004.
Прошу подсказать, в чем причина.

[Profan]

Фигня какая-то. Все работает (AutoCAD 2006 ENG).
А, вот в чем дело: надо было вводить не (xxx), а xxx.

[Н и к о л а й]

пробуем...
Command: xxx
Unknown command "XXX". Press F1 for help.

[Profan]

Вставляю через буфер обмена:

Код:

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

 
Command: (defun c:xxx ( / )
(_> (command "_.LINE" "0,0" "210,0" "210,297" "0,297" "_C")
(_> (princ)
(_> )
C:XXX

Ввожу xxx:

Код:

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

 
Command: xxx
_.LINE Specify first point: 0,0
Specify next point or [Undo]: 210,0
Specify next point or [Undo]: 210,297
Specify next point or [Close/Undo]: 0,297
Specify next point or [Close/Undo]: _C
Command:

[Makswell]

Из консоли VLisp.

[Н и к о л а й]

у меня результат такой…
Command: defun Unknown command "DEFUN". Press F1 for help.
Command: c:xxx Unknown command "C:XXX". Press F1 for help.
Command: ( / )
0
Command: (command "_.LINE" "0,0" "210,0" "210,297" "0,297" "_C")
_.LINE Specify first point: 0,0
Specify next point or [Undo]: 210,0
Specify next point or [Undo]: 210,297
Specify next point or [Close/Undo]: 0,297
Specify next point or [Close/Undo]: _C
Command: nil
Command: (princ)
Command: c:xxx
Unknown command "C:XXX". Press F1 for help.

[Н и к о л а й]

excuse, с консоли результат получился такой...
#<SUBR @07652aa0 DEFUN>
nil
0
nil
nil
_$
_$

[Makswell]

Смог воспроизвести твою ошибку:

_$ defun c:xxx ( / ) (command "_.LINE" "0,0" "210,0" "210,297" "0,297" "_C") (princ) #<SUBR @10512aa0 DEFUN> nil 0 nil

А надо так:

_$ (defun c:xxx ( / ) (command "_.LINE" "0,0" "210,0" "210,297" "0,297" "_C") (princ)) C:XXX _$

Найди, так сказать, отличия.

[Н и к о л а й]

Да, спасибо, со скобками все понятно.
Проблема в том, что нет доступа из к кнопкам управления приложением и дебагер полностью недоступен

[Makswell]

Может надо сделать попросту Файл->Новый файл?

[Н и к о л а й]

изначально я ставил вопрос о том, что лисп не доступен для обработки
[img]D:\p1.jpg[/img]
программ из своего редактора
[img]D:\p1.jpg[/img]

[Н и к о л а й]

Я попробую сузить вопрос. Кто знает, в каких случаях опции дебагера (все комбинации с кнопкой F8) могут быть недоступны

[Admin]

Нормальное название темы в личку