Реферат: АвтоЛИСП - реализация языка программирования

0.000000

Теперь давайте попробуем 180 градусов. Если вы введете

Command: (dtr 180)

вы получите ответ:

3.141593

Это показывает, что 180 градусов равно PI радианам. Если вы исследуете функцию, вы убедитесь, что это именно так.

Для выхода из АвтоКАДа введите:

Command: QUIT

и на подсказку

Really want to discard all changes to drawing? Y

(Действительно хотите не учитывать все изменения в чертеже? Д)

ответьте

0

в основном меню для возврата к DOS подсказке. Далее в руководстве под "Выйти из АвтоКАДа" будет подразумеваться эта процедура.

3.4 Ввод

Наша команда garden path (садовая дорожка) запросит у пользователя следующую информацию: где рисовать дорожку, какой ширины ее делать, размер конкретных плит и как близко друг к другу их размещать. Мы определим функцию, которая будет спрашивать пользователя по всем этим пунктам, а затем просчитает цифры, которые мы проставим в конце команды.

Используя редактор текста, добавьте следующие строчки в GP.LSP (мы будем применять вертикальную черту для выделения добавляемых строчек).

: Convert angle in degrees to radians

(defun dtr (a)

('pi (/ a 180.0))

)

| :Acquire information for garden path

| (defun gpuser ()

| (setq sp (getpoint "\nStart point of path:"))

| (setq ep (getpoint "\nEnd point of path:"))

| (setq hwidth (getdist "\nHalf width of path:"sp))

| (setq trad (getdist "\nRadius of tiles:"sp))

| (setq pangle (angle sp ep ))

| (setq plength (distance sp ep ))

| (setq width (' 2 hwidth))