СЕТЕВОЙ ПРОМЫШЛЕННЫЙ ИНТЕЛЛЕКТ

("ОБЛАЧНЫЙ" КИБЕР-ТЕХНОЛОГ)
Посвящается моим родителям: Турта Григорию Ивановичу и Турта Марии Дмитриевне

ВЫПОЛНЯЕМ ЗАКАЗЫ ПО УДАЛЕННОЙ ПОДГОТОВКЕ УП ДЛЯ СЧПУ С АВТОМАТИЧЕСКОЙ ГЕНЕРАЦИЕЙ ТЕХНОЛОГИИ ОБРАБОТКИ И СТАТИСТИКИ ЗА ОТЗЫВ!

ГЛАВНАЯ
Новости ФРЕЗЕРНАЯ
$100/мес. ПРОРИСОВКА УП
По факту КОНСУЛЬТАЦИИ
Оплата по факту ДОЛЯ
По факту ДОХОД
По факту РЕГИСТРАЦИЯ
Для платных ПАРТНЕРКА
Заработать ОТЗЫВ
Мнение СВЯЗЬ
Написать

ВНИМАНИЕ! Чтобы воспользоваться онлайн сервисом конвертации макроса VBA системы SolidWorks, необходимо предварительно создать этот макрос, включив его запись, наложить офсетную геометрию траектории обработки КТЭ и последовательно кликая на ее примитивах, СТРОГО ПРОТИВ ЧАСОВОЙ СТРЕЛКИ, удерживая клавишу Ctrl по схеме: начальная точка, прямая, конечная точка прямой (начальная дуги), дуга, точка центра дуги, конечная точка дуги, прямая, конечная точка прямой и т.д., центрах отверстий и т.д. Затем скопировать макрос в буфер обмена, вставить его в соотвествующее окно здесь. ВНИМАНИЕ! Начинать надо обработку с того, что НЕОБХОДИМО кликнуть сначала на плоскости заготовки. И на дне обрабатываемого КТЭ всякий раз перед прокликиванием на примитивах офсетной геометрии траектории его обработки. Если КТЭ сквозной, т.е. дно отсутсвует, надо так же как и в самом начале кликнуть на плоскости заготовки.

Е-mail получателя:
(Если надо известить)

Плоскость безопасности
(Ускоренное перемещение инст-та)

Примеры макросов: скопируйте и вставьте в окно конвертации

