Системы автоматизированного конструирования. Толстоба Н.Д. - 55 стр.

UptoLike

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

Рубрика:

(setq el_t (subst (cons 8 "2") (assoc 8 el_t) el_t))

; замена/добавление информации о цвете

(if (assoc 62 el_t)

; если цвет указан - замена

(setq el_t (subst (cons 62 33) (assoc 62 el_t) el_t))

; если цвет не указан - добавление

(setq el_t (append el_t (list (cons 62 33))))

)

; обновить базу

(entmod el_t)

; извлечение информации о параметрах дуги

(setq

rad (cdr (assoc 40 el_t)) cen (cadr (assoc 10 el_t))

st_a(cdr (assoc 50 el_t)) en_a(cdr (assoc 51 el_t))

)

; вывод информации

(Prompt "\nРадиус:") (print rad)

(Prompt "\nЦентр:") (print cen)

(Prompt "\nСтартовый угол дуги:") (print st_a)

(Prompt "\nКонечный угол дуги:") (print en_a)

(setq i(+ i 1))

)

(alert "Извините, но на чертеже нет элементов с такими параметрами")

)

(prompt "$get_arcs ")

Приложение З. Создание и программирование диалоговых

окон. Задания