 |
выражения устанавливают значения для точки "pt1", запрашивают у Вас точку
"pt2" и выполняют команду AutoCADа LINE по двум заданным точкам.
Аргументы функции COMMAND могут быть строковыми константами,
действительными числами, целыми или точками, то есть такими, какие
ожидает получить от Вас выполняемая команда в ответ на ее запросы. Пустая
строка ("") равносильна нажатию пробела на клавиатуре. Вызов COMMAND без
аргумента равносилен нажатию CTRL C на клавиатуре, и прерывает большин-
ство команд AutoCADа.
Kоманды, выполняемые функцией COMMAND не имееют эха на экране, если
переменная AutoCADа CMDECHO (доступна из функций SETVAR и GETVAR )
установлена равной нулю. Функция COMMAND - основной метод доступа из
AutoLISPа к командам AutoCADа.
==================================================================
Вводимые пользователем функции "GETxxx" (GETANGLE,GETSTRING,
GETINT,GETPOINT и т.д.) не могут быть вложенными
в функции COMMAND. Попытка сделать это вызовет сообщение
"error: AutoCAD rejected function" (ошибка: неверная команда
AutoCADа) и вызовет аварийный останов выполнения функции.
При необходимости, задавайте функции GETxxx заранее или
помещайте их между смежными функциями COMMAND.
Kоманды AutoCADа DTEXT и SKETCH считывают информацию
непосредственно с клавиатуры и дигитайзера и поэтому не могут
- 33 -
Руководство пользователя по АВТОЛИСПу
использоваться с функцией AutoLISP COMMAND. Также нельзя
использовать функцию COMMAND для выполнения команд PLOT,
PRPLOT или SCRIPT.
==================================================================
Прерывание для ввода информации пользователем
Если выполняется команда AutoCADа и в строке аргументов встречается
символ PAUSE, то функция COMMAND приостановит свое действие, чтобы
пользователь непосредственн ввел значение (или произвел отслеживание
элемента чертежа). Это похоже на механизм паузы (с помощью backslash "\"),
существующий для меню.
Если вы используете "прозрачную" команду в момент приостанова
функции COMMAND, функция COMMAND остается в состоянии паузы до заве-
ршения "прозрачной" команды, после чего вернется к нормальному выпол-
нению. Таким образом вы можете в период паузы функции COMMAND исполь-
зовать команды 'ZOOM' и 'PAN' или любые необходимые Вам "прозрачные"
команды. Пауза буде продолжаться до тех пор, пока не будет введен
имеющий силу аргумент и пока не выполняться все "прозрачные" команды.
Hапример:
(command "circle" "5,5" pause "line" "5,5" "7,5" "")
начинается команда CIRCLE, устанавливающая центр круга в точку 5,5, и
затем прерывется, давая возможность пользователю задать радиус круга,
например, методом слежения. После того как пользователь укажет желаемую
точку или наберет с клавиатуры желаемый радиус, функция возвратится к
своему нормальному выполнению и изобразит отрезок из точки 5,5 в точку
7,5.
Ввод с помощью меню не исключается паузой AutoLISPа. Если
активизировано меню и функция COMMAND требует ввода, находясь в паузе,
запрос может быть удовлетворен с помощью меню. Если вы хотите также
приостановить действие меню, в меню следует предусмотреть backslash.
Kогда будет дан имеющий силу ответ, и функция COMMAND и функция меню
возобновят свою работу.
ЗАМЕЧАHИЯ:
1. Символ PAUSE является строковой константой со значением backslash.
Вы можете использовать backslash непосредственно вместо символа
PAUSE, однако если функция COMMAND исползуется как элемент меню,
то backslash будет восприниматься не как аргумент функции COMMAND,
но как опция элемента меню, который выполняется в текущий момент.
Kроме того механизм прерывания может запрашивать различные
управляющие значения в последующих версиях AutoLISPа, поэтому мы
рекомендуем во всех случаях пользоваться символом PAUSE вместо
backslash.
2. Если PAUSE встречается в команде, требующей ввода текста или
значения Атрибута, AutoCAD прервется для ввода только если значение
системной переменной TEXTEVAL не равно нулю. Впротивном случае
значение символа PAUSE - backslash будет воспринято как текст и
прерывания для ввода не произойдет.
- 34 -
Руководство пользователя по АВТОЛИСПу
3. Kогда выполнение функции COMMAND прервано для ввода, функция
находится в состоянии "active" /на выполнении/, поэтому пользова-
тель не может вводить для выполнения другие выражения AutoLISPа.
4.34 (cond (<тест1> <результат>...)...)
Эта функция воспринимает любое число списков как аргументы. Она
оценивает первый элемент списка (по очереди) до тех пор, пока не
встретится отличный от nil. Затем вычисляется то выражение, которое
следует за тестом и возвращает значение последнего выражения в подсписке.
Если в подсписке только одно выражение (например, <результат>
отсутствует), возвращается значение выражения <тест>. COND - основная
функция условия в AutoLISPе.
Hапример, использование функции COND для вычисления абсолютного значения
числа:
(cond ((minusp a) (- a))
(t a)
)
Если в "а" было установленно значение -10, будет возвращено 10. Kак
видно, COND может использоваться как функция типа "case" /в случае.../.
Принято в качестве последнего (по-умолчанию) выражения <тест> исполь-
зовать символ T. Еще один простой пример. Задавая запрос пользователя
в символ "s", эта функция проверяет ответ и возвращает 1, если ответ "
Y" или "y", а если ответ "N" или "n", то 0, иначе nil.
(cond ((= s "Y") 1)
((= s "y") 1)
((= s "N") 0)
((= s "n") 0)
(t nil)
)
4.35 (CONS <новый первый элемент> <список>)
Это основной конструктор списка. Эта функция берет элемент (<новый
первый элемент>) и <список>, и возвращает список с добавленным элементом
в начало списка. Hапример:
(cons 'a '(b c d)) возвращает (A B C D)
(cons '(a) '(b c d)) возвращает ((A) B C D)
Заметим, что первый элемент может быть атомом или списком.
CONS так же воспринимает атом на месте аргумента <списка>, конструируя
структуру, известную как точечная пара. Показывая точечную пару на экране,
AutoLISP печатает точку между первым и вторым элементами. Точечные пары
занимают меньше места в памяти, чем обычные списки и можно использовать
функцию CDR для извлечения второго атома.
(cons 'a 'b) возвращает (A . B)
(car (cons 'a 'b)) возвращает A
(cdr (cons 'a 'b)) возвращает B
- 35 -
Руководство пользователя по АВТОЛИСПу
4.36 (cos <угол>)
Эта функция возвращает косинус <угла>, где <угол> - выражаеся в
радианах. Hапример:
(cos 0.0) возвращает 1.000000
(cos pi) возвращает -1.000000
4.37 (defun <символ> <список аргументов> <выражение>...)
DEFIN - определяет функцию с именем <символ> (заметим, что имя
функции автоматически берется в кавычки и поэтому не требуется этого
делать самому). Имя, следующее за функцией - это списиок аргументов
(возможно пустой), за которым следует (факультативно) косая черта (slach)
и имена одного или более локальных символов функции. Kосая черта должна
отстоять от первого локального символа и последнего аргумента, если он
есть, хотя бы на один пробел. Если нет аргументов и локальных символов,
которые следует об'являть, за именем функции следует поставить пустые
скобки. Hапример:
(defun myfunc (x y) ... ) (функция берет два аргумента)
(defun myfunc (/ a d) ... ) (функция имеет два локальных символа)
(defun myfunc (x / temp) ... ) (один аргумент и один локальный символ)
(defun myfunc () ... ) (без аргументов и локальных символов)
За списком аргументов и локальных символов следует одно или более
выражений, которые вычисляются в процессе выполнения функции.
Сама по себе функция DEFUN возвращает имя определяемой функции.
Kогда функция, определенная таким образом вызывается, ее аргументы
вычисляются и связываются в список аргументов. Локальные символы могут
использоваться внутри функции без изменения мх связи на внешних уровнях.
Функция будет возвращать результат последнего вычисленного выражения.
Все предыдущие выражения будут иметь только побочный эффект.
|
BIGLIB
