Группы пользователей Autodesk


Переработка кода программы


Средства отладки Visual LISP

 

Средства отладки Visual LISP  

Переработка кода программы

Теперь, познакомившись с принципом работы ассоциативных списков в AutoLISP, воспользуемся этим типом списка для написания окончательного варианта функции gp:getPointInput. Для этого следует заменить предыдущую версию gp:getPointInput, ранее сохраненную в файле gpmain.lsp, следующим кодом.

Примечание При наборе текста программы в файле gpmain.lsp вручную (а не копированием из имеющегося готового файла) можно сэкономить время, исключив все комментарии (строки, начинающиеся с точки запятой). Однако это не означает, что следует привыкать писать код без комментариев и в дальнейшем!

;;;--------------------------------------------------------------;

;;; Функция: gp:getPointInput ;

;;;--------------------------------------------------------------;

;;; Описание: С помощью этой функции пользователю предлагается выбрать три точки с запятой (;)

;;; points in a drawing, which will determine the ;

;;; path location, direction, and size. ;

;;;--------------------------------------------------------------;

;;; If the user responds to the get functions with valid data, ;

;;; use startPt and endPt to determine the position, length, ;

;;; and angle at which the path is drawn. ;

;;;--------------------------------------------------------------;

;;; Эта функция возвращает список, который состоит из следующих элементов: ;

;;; (10 . Starting Point) ;; List of 3 reals (a point) denoting ;

;;; ;; starting point of garden path. ;

;;; (11 . Ending Point) ;; List of 3 reals (a point) denoting ;

;;; ;; ending point of garden path. ;

;;; (40 . Width) ;; Real number denoting boundary ;

;;; ;; ширина. ;

;;; (41 . Length) ;; Real number denoting boundary ;

;;; ;; длина. ;

;;; (50 . Path Angle) ;; Real number denoting the angle ;

;;; ;; of the path, in radians. ;

;;;--------------------------------------------------------------;

(defun gp:getPointInput(/ StartPt EndPt HalfWidth)




Начало  Назад  Вперед



Книжный магазин