Курсовая работа: Сборочный чертеж в AutoCAD

)

)

(defun grq ()

(command "PLINE" P1 "W" "0.5" "" P2 P3 P4 P5 P6 P7 P8 "c"

"MIRROR" P1 "" P0 P01 ""

"PLINE" P1 (POLAR P1 ( - PI2) D1)""

"PLINE" P8 (POLAR P8 ( - PI2) D1)""

"PLINE" P6 (POLAR P6 ( - PI2) D4)""

"HATCH" "U" "45" "2" "N" P2 (POLAR P2 ( - PI2) D2)""

"LINETYPE" "S" "CENTER" ""

"LINE" (POLAR P0 PI 3) (POLAR P01 0.0 3)""

"LINETYPE" "S" "CONTINUOUS" ""

)

)

(defun dimv ()

(SETQ

P11 (POLAR P1 ( - PI2) D1)

P12 (POLAR P2 ( - PI2) D2)

P15 (POLAR P5 ( - PI2) D3)

P16 (POLAR P6 ( - PI2) D4)

PD1 (POLAR P1 PI 10)

PD2 (POLAR P1 PI 20)

PD3 (POLAR P5 0.0 20)

PD4 (POLAR P6 0.0 10)

PL1 (POLAR P1 PI2 45)

PL2 (POLAR P8 ( - PI2) 70)

PL3 (POLAR P3 PI2 5)

)

(COMMAND