"DIMTVP" 1.5

"DIMTIH" "OFF"

"DIMTOH" "OFF"

"DIM"

"VER" P1 P11 PD1 "%%c <>"

"VER" P2 P12 PD2 "%%c <>"

"VER" P5 P15 PD3 "%%c <>"

"VER" P6 P16 PD4 "%%c <>"

"HOR" P1 P6 PL1 "<>"

"HOR" P8 P6 PL2 "<>"

"HOR" P1 P3 PL3 "<>"

"EXIT"

)

)

С помощью уже описанной выше функции setq присваиваем переменным значения расстояний, на которых будут расставлены наши размеры. Далее идет назначение параметров, в соответствии с которыми следует выполнить простановку размеров. Команда dim обозначает начало построения, далее требуется обозначить, какой размер будет построен горизонтальный и вертикальный (hor или ver). Рассмотрим строчку "VER" P1 P11 PD1 "%% c<>". Она построит вертикальный размер (ver ) от точки P1 до P11 , на расстоянии PD1 от линии, размер которой мы хотим построить, и размер будет иметь значок диаметра (%%с ). "EXIT" обозначает выход из построения размеров.

Главная функция sq которая и будет выполнять все вышеперечисленные функции описывается следующим образом:

(defun c: sq ()

(indat)

(par)

(grq)

(dimv)

)

В ней идет перечисление всех функций в том порядке, в котором они должны выполниться.

Теперь в AutoCADнадо загрузить сохраненный сценарий AutoLISPи запустить его в командной строке командой sq . Далее отвечаем на запросы и получаем построенную крышку. Пример построения крышки показан на в ПРИЛОЖЕНИИ 2.

3. Построение 3 D-модели в AutoCAD

Заключительным заданием курсовой работы является построение объемной модели левой крышки подшипника, о которой говорилось ранее.

Во-первых, необходимо создать в AutoCADновый файл, в котором мы сможем построить 3D-модель. Для этого необходимо воспользоваться меню File| New, затем выбрать acad. dwt.

В появившемся файле необходимо построить цилиндр (Draw| Modeling| Cylinder). При этом AutoCADзапросит несколько значений:

1. Specify center point of base or [3 P/2 P/ Ttr/ Elliptical]: - укажем здесь начальную точку построения с координатами (0,0,0);

2. Specify base radius or [Diameter]: - укажем радиус цилиндра;