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

UptoLike

ВУЗ: 

Университет ИТМО | Санкт-Петербург

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

Рубрика: 

51
; забегая вперед, это - сохранение нарисованного примитива
(setq det (entlast))
; отражение нарисованной детали
(command "_.mirror" det "" p1 "@1,0" "N")
; рисование
(command "_.pline" p2 (list x (- y (/ d2 2.0))) "")
(command "_.pline" p7 (list (+ x h) (- y (/ d2 2.0))) "")
; установка белого цвета
(command "color" 7)
; ось
(command "_.line" (list (- x 10) y) (list (+ x h 10) y)"")
; штриховка
(command "_.bhatch" "p" "ansi31"
(/ (+ d3 h) 70.0) ; расчет относительного масштаба штриховки
"0" ; угол наклона
(list (+ x (/ h 10.0)) (+ y (/ d2 2.0) (/ (- d1 d2) 4.0))) ; точки внутри шртихуемой области
(list (+ x (/ h 10.0)) (- y (/ d2 2.0) (/ (- d1 d2) 4.0))) ; точки внутри шртихуемой области
""
)
)
(prompt "DrawDetail ")
Следующий шаг в совершенствовании программы - вставка проверки данных на
допустимость/совместимость, которая будет обеспечивать стабильность работы программы.
Приложение Е. Задание «Доступ к примитивам»
1. Написать программу, запрашивающую у пользователя ширину и меняющую ширину всех
красных полилиний на заданную.
Считать все исходные полилинии одной толщины. Красные полилинии - цвет 1.
2. *Написать программу, преобразующую полилинию в последовательность дуг и отрезков,
и подсчитывающую суммарную длину отрезков.
Обработка вершин полилинии - записать их в список и вычислить расстояние
между вершинами.
3. Написать программу, переносящую все объекты чертежа на слой 0.
4. Написать программу, изменяющую цвет всех размеров на зеленый.
Создать набор примитивов и заменить исходный цвет на зеленый.
5. Написать программу, изменяющую стиль всех размеров на созданный (информационный
- со звездочкой).
Создать стиль размеров "Info", создать набор примитивов и заменить стиль на
"Info".
6. Написать программу, удаляющую с чертежа все штрих-пунктирные (тип DASHDOT)
линии.
Создать набор примитивов нарисованных этим типом линии, и удалить с
чертежа этот набор.
7. Написать программу, создающую слой "Thick" и переносящую все элементы голубого

Страницы