Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже.
Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.
Подскажите пожалуйста как получить размеры листа с помощью метода GetProperties2?
Пытаюсь получить сообщение. Что не так в строке swApp.SendMsgToUser2 swSheet.GetProperties2, swMbWarning, swMbOk
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim lErrors As Long
Dim lWarnings As Long
Dim swSheet As SldWorks.Sheet
Dim swDrawing As SldWorks.DrawingDoc
Dim sheetProperties As Variant
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
fullPathFile = swModel.GetPathName
' swApp.SendMsgToUser2 fullPathFile, swMbWarning, swMbOk
nameFileExtension = Mid(swModel.GetPathName, InStrRev(swModel.GetPathName, "\") + 1)
' swApp.SendMsgToUser2 nameFileExtension, swMbWarning, swMbOk
nameFileWithoutExtension = Left(nameFileExtension, InStrRev(nameFileExtension, ".") - 1)
' swApp.SendMsgToUser2 nameFileWithoutExtension, swMbWarning, swMbOk
Set swSheet = swModel.GetCurrentSheet
' swApp.SendMsgToUser2 swSheet.GetName, swMbWarning, swMbOk
swApp.SendMsgToUser2 swSheet.GetProperties2, swMbWarning, swMbOk
End Sub
Да, важна координата X. Если резьба с допуском, 6H допустим, лучше брать d1 из ГОСТа или просто из наружного диаметра резьбы вычесть две глубины, так меньше шанс провалить. А уже потом уменьшать X по 0,05 мм.
Потому что расчетная глубина резьбы не учитывает радиус скругления на резьбовой пластине. Поэтому на практике всегда глубже нужно делать резьбу, подгонять.
У вас случайно не один привод на две оси стола, как это бывает у расточных станков?
Инструкция имеется на станок?
Там возможно описана процедура для этих двух осей.
Про параметр MD 1011 [Bit 10] читали?
Спасибо за определение глубины резьбы! (в самом ГОСТ его нет)
Тогда с учетом формулы :
получается что высота резбы равна 5/8H или 0,541*шаг резьбы
теперь понятно откуда берется этот коэффициент.
С другой стороны @alex0800 в своей программе написал на практике значение 920, если считать по формуле - должно быть 812
Жалко что он не указал какой резец использует - тогда можно было бы посмотреть поподробнее.
Собственно тогда получается такой вопрос - если после нарезания внешней резьбы на болт на него не наворачивается гайка - то надо X опустить - или надо увеличенную глубину резьбы поставить ?
Т.е. например написал программу
G76 P011060 Q50 R0.1
G76 X34.16 Z-34 R0 P812 Q300 F1.5
допустим гайка не наворачивается
в этом случае надо вместо P812 написать P920 ?
или вместо X34.16 написать X34.08 ?
P.S.
Если смотреть ГОСТ 24705-2004 то для резьбы М36 шаг 1,5 указан "внутренний диаметр по дну впадины d3" = 34,160
Этот курс я тоже купил :)
Собственно пока у меня сложилось впечатление что токарные программы надо писать в G кодах, потому что , например ту же резьбу через G1 не нарежешь потому что надо знать угловое положение шпинделя - а его знает только станок.
Для фрезера (IMHO) заморачиваться вообще ненадо и надо использовать CAM
Пытаюсь пробовать в Solidcam токарку ( только начал) и при выводе УП там вроде бы можно поставить галку чтобы выводил токарные циклы - но пока не освоил/не проверял.
Соответственно необходимо значть все токарные циклы если ты работаешь на токарном станке (не факт что CAM сможет сформировать УП с использованием токарных циклов твоей стойки).
Шаг влево/вправо чреват в лучшем случае поломкой резца, а в худшем поломкой станка
Рекомендованные сообщения
Присоединяйтесь к обсуждению
Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.