Таблица лидеров

@Rich Попробуйте заменить CreateObject("SldWorks.Application") на Application.SldWorks Так же замените Dim swApp As Object на Dim swApp As SldWorks.SldWorks

Надо пользоваться как Гуглом, так и Яндексом, иногда помогает одно, в другом случае - другое. Раньше пользовался только гуглом, после февраля 2022 стал замечать проблемы, особенно по китайским сайтам.

Добрый день. Отправляю фрагмент из руководства по эксплуатации по циклу G76. Значение P (высота резьбы) для метрической резьбы можно найти умножив шаг резьбы на коэффициент 0.542. В цикле G76 она задаётся в дискретах станка (в микронах обычно). Это значение всегда примерное, так как на него влияет величина радиуса при вершине резца. Нельзя полагать, что задав рассчитанную высоту резьбы мы получим годную деталь, всегда требуется коррекция, в том числе из-за разной жёсткости системы СПИД. Но правильнее корректировать значение X в цикле G76, а уточненная высота резьбы зависит от этого значения.

https://www.vargus.com/en/catalogs Vargus Main With Supp And MACH COMP.pdf https://play.google.com/store/apps/details?id=app.dev.vargus&hl=en

размеры для нарезания резьбы выбираю по таблице резьб или применяю программу КАЛЬКУЛЯТОР РЕЗЬБЫ

klaviatura-kak_72057.mp4

@nahaus Мой вариант: Option Explicit Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swSheet As SldWorks.Sheet Dim vSheetNameArr, vSheetName As Variant Dim bRet As Boolean Dim lErrors As Long Dim lWarnings As Long Dim fileName As String Dim strOriginallyActiveSheet As String Sub main() Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc ' Проверяем открыто ли что-либо? If swModel Is Nothing Then swApp.SendMsgToUser2 "Нет

Ну так откройте справочник. Мне до него 10 метров идти, и то лень стало. За 30 секунд нашел в поисковике. Пользуйтесь: https://files.stroyinf.ru/Data2/1/4294840/4294840460.pdf Н₁ = 0,75 Р