TEST1 ' ****************************************************************************** ' C:\Users\51FB~1\AppData\Local\Temp\swx3024\Macro1.swb - macro recorded on 07/23/15 by Виктор ' ****************************************************************************** Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long Dim Annotation As Object Dim Gtol As Object Dim DatumTag As Object Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = CreateObject("SldWorks.Application") Set Part = swApp.ActiveDoc swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SelectByID "", "FACE", 0.07628920786816, -0.01701222753854, 0.009999999999991 Part.AndSelectByID "Arc4", "SKETCHSEGMENT", 0.08906963527908, 0.04545987319882, 0 Part.AndSelectByID "Point6", "SKETCHPOINT", 0, 0, 0 Part.SelectByID "", "FACE", 0.07735247208931, 0.01594896331738, 0.009999999999991 Part.DeSelectByID "Point6", "SKETCHPOINT", 0, 0, 0 Part.AndSelectByID "Arc54", "SKETCHSEGMENT", 0.02238991291522, 0.01627837069171, 0 Part.AndSelectByID "Point126", "SKETCHPOINT", -0.008688166185874, 0.03548721623306, 0 Part.AndSelectByID "Point29", "SKETCHPOINT", 0.01472376749842, 0.06353553363013, 0 Part.AndSelectByID "Arc17", "SKETCHSEGMENT", -8.575796339193E-04, 0.06998160547032, 0 Part.AndSelectByID "Point48", "SKETCHPOINT", 0, 0.05, 0 Part.AndSelectByID "Point31", "SKETCHPOINT", -0.01472376749842, 0.06353553363013, 0 Part.AndSelectByID "Line14", "SKETCHSEGMENT", -0.02963269244908, 0.04851272885525, 0 Part.AndSelectByID "Point34", "SKETCHPOINT", -0.06635874404077, 0.01150615024274, 0 Part.AndSelectByID "Arc18", "SKETCHSEGMENT", -0.06999287369856, 5.338551054354E-04, 0 Part.AndSelectByID "Point49", "SKETCHPOINT", -0.05, 0, 0 Part.AndSelectByID "Point36", "SKETCHPOINT", -0.06635874404077, -0.01150615024274, 0 Part.AndSelectByID "Line15", "SKETCHSEGMENT", -0.03736303573437, -0.04028205763881, 0 Part.AndSelectByID "Point39", "SKETCHPOINT", -0.01029015196761, -0.06714971639659, 0 Part.AndSelectByID "Arc19", "SKETCHSEGMENT", -0.001314673521829, -0.06995674406137, 0 Part.AndSelectByID "Point50", "SKETCHPOINT", 0, -0.05, 0 Part.AndSelectByID "Point41", "SKETCHPOINT", 0.01029015196761, -0.06714971639659, 0 Part.AndSelectByID "Line16", "SKETCHSEGMENT", 0.03558503770995, -0.04221831260204, 0 Part.AndSelectByID "Point44", "SKETCHPOINT", 0.06501815145539, -0.01320814623113, 0 Part.AndSelectByID "Arc20", "SKETCHSEGMENT", 0.06988064961186, -0.002181689943688, 0 Part.AndSelectByID "Point51", "SKETCHPOINT", 0.05, 0, 0 Part.AndSelectByID "Point28", "SKETCHPOINT", 0.06501815145539, 0.01320814623113, 0 Part.AndSelectByID "Line13", "SKETCHSEGMENT", 0.04377204630604, 0.03446819318759, 0 Part.DeSelectByID "Point29", "SKETCHPOINT", 0.01472376749842, 0.06353553363013, 0 Part.DeSelectByID "", "FACE", 0.075225943647, -0.02870813397129, 0.009999999999991 Part.AndSelectByID "Arc25", "SKETCHSEGMENT", 0.05972153384404, -0.0533546677662, 0 Part.AndSelectByID "Point59", "SKETCHPOINT", 0.055, -0.055, 0 Part.AndSelectByID "Point70", "SKETCHPOINT", 0.055, 0.055, 0 Part.AndSelectByID "Point81", "SKETCHPOINT", -0.055, 0.055, 0 Part.AndSelectByID "Point92", "SKETCHPOINT", -0.055, -0.055, 0 End Sub
TEST2 ' ****************************************************************************** ' C:\Users\51FB~1\AppData\Local\Temp\swx5088\Macro1.swb - macro recorded on 04/22/14 by Виктор ' ****************************************************************************** Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long Dim Annotation As Object Dim Gtol As Object Dim DatumTag As Object Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = CreateObject("SldWorks.Application") Set Part = swApp.ActiveDoc swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SelectByID "", "FACE", 0.09774660519939, 2.913833074206E-04, 0.02499999999998 Part.AndSelectByID "Point22", "SKETCHPOINT", 0.075, 0.05, 0 Part.AndSelectByID "Point22", "SKETCHPOINT", 0.075, 0.05, 0 Part.AndSelectByID "Arc13", "SKETCHSEGMENT", 0.09101457214325, 0.044197225817, 0 Part.AndSelectByID "Point41", "SKETCHPOINT", 0.075, 0.025, 0 Part.AndSelectByID "Point23", "SKETCHPOINT", 0.1, 0.025, 0 Part.AndSelectByID "Line14", "SKETCHSEGMENT", 0.1, -0.00658156218498, 0 Part.AndSelectByID "Point27", "SKETCHPOINT", 0.1, -0.025, 0 Part.AndSelectByID "Arc14", "SKETCHSEGMENT", 0.0974675249003, -0.03596404691956, 0 Part.AndSelectByID "Point42", "SKETCHPOINT", 0.075, -0.025, 0 Part.AndSelectByID "Point28", "SKETCHPOINT", 0.075, -0.05, 0 Part.AndSelectByID "Line15", "SKETCHSEGMENT", -0.01659421526508, -0.05, 0 Part.AndSelectByID "Point31", "SKETCHPOINT", -0.075, -0.05, 0 Part.AndSelectByID "Arc15", "SKETCHSEGMENT", -0.09252102121804, -0.04283294186266, 0 Part.AndSelectByID "Point43", "SKETCHPOINT", -0.075, -0.025, 0 Part.AndSelectByID "Point33", "SKETCHPOINT", -0.1, -0.025, 0 Part.AndSelectByID "Line16", "SKETCHSEGMENT", -0.1, 0.01528690074538, 0 Part.AndSelectByID "Point36", "SKETCHPOINT", -0.1, 0.025, 0 Part.AndSelectByID "Arc16", "SKETCHSEGMENT", -0.09373909037053, 0.04154830783147, 0 Part.AndSelectByID "Point85", "SKETCHPOINT", -0.075, 0.025, 0 Part.AndSelectByID "Point21", "SKETCHPOINT", -0.075, 0.05, 0 Part.AndSelectByID "Line13", "SKETCHSEGMENT", 0.05307245949879, 0.05, 0 Part.DeSelectByID "Point22", "SKETCHPOINT", 0.075, 0.05, 0 Part.ViewZoomTo2 -0.065582, 0.0351527, 0.0125, 0.0649574, -0.0359083, 0.0125 Part.SetPickMode Part.ClearSelection Part.SelectByID "", "FACE", 0.002763253356035, -0.01883098052616, 0.01499999999999 Part.AndSelectByID "Point299", "SKETCHPOINT", 0, 0, 0 Part.AndSelectByID "Line97", "SKETCHSEGMENT", -0.00744284606157, -0.002723818671945, 0 Part.AndSelectByID "Point275", "SKETCHPOINT", -0.01989691703889, -0.007281568595715, 0 Part.AndSelectByID "Line91", "SKETCHSEGMENT", -0.005950760206736, -0.007281568595715, 0 Part.AndSelectByID "Point276", "SKETCHPOINT", 0.01144505346735, -0.007281568595715, 0 Part.AndSelectByID "Arc60", "SKETCHSEGMENT", 0.01728594719178, -0.005398462120943, 0 Part.AndSelectByID "Point104", "SKETCHPOINT", 0.01144505346735, 0.002718431404285, 0 Part.AndSelectByID "Point277", "SKETCHPOINT", 0.02144505346735, 0.002718431404285, 0 Part.AndSelectByID "Line92", "SKETCHSEGMENT", 0.02144505346735, 0.006285882095944, 0 Part.AndSelectByID "Point271", "SKETCHPOINT", 0.02144505346735, 0.008249689003798, 0 Part.AndSelectByID "Line89", "SKETCHSEGMENT", 0.007034828631904, 0.008249689003798, 0 Part.AndSelectByID "Point272", "SKETCHPOINT", -0.009896917038892, 0.008249689003798, 0 Part.AndSelectByID "Arc59", "SKETCHSEGMENT", -0.0151520732193, 0.00675752853681, 0 Part.AndSelectByID "Point187", "SKETCHPOINT", -0.009896917038892, -0.001750310996202, 0 Part.AndSelectByID "Point273", "SKETCHPOINT", -0.01989691703889, -0.001750310996202, 0 Part.AndSelectByID "Line90", "SKETCHSEGMENT", -0.01989691703889, -0.005674528676487, 0 Part.DeSelectByID "Point275", "SKETCHPOINT", -0.01989691703889, -0.007281568595715, 0 Part.AndSelectByID "Line98", "SKETCHSEGMENT", -0.02203037330321, -0.009415024860037, 0 Part.AndSelectByID "Point101", "SKETCHPOINT", -0.02489691703889, -0.01228156859571, 0 Part.AndSelectByID "Line67", "SKETCHSEGMENT", -0.01534822581365, -0.01228156859571, 0 Part.AndSelectByID "Point188", "SKETCHPOINT", 0.01144505346735, -0.01228156859571, 0 Part.AndSelectByID "Arc40", "SKETCHSEGMENT", 0.02014211730025, -0.009502905702858, 0 Part.DeSelectByID "Point104", "SKETCHPOINT", 0.01144505346735, 0.002718431404285, 0 Part.DeSelectByID "Point104", "SKETCHPOINT", 0.02644505346735, 0.002718431404285, 0 Part.AndSelectByID "Line68", "SKETCHSEGMENT", 0.02644505346735, 0.01038659436078, 0 Part.AndSelectByID "Point95", "SKETCHPOINT", 0.02644505346735, 0.0132496890038, 0 Part.AndSelectByID "Line65", "SKETCHSEGMENT", 0.003788431422244, 0.0132496890038, 0 Part.AndSelectByID "Point185", "SKETCHPOINT", -0.009896917038892, 0.0132496890038, 0 Part.AndSelectByID "Arc39", "SKETCHSEGMENT", -0.01855372004409, 0.01049957723713, 0 Part.DeSelectByID "Point187", "SKETCHPOINT", -0.009896917038892, -0.001750310996202, 0 Part.AndSelectByID "Point186", "SKETCHPOINT", -0.02489691703889, -0.001750310996202, 0 Part.AndSelectByID "Line66", "SKETCHSEGMENT", -0.02489691703889, -0.007895747819938, 0 Part.DeSelectByID "Point101", "SKETCHPOINT", -0.02489691703889, -0.01228156859571, 0 Part.AndSelectByID "Line99", "SKETCHSEGMENT", -0.02799208863022, -0.01228156859571, 0 Part.AndSelectByID "Point99", "SKETCHPOINT", -0.02989691703889, -0.01228156859571, 0 Part.AndSelectByID "Arc19", "SKETCHSEGMENT", -0.02874637805828, -0.01547243836119, 0 Part.AndSelectByID "Point101", "SKETCHPOINT", -0.02489691703889, -0.01228156859571, 0 Part.AndSelectByID "Point100", "SKETCHPOINT", -0.02489691703889, -0.01728156859571, 0 Part.AndSelectByID "Line43", "SKETCHSEGMENT", -0.007659390317083, -0.01728156859571, 0 Part.AndSelectByID "Point102", "SKETCHPOINT", 0.01144505346735, -0.01728156859571, 0 Part.AndSelectByID "Arc20", "SKETCHSEGMENT", 0.02432587730157, -0.01258138484794, 0 Part.AndSelectByID "Point104", "SKETCHPOINT", 0.01144505346735, 0.002718431404285, 0 Part.AndSelectByID "Point103", "SKETCHPOINT", 0.03144505346735, 0.002718431404285, 0 Part.AndSelectByID "Line44", "SKETCHSEGMENT", 0.03144505346735, 0.01089918339388, 0 Part.AndSelectByID "Point93", "SKETCHPOINT", 0.03144505346735, 0.0132496890038, 0 Part.AndSelectByID "Arc17", "SKETCHSEGMENT", 0.03083945566134, 0.01563489955163, 0 Part.DeSelectByID "Point95", "SKETCHPOINT", 0.02644505346735, 0.0132496890038, 0 Part.AndSelectByID "Point94", "SKETCHPOINT", 0.02644505346735, 0.0182496890038, 0 Part.AndSelectByID "Line41", "SKETCHSEGMENT", 0.00942691078639, 0.0182496890038, 0 Part.AndSelectByID "Point96", "SKETCHPOINT", -0.009896917038892, 0.0182496890038, 0 Part.AndSelectByID "Arc18", "SKETCHSEGMENT", -0.02191119375086, 0.01423897151079, 0 Part.AndSelectByID "Point187", "SKETCHPOINT", -0.009896917038892, -0.001750310996202, 0 Part.AndSelectByID "Point97", "SKETCHPOINT", -0.02989691703889, -0.001750310996202, 0 Part.AndSelectByID "Line42", "SKETCHSEGMENT", -0.02989691703889, -0.007383158786834, 0 Part.DeSelectByID "Point99", "SKETCHPOINT", -0.02989691703889, -0.01228156859571, 0 Part.SelectByID "", "FACE", -0.01586081484675, -0.01883098052616, 0.01499999999999 Part.SelectByID "Arc81", "SKETCHSEGMENT", -0.01598280609142, -0.002976936865453, 0 Part.SelectByID "Point376", "SKETCHPOINT", -0.02, 0, 0 Part.SelectByID "Point299", "SKETCHPOINT", 0, 0, 0 Part.SelectByID "Point398", "SKETCHPOINT", 0.02, 0, 0 Part.SelectByID "", "FACE", 0.03283514329815, -0.02805758312204, 0.02499999999998 Part.SelectByID "Arc99", "SKETCHSEGMENT", 0.05839683858918, -0.03253571952133, 0 Part.SelectByID "Point409", "SKETCHPOINT", 0.06, -0.03, 0 Part.SelectByID "Point409", "SKETCHPOINT", 0.06, 0.03, 0 Part.SelectByID "Point409", "SKETCHPOINT", -0.06, 0.03, 0 Part.SelectByID "Point409", "SKETCHPOINT", -0.06, -0.03, 0 End Sub
TEST3 ' ****************************************************************************** ' C:\Users\51FB~1\AppData\Local\Temp\swx2008\Macro1.swb - macro recorded on 05/04/14 by Виктор ' ****************************************************************************** Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long Dim Annotation As Object Dim Gtol As Object Dim DatumTag As Object Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = CreateObject("SldWorks.Application") Set Part = swApp.ActiveDoc Part.SetPickMode Part.SelectByID "", "FACE", 0.08224051339286, 0.04289899553571, 0.02499999999998 Part.SelectByID "Arc4", "SKETCHSEGMENT", 0.08706969813552, 0.04918198518349, 0 Part.SelectByID "Point6", "SKETCHPOINT", 0, 0, 0 Part.SelectByID "", "FACE", -0.003216455853175, -0.01244729662698, 0.01499999999999 Part.AndSelectByID "Point6", "SKETCHPOINT", 0, 0, 0 Part.AndSelectByID "Line12", "SKETCHSEGMENT", 0.02184036330049, -0.008736145320197, 0 Part.AndSelectByID "Point20", "SKETCHPOINT", 0.05, -0.02, 0 Part.AndSelectByID "Arc11", "SKETCHSEGMENT", 0.06862713915031, -0.007282148520533, 0 Part.AndSelectByID "Point28", "SKETCHPOINT", 0.05, 0, 0 Part.AndSelectByID "Point19", "SKETCHPOINT", 0.05, 0.02, 0 Part.AndSelectByID "Line7", "SKETCHSEGMENT", -0.01095920138889, 0.02, 0 Part.AndSelectByID "Point18", "SKETCHPOINT", -0.05, 0.02, 0 Part.AndSelectByID "Arc12", "SKETCHSEGMENT", -0.06991878319731, -0.001800576557237, 0 Part.AndSelectByID "Point29", "SKETCHPOINT", -0.05, 0, 0 Part.AndSelectByID "Point23", "SKETCHPOINT", -0.05, -0.02, 0 Part.AndSelectByID "Line8", "SKETCHSEGMENT", 0.01112196180556, -0.02, 0 Part.DeSelectByID "Point20", "SKETCHPOINT", 0.05, -0.02, 0 Part.DeSelectByID "Line12", "SKETCHSEGMENT", 0.02114816382731, -0.008459265530925, 0 Part.DeSelectByID "Point6", "SKETCHPOINT", 0, 0, 0 Part.AndSelectByID "", "FACE", 0.0524166046627, -0.05001395089286, 0.01499999999999 Part.AndSelectByID "Arc17", "SKETCHSEGMENT", 0.05492120434181, -0.04911583495537, 0 Part.AndSelectByID "Point37", "SKETCHPOINT", 0.05, -0.05, 0 Part.AndSelectByID "Point48", "SKETCHPOINT", 0.05, 0.05, 0 Part.AndSelectByID "Point59", "SKETCHPOINT", -0.05, 0.05, 0 Part.AndSelectByID "Point70", "SKETCHPOINT", -0.05, -0.05, 0 End Sub

Вставьте макрос VBA цикла ЧПУ Инструкция, как подготовить макрос с 3D модели

СИСТЕМА ЧПУ

BOSCH
FANUC
2С42

МАТЕРИАЛ ДЕТАЛИ

Магниевые сплавы
Алюминиевые сплавы
Латунь
Бронза
Чугун
Сталь углеродистая
Сталь низколегированная
Сталь высоколегированная

CopyRight (c) Турта В. 2012. Создано: 30.12.12