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

(setvar "cmdecho" 1)

(command "limits" "0,0" "210,297")

(command "grid" "10")

(command "snap" "1")

(command "osnap" "off")

(command "layer" "m" "osn" "l" "continuous" "osn" "lw" "0.3" "osn" "")

(command "layer" "m" "osev" "l" "center" "osev" "lw" "0.05" "osev" "")

(command "layer" "m" "vsp" "l" "continuous" "vsp" "lw" "0.05" "vsp" "")

(command "_. regen")

(command "view" "t")

(setvar "lwdisplay" 1)

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

(setq d1 0)

(while (or (< d1 35) (> d1 45))

(initget 6)

(setq d1 (getreal "Введите наибольший диаметр детали <40>"))

(if (= d1 nil) (setq d1 40)))

(setq d2 0)

(while (or (< d2 26) (> d2 37))

(initget 6)

(setq d2 (getreal " Введите средний диаметр детали <32>"))

(if (= d2 nil) (setq d2 32)))

(setq d3 0)

(while (or (< d3 15) (> d3 25))

(initget 6)

(setq d3 (getreal " Введите наименьший диаметр детали <20>"))

(if (= d3 nil) (setq d3 20)))

(setq w1 0)

(while (or (< w1 17) (> w1 27))