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

(setq l7 (entlast))

(command "trim" l7 l6 arc1 "" l3 "")

(command "trim" l7 l3 "" l7 l6"")

(command "erase" l5 "" "")

(command "trim" arc1 l7 "" ss "")

(setq m1 (list ( - (car os4) 4) (+ (cadr k1) 1)))

(setq m2 (list (car m1) (+ (cadr k3) 1)))

(setq m3 (list (car m1) ( - (cadr k7) 1)))

(command "layer" "s" "vsp" "")

(command "bhatch" "p" "ansi31" "0.5" "0" m1 "")

(command "bhatch" "p" "ansi31" "0.5" "0" m2 "")

(command "bhatch" "p" "ansi31" "0.5" "0" m3 "")

(command "style" "Марьяна" "isocpeur" "2.5" "1" "15" "n" "n" "y")

(setvar "dimtxsty" "Марьяна")

(command "dimstyle" "s" "Марьяна" "y")

(command "dimstyle" "r" "Марьяна")

(setq raz1 (list ( - 150 (/ h 2) w1 40) 150))

(setq raz2 (list ( - (car raz1) 7) 150))

(setq raz3 (list ( - (car raz1) 14) 150))

(setq raz4 (list (+ (car raz1) 10) ( - (cadr raz1) c2 10)))

(setq raz5 (list ( - 150 (/ h 2) ( - w1 w2) 40) ( - 150 c2 17)))

(setq raz6 (list (car raz4) ( - (cadr raz5) 7)))

(setq raz7 (list 150 ( - (cadr a11) r3)))

(setq raz8 (list (+ 150 c3) (cadr k5)))

(setq raz9 (list 145 (+ (cadr raz7) r3)))

(setq raz10 (list ( - 150 c3) (cadr a11)))

(setq raz11 (list 150 (+ 150 (/ r1 3))))

(setq raz12 (list (car t3) (cadr t3)))

(setq raz13 (list ( - 150 (/ r1 2) r3 10) 150))