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


Начало работы в Visual LISP - часть 2


;; 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.
  • Проверьте свою работу.
  •  




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