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


Переработка кода программы - часть 2


(if (setq StartPt (getpoint "\nStart point of path: "))

(if (setq EndPt (getpoint StartPt "\nEndpoint of path: "))

(if (setq HalfWidth (getdist EndPt "\nhalf-width of path: "))

;; if you've made it this far, build the association list

;; as documented above. This will be the return value

;; from the function.

(list

(cons 10 StartPt)

(cons 11 EndPt)

(cons 40 (* HalfWidth 2.0))

(cons 50 (angle StartPt EndPt))

(cons 41 (distance StartPt EndPt))

) ) ) ) )

Теперь необходимо обновить основную функцию C:GPath в файле gpmain.lsp. Она должна выглядеть следующим образом:

(defun C:GPath (/ gp_PathData)

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

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

;; have valid input. Store the data in gp_PathData.

(if (setq gp_PathData (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!")

) ;_ 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

При копировании и вставке кода перед описанием функции C:GPath: следует добавить следующий заголовок:

;;;**************************************************************;

;;; Функция: C:GPath - основная функция для построения парковой дорожки ;

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

;;; Описание: Это основная функция для построения парковой дорожки. It is a ;

;;; C: функция означает, что она преобразуется в ;

;;; команда AutoCAD именуемая GPATH. This function ;

;;; determines the overall flow of the garden path ;




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