Программирование в AutoCad. Салова И.А. - 47 стр.

UptoLike

ВУЗ: 

СПб ГУАП | Санкт-Петербург

Составители: 

Рубрика: 

47
((= x –1.0) PI)
(t (- (/ PI 2.0) (atan (/ x (sqrt (abs (- 1 (* x x))))))))
)
)
(defun _$mark ($mark) ; установка маркера начала формирования
; набора; примитивов
(if (set (read $mark) (entlast))
nil
(progn
(command “_POINT” “@”)
(set (read $mark) (entlast));
(entdel (eval (read $mark)));
)
)
)
(defun _$endmark ($mark); конец формирования набора примитивов;
; возвращает набор примитивов
(if (eval (read $mark))
(progn
(setq $ss (ssadd))
(while (set (read $mark) (entnext (eval (read $mark))))
(ssadd (eval (read $mark)) $ss)
)
)
)
)
(defun _$rline (); ожидание нажатия клавиши ENTER
(prompt “\n <<< To continue press <ENTER> >>>”)
(read-line)
)

Страницы