В появившемся файле необходимо построить цилиндр (Draw| Modeling| Cylinder). При этом AutoCADзапросит несколько значений:
1. Specifycenterpointofbaseor [3P/2P/Ttr/Elliptical]: - укажем здесь начальную точку построения с координатами (0,0,0);
2. Specify base radius or [Diameter]: - укажем радиус цилиндра;
3. Specify height or [2Point/Axis endpoint]: - укажем высоту цилиндра.
Цилиндр построен, он будет являться основанием нашей крышки, далее необходимо изобразить монтажные отверстия. Построение их также связано с построением цилиндров той же высоты, но уже меньшего радиуса, а начальной точкой будет являться другая - полученная методом расчета, исходя из рабочего чертежа крышки.
После построения одного такого цилиндра, можно упростить расчеты применением команда ARRAY - массив (Modify| Array). В всплывающем окне выбираем PolarArrayи Centerpoint (0,0,0). После этого на чертеже появляются 4 одинаковых цилиндра.
Далее необходимо сделать из них отверстия. Для этого необходимо воспользоваться функцией SUBTRACT - вычитание (Modify| SolidEditing). Далее необходимо выделить большой цилиндр, нажать <Enter>, и выделить маленькие. В итоге получим цилиндр с отверстиями.
Пользуясь вышеизложенными функциями, необходимо построить еще цилиндр, объединить его (Modify| SolidEditing| Union) cуже имеющимся, сделать в нем отверстие. А затем построить еще один цилиндр, который должен будет стать отверстием для посадки на вал.
Выполнив все перечисленные операции, получим 3D-модель левой крышки подшипника (ПРИЛОЖЕНИЕ 3), которую и необходимо было построить.
Приложение 1
(defun indat ()
(SETQ
P0 (GETPOINT "\n Введите базовую точку Р0 >: ")
D1 (GETREAL "\n Введите диаметр посадочного отверстия D1 >: ")
D2 (GETREAL "\n Введите диаметр валика D2 >: ")
D3 (GETREAL "\n Введите диаметр выступа D3 >: ")
D4 (GETREAL "\n Введите диаметр внутреннего отверстия D4 >: ")
L1 (GETREAL "\n Введите длину крышки L1 >: ")
L2 (GETREAL "\n Введите высоту внутреннего отверстия L2 >: ")
L3 (GETREAL "\n Введите ширину буртика L3 >: ")
)
)
(defun par ()
(SETQ
PI2 (/ PI 2)
P01 (POLAR P0 0.0 L1)
P1 (POlAR P0 PI2 (/ D1 2))
P2 (POlAR P0 PI2 (/ D2 2))
P3 (POlAR P2 0.0 L3)
P4 (POlAR P3 ( - PI2) (/ ( - D2 D3) 2))
P5 (POlAR P4 0.0 ( - L1 L3))
P6 (POLAR P5 ( - PI2) (/ ( - D3 D4) 2))
P7 (POLAR P6 PI L2)
P8 (POlAR P7 ( - PI2) (/ ( - D4 D1) 2))
)
)
(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
"DIMDEC" 0
"DIMASZ" 2
"DIMTXT" 3
"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"
)
)
(defun c: sq ()
(indat)
(par)
(grq)
(dimv)
)
Рис.3. Чертеж левой крышки подшипника, выполненный с помощью AutoLISP.
Рис.4.3D-модель левой крышки подшипника, выполненная в AutoCAD.
Рис.5. Чертеж сборочной единицы, выполненный с помощью AutoCAD.
Рис.6. Чертеж сборочной единицы, выполненный с помощью AutoCAD