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

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

(setq mas (entlast))

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

(setq mass (entlast))

(command "osnap" "tan")

(setq t1 (list ( - 150 r3) (+ 150 (/ r1 2))))

(setq t2 (list ( - 150 (/ r1 2) (/ r3 2)) ( - 150 c2)))

(command "line" t1 t2 "")

(setq l2 (entlast))

(setq t3 (list (car t2) ( - (cadr t2) r2)))

(setq t4 (list (+ 150 (/ r1 2) (/ r3 2)) (cadr t3)))

(command "line" t3 t4 "")

(setq l3 (entlast))

(setq t5 (list (+ 150 r3) (+ 150 (/ r1 2))))

(setq t6 (list (car t4) (cadr t2)))

(command "line" t5 t6 "")

(setq l4 (entlast))

(command "trim" l2 l3 l4 "" kr2 mas2 mas "")

(command "erase" mas "" "")

(command "fillet" "r" r3)

(command "fillet" l2 l3)

(setq arc1 (entlast))

(command "circle" x c3)

(setq rad3 (entlast))

(entdel kr1)

(entdel mass)

(entdel mas22)

(entdel rad3)

(setq h1 ( - w1 w2))