Стенли Мейер Лаб 293 (Планирование сверления от чертежа)

Описание: ПОДДЕРЖИ КАНАЛ ДОНАТОМ:
https://pay.cloudtips.ru/p/557cb4aa
Ethereum: 0x3e8DEA16ea95a5cfB915abBf86cfC4FE4B18724e (ERC20)
Bitcoin: bc1qn2f49q5uf4vz7sg9ammtj77x02294f5ykw3vsa
Tron: TXxZ6mKCYS7wcuty53iafQarAJfVRSc2oD (TRC20)
TON: UQBNYYzy7BjcisCZFYA_vTQe1olWOFVgxGLHv0hn0u1ScWy2

Альтернативный канал: https://odysee.com/$/invite/@NemoNdal...


======================================================
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Делай ДОНАТ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Кто помог каналу донатом на сумму с выше 3000 рублей получит Пошаговую инструкцию, как построить бюджетный топливный генератор Мейера.
Кто помог каналу донатом на сумму с выше 9000 рублей получит Пошаговую инструкцию, как построить высокоэффективный генератор Мейера с 3 фазной накачкой.

======================================================
Для проделывания отверстий используются следующие сверла
1. сверло диаметром - 7,5 мм или 8 мм
2. сверло диаметром - 11,5 мм

Для нарезки резьбы используются следующие трубные метчики
1. метчик G 1/4

перед тем как нарезать резьбу необходимо снять 0,1 мм, чтоб диаметр отверстия стал 11,6 мм
=====================================================
!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ОПИСАНИЕ К ВИДЕО !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
исправленный python код
import FreeCAD
import Part
import math

Создание нового документа
doc = FreeCAD.newDocument("Hexagon")

Параметры круга (только для расчёта шестиугольника)
diameter = 105 # Диаметр 105 мм (10 см 5 мм)
inner_radius = diameter / 2 # Радиус вписанной окружности

Расчёт параметров шестиугольника
side_length = (2 * inner_radius) / math.sqrt(3) # Длина стороны
circumradius = side_length # Радиус описанной окружности

Создание шестиугольника
hexagon = doc.addObject("Part::RegularPolygon", "Hexagon")
hexagon.Polygon = 6 # Количество сторон
hexagon.Circumradius = circumradius # Радиус описанной окружности
hexagon.Placement = FreeCAD.Placement(FreeCAD.Vector(0, 0, 0), FreeCAD.Rotation())

Обновление документа
doc.recompute()

Сохранение файла
doc.saveAs("Hexagon.FCStd")

добавление отрезков соединяющих центр и углы
После создания шестиугольника добавьте:
center = FreeCAD.Vector(0, 0, 0)
for i in range(6):
angle = math.radians(60 * i)
x = circumradius * math.cos(angle)
y = circumradius * math.sin(angle)
end_point = FreeCAD.Vector(x, y, 0)

Создание отрезка
line = Part.LineSegment(center, end_point)
edge = line.toShape()
segment = doc.addObject("Part::Feature", f"Segment_{i+1}")
segment.Shape = edge

Обновление документа
doc.recompute()

Обновление документа
doc.saveAs("Hexagon.FCStd")

#Добавление 6-ти окружностей в углах

После создания отрезков добавьте:
distance_from_center = 43 # 4.3 см в мм
circle_radius = 4 # 4 мм

for i in range(6):
angle = math.radians(60 * i)

Расчёт позиции центра окружности
x = distance_from_center * math.cos(angle)
y = distance_from_center * math.sin(angle)
center = FreeCAD.Vector(x, y, 0)

Создание окружности
circle = Part.Circle(center, FreeCAD.Vector(0, 0, 1), circle_radius)
circle_obj = doc.addObject("Part::Feature", f"Circle_{i+1}")
circle_obj.Shape = circle.toShape()

doc.recompute()


Создание вспомогательной вертикальной линии вдоль оси Y через центр
start_point = FreeCAD.Vector(0, -100, 0) # Начало линии (например, -100 мм по Y)
end_point = FreeCAD.Vector(0, 100, 0) # Конец линии (например, +100 мм по Y)

vertical_line_y = Part.LineSegment(start_point, end_point)
vertical_edge_y = vertical_line_y.toShape()

vertical_line_y_obj = doc.addObject("Part::Feature", "VerticalLine_Y")
vertical_line_y_obj.Shape = vertical_edge_y

doc.recompute()

circle_diameter = 11.5 # мм (11.5 мм диаметр сверла)
circle_radius = circle_diameter / 2 # (5.75 мм радиус сверла)
distance_between_centers = 41.1 # мм (41.1 мм расстояние между центрами 2-х отверстий)

Центр шестиугольника (0,0,0)
center = FreeCAD.Vector(0, 0, 0)

Позиции центров окружностей на вертикальной линии вдоль оси Y
center1 = FreeCAD.Vector(0, distance_between_centers / 2, 0) # Сдвиг вверх
center2 = FreeCAD.Vector(0, -distance_between_centers / 2, 0) # Сдвиг вниз

Создание окружностей
circle1 = Part.Circle(center1, FreeCAD.Vector(0, 0, 1), circle_radius)
circle_obj1 = doc.addObject("Part::Feature", "Circle1")
circle_obj1.Shape = circle1.toShape()

circle2 = Part.Circle(center2, FreeCAD.Vector(0, 0, 1), circle_radius)
circle_obj2 = doc.addObject("Part::Feature", "Circle2")
circle_obj2.Shape = circle2.toShape()

doc.recompute()




=====================================================


https://drive.google.com/file/d/1KBIX...
https://drive.google.com/file/d/1qjCb...