Курсовая работа: Построение параметрической модели детали в среде программирования

(setq r1 0)

(while (or (< r1 65) (> r1 75))

(initget 6)

(setq r1 (getreal "Введите диаметр, проходящий через центр фигуры и центр отверстий <70>"))

(if (= r1 nil) (setq r1 70)))

(setq r2 0)

(while (or (< r2 2) (> r2 12))

(initget 6)

(setq r2 (getreal " Введите диаметр маленьких отверстий детали <7>"))

(if (= r2 nil) (setq r2 7)))

(setq r3 0)

(while (or (< r3 3) (> r3 13))

(initget 6)

(setq r3 (getreal " Введите радиус сопряжения детали <8>"))

(if (= r3 nil) (setq r3 8)))

(setq x (list 150 150))

(setq h (+ (/ r1 2) (/ d1 2) r3 r3))

(setq c1 (/ d1 2))

(setq c2 (/ d2 2))

(setq c3 (/ d3 2))

(command "layer" "s" "osn" "")

(setq b1 (list 150 (+ 150 (/ r1 2))))

(command "circle" b1 (/ r2 2))

(setq kr1 (entlast))

(command "circle" b1 r3)

(setq kr2 (entlast))

(command "array" kr2 "" "P" x "2" "-120" "")

(setq mas2 (entlast))

(command "array" kr1 "" "P" x "2" "-120" "")