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

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

(setq c1 (/ d1 2))

(setq c2 (/ d2 2))

(setq c3 (/ d3 2))

(setq os1 (list ( - 150 c1 3) 150)

os2 (list (+ 150 c1 3) 150)

os3 (list ( - 150 (/ h 2) 33 w1) 150)

os4 (list ( - 150 (/ h 2) 27) 150)

os5 (list 150 (+ 150 (/ r1 2) r3 3))

os7 (list 150 ( - 150 c1 r3 3)))

(command "line" os1 os2 "")

(command "line" os3 os4 "")

(command "line" os5 x "")

(setq l1 (entlast))

(command "line" x os7 "")

(setq n1 (entlast))

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

(command "circle" x c1)

(command "circle" x c2)

(command "circle" x c3)

(command "layer" "s" "osev" "")

(command "circle" x (/ r1 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" l1 kr1 kr2 "" "P" x "2" "-120" "")