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

"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" ""

)

)

Слово command обозначает, что следующая функция будет выполнена как в системе AutoCAD: выбор полилинии, указание координат первой точки, переход в параметры толщины линии и назначение начала линии толщиной в 0,5. Пустые кавычки обозначают, что и конец линии будет толщиной 0,5. Далее выполняется построение полилинии по указанным координатам точек P1, P2, P3 и т.д., "c" - замкнуть полилинию, провести прямую от последней точки к первой, и выйти из редактирования полилинии. Вторая строка осуществляет зркальное отображение построенной полилинии относительно осевой линии PO P01. Следующие 3 строки программы предназначены для построения недостающих на чертеже линий. С помощью следующей строки выполняется штриховка с соответствующими параметрами. Последняя строка проводит дополнительную линию.

Простановка размеров производится в функции dimv ():

(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

"DIMDEC" 0

"DIMASZ" 2