| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > проблема с написанием программы на Lisp

проблема с написанием программы на Lisp

Ответ
Поиск в этой теме
Непрочитано 06.04.2010, 11:44 #1
проблема с написанием программы на Lisp
Voyager
 
Регистрация: 06.04.2010
Сообщений: 4

Добрый день!

Проблема в следующем: мне нужно написать программу для AutoCAD на языке LISP. По непонятной причине AutoCAD после загрузки программы (Tools - Load application) упорно не видит мой код, выдается сообщение "Unknown command "CIR".

Текст программы приведен ниже:

Код:
[Выделить все]
(defun c:cir ( / cen x0 y0 x1 y1 x2 y2 a0 a1 a2 R)
(setq R (getdist "\n Введите параметр R:" ) )
(setq cen (getpoint "\n Укажите центр"))
(setq x0 (nth 0 cen))
(setq y0 (- (nth 1 cen) R))
(setq a0 (list x0 y0))
(setq n 5)
(setq ang (/ pi 6)
(setq ang (* 180 ang))
(setq ang (/ ang pi))
(setq x1 (+ x0 (* R (cos ang))))
(setq y1 (+ y0 (* R (sin ang))))
(setq a1 (list x1 y1))
(setq x2 (+ x1 (* R (cos ang))))
(setq y2 (+ y1 (* R (sin ang))))
(setq a2 (list x2 y2)) 
(command "_line" a0 "210,0" "210,297" "_C")
)
Подскажите, пожалуйста, как с этим бороться.
Просмотров: 5186
 
Непрочитано 06.04.2010, 11:53
#2
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,627


(setq ang (/ pi 6)
Забыл скобку написать.
Profan вне форума  
 
Автор темы   Непрочитано 06.04.2010, 12:09
#3
Voyager


 
Регистрация: 06.04.2010
Сообщений: 4


Все равно проблема остается - появляется сообщение "error: malformed list on input"
Voyager вне форума  
 
Непрочитано 06.04.2010, 12:22
#4
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,627


AutoCAD 2006, пустой чертеж. Никаких проблем:
Код:
[Выделить все]
 
Команда: (defun c:cir ( / cen x0 y0 x1 y1 x2 y2 a0 a1 a2 R)
(_> (setq R (getdist "\n Введите параметр R:" ) )
(_> (setq cen (getpoint "\n Укажите центр"))
(_> (setq x0 (nth 0 cen))
(_> (setq y0 (- (nth 1 cen) R))
(_> (setq a0 (list x0 y0))
(_> (setq n 5)
(_> (setq ang (/ pi 6))
(_> (setq ang (* 180 ang))
(_> (setq ang (/ ang pi))
(_> (setq x1 (+ x0 (* R (cos ang))))
(_> (setq y1 (+ y0 (* R (sin ang))))
(_> (setq a1 (list x1 y1))
(_> (setq x2 (+ x1 (* R (cos ang))))
(_> (setq y2 (+ y1 (* R (sin ang))))
(_> (setq a2 (list x2 y2))
(_> (command "_line" a0 "210,0" "210,297" "_C")
(_> )
C:CIR
Команда: CIR
 Введите параметр R:10
 Укажите центрnil
Profan вне форума  
 
Автор темы   Непрочитано 06.04.2010, 12:29
#5
Voyager


 
Регистрация: 06.04.2010
Сообщений: 4


Странно... Правильно ли я все делаю: сначала tools - Autolisp - load application. Потом набираю комманду в строке?

Как можно запустить программу в Lisp Editor, может это поможет, подскажите, пожалуйста
Voyager вне форума  
 
Непрочитано 06.04.2010, 12:34
#6
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,627


Я вводил код через буфер обмена.
Profan вне форума  
 
Непрочитано 06.04.2010, 13:03
#7
Do$

AutoCAD/Civil3D LISP/C#
 
Регистрация: 15.08.2008
Санкт-Петербург
Сообщений: 1,702
Отправить сообщение для Do$ с помощью Skype™


Цитата:
Сообщение от Voyager Посмотреть сообщение
Как можно запустить программу в Lisp Editor, может это поможет, подскажите, пожалуйста
Загрузить весь текущий файл: Ctrl+Alt+E
Загрузить выделенный участок кода: Ctrl+Shift+E
Do$ вне форума  
 
Непрочитано 06.04.2010, 13:14
#8
Alan

CAD
 
Регистрация: 28.08.2003
Киев
Сообщений: 1,835
<phrase 1=


Цитата:
Сообщение от Voyager Посмотреть сообщение
Странно... Правильно ли я все делаю: сначала tools - Autolisp - load application. Потом набираю комманду в строке?

Как можно запустить программу в Lisp Editor, может это поможет, подскажите, пожалуйста
Lisp Editor запускается командой VLIDE. Оттуда можно/нужно и грузить, а самое главное отладка проще на порядок
__________________
По теории майский жук летать не может.
Но он этого не знает. И летает...
Alan вне форума  
 
Непрочитано 06.04.2010, 15:00
#9
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Offtop: не расценивайте как рекламу http://autolisp.ru/2009/09/10/vlide-misc-01/ + http://autolisp.ru/2009/09/12/vlide-misc-02/
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 07.04.2010, 10:12
#10
Voyager


 
Регистрация: 06.04.2010
Сообщений: 4


Проблема, кажется, разрешилась. Всем большое спасибо!
Voyager вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > проблема с написанием программы на Lisp

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запуск Lisp команды в новом документе BlackHarp LISP 1 26.03.2009 23:06
Создание спецификаций на Lisp DILev AutoCAD 6 27.01.2009 17:53
проблема экспорта файлов по IFC из ADT в лиру и ревит thygank Revit 1 03.08.2008 18:08
Проблема с ксероксом Canon PC860 _Oleg_ Разное 5 26.12.2007 10:18
Проблема при открытии файла с "Немецким именем" pro-nick AutoCAD 16 18.01.2006 15:05