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


Обновление функции C:GPath - часть 3


;; closed. This is extremely important!!!!!!!!!

;; Без этого уведомления может произойти аварийное завершение работы AutoCAD!

(if (not *DrawingReactor*)

(setq *DrawingReactor*

(VLR-DWG-Reactor

nil ; No data is associated with the drawing reactor

'((:vlr-beginClose . gp:clean-all-reactors)

)

) ;_ end of vlr-DWG-reactor

)

)

) ;_ end of progn

(princ "\nFunction cancelled.")

) ;_ end of if

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

) ;_ end of if

(princ) ; exit quietly

) ;_ end of defun

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

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

(princ)

  • Просмотрите изменения в коде и комментарии к каждому выражению. Все внесенные изменения по сравнению с предыдущим вариантом в данном учебном пособии выделяются полужирным шрифтом.
  •  




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



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