Начало работы в Visual LISP

Постановка задачи и начало программирования

Посмотрев, как должно работать приложение, можно приступать к его разработке в среде VLISP. Но сначала необходимо понять, что происходит, когда среда VLISP ожидает передачи управления из AutoCAD. Возможно, при запуске примера уже возникала подобная ситуация.

Чтобы увидеть, как ведет себя Visual LISP, когда находится в режиме ожидания передачи управления из AutoCAD

В меню "Сервис" AutoCAD выберите "Приложения".

Выберите файл gardenpath.vlx из папки Tutorial\VisualLISP и нажмите кнопку «Загрузить».

Нажать кнопку «Закрыть».

В командной строке AutoCAD введите vlisp для запуска Visual LISP.

Переключитесь обратно в окно AutoCAD (для этого можно либо выбрать значок AutoCAD на панели задач, либо требуемое количество раз нажать ALT + TAB и выбрать AutoCAD) и в командной строке AutoCAD введите gpath.

Перед тем, как отвечать на подсказки команды gpath, переключитесь в окно VLISP.

В окне VLISP указатель мыши заменяется специальным курсором VLISP, обозначающим, что ввод команд или текста в окне VLISP запрещен. Этот курсор напоминает, что для возобновления работы с VLISP необходимо завершить выполняющуюся в AutoCAD программу AutoLISP. Программу необходимо завершать каждый раз при появлении курсора VLISP

Вернитесь в окно AutoCAD и ответьте на все запросы команды gpath.

Теперь можно приступить к созданию приложения для построения парковой дорожки.

Для начала разработки приложения в Visual LISP

В меню "Файл" среды VLISP выберите "Создать файл"

В текстовом окне редактора, озаглавленном «Без имени-0», введите следующий текст (комментарии можно опустить):

;;; Function C:GPath is the main program function and defines the

;;; команда GPATH (команда среды AutoCAD).

(defun C:GPath ()

;; Запрос на ввод: путь к местоположению и

;; direction, then for path parameters. Continue only if you have

;; valid input.

(if (gp:getPointInput) ;

(if (gp:getDialogInput)

(progn

;; At this point, you have valid input from the user.

;; Draw the outline, storing the resulting polyline

;; "pointer" in the variable called PolylineName.

(setq PolylineName (gp:drawOutline))

(princ "\nThe gp:drawOutline function returned <")

(princ PolylineName)

(princ ">")

(Alert "Congratulations - your program is complete!")

)

(princ "\nFunction cancelled.")

)

(princ "\nIncomplete information to draw a boundary.")

)

(princ) ; exit quietly

)

;;; Display a message to let the user know the command name.

(princ "\nType gpath to draw a garden path.")

(princ)

Выберите "Файл"

"Сохранить как" и сохраните код в новом файле <AutoCAD папка>\Tutorial\VisualLISP\MyPath\gpmain.lsp.

Проверьте свою работу.

Содержание раздела