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

(setq raz15 (list (car raz8) (+ (cadr b1) r3)))

(command "dimlinear" k7 k5 "m" "%%c<>" raz1)

(setq p_raz9 (osnap raz9 "nea"))

(setq p_raz14 (osnap raz14 "tan"))

(command "dimlinear" a5 a8 "m" "%%c<>" raz2)

(command "dimlinear" a3 a10 "m" "%%c<>" raz3)

(command "dimlinear" a5 k8 raz4)

(command "dimlinear" a3 k8 raz5)

(command "dimlinear" k7 k8 raz6)

(command "dimdiameter" raz7 raz8)

(command "dimradius" p_raz9 raz10)

(command "dimangular" raz11 raz12 raz13)

(command "dimradius" p_raz14 raz15)

(command "line" "20,5" "205,5" "")

(command "line" "205,5" "205,292" "")

(command "line" "205,292" "20,292" "")

(command "line" "20,292" "20,5" "")

(command "line" "20,60" "205,60" "")

(command "_. zoom" "e")

)

Построение трехмерного изображения детали

(defun c: mod3d (/ d1 d2 d3 w1 w2 w3 r1 r2 r3)

(command "erase" "all" "")

(setvar "cmdecho" 1)

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

(command "snap" "1")

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

(command "_. regen")

(command "view" "t")