ВУЗ:
Составители:
133
;Программа 5. Построение семейства квадратов
(DEFUN_ID() ;Получение исходных данных
(SETQ_P1_(GETPOINT_"\n_Начальная точка_"))
(SETQ_L_(GETDIST_"\n_Начальная длина стороны квадрата_"))
) ;Конец функции ID
(DEFUN_QUDR(L_A_/P2_P3_P4) ;Построение квадрата
(SETQ_P2_(POLAR_P1_0.0_L))
(SETQ_P3_(POLAR_P2_(/_PI_2)_L))
(SETQ_P4_(POLAR_P3_PI_L))
(COMMAND_"отрезок"_P1_P2_P3_P4_"з")
) ;Конец функции QUADR
(DEFUN_QN() ;Главная программа
SETQ_B_0.0)
(ID)
(WHILE_(<=_B_(*_2_PI))
(QUADR_L_B)
(SETQ_B_(+_B_(*_PI_0.1)))
(SETQ_L_(*_L_0.9))
) ;Конец программы
Возможны пять способов использования программ на AutoLISPе в
AutoCADе, в зависимости от того, куда помещена разработанная
программа
и какое имя дано основной (последней) функции программы.
1.
Непосредственный ввод программы с клавиатуры. Любой текст, на-
чинающийся символом "(", AutoCAD воспринимает как функцию AutoLISPа.
При каждом повторном использовании программа набирается заново.
2.
Ввод программы, оформленной как описание функции. Начинается с
обязательного DEFUN. После выхода из AutoCADа программа теряется.
3.
Запись программы в виде файла
(LOAD_"<имя файла без расширения>")
Программа набирается в любом текстовом редакторе с присвоением ей сво-
его имени и расширения *.LSP.
4.
Оформление программы как готовой команды AutoCADа. После за-
грузки файла с такой программой, она вызывается как любая команда
AutoCADа, т.е. без скобок. Для этого имя основной программы должно начи-
наться с символов "С:". Таким образом можно оформлять только функции, не
имеющие аргументов, например (DEFUN_C:ON()).
5.
Автоматическая загрузка программы. Текст программы добавляется в
файл ACAD.LST, и он автоматически загружается при вызове AutoCADа.
Однако при этом не экономится ОЗУ. Для автоматического выполнения про-
граммы она должна записываться в файле ACAD.LST под именем
S::STARTUP.
Страницы
- « первая
- ‹ предыдущая
- …
- 131
- 132
- 133
- 134
- 135
- …
- следующая ›
- последняя »
