@nahaus Потому что метод GetProperties2 возвращает массив свойств листа, состоящий из 8 переменных типа double:
[ paperSize, templateIn, scale1, scale2, firstAngle, width, height, sameCustomProp ]
Вам какие именно переменные из данного массива нужны: paperSize, width или height ? Или все сразу. Тогда переделайте строку:
swApp.SendMsgToUser2 swSheet.GetProperties2, swMbWarning, swMbOk
на
swApp.SendMsgToUser2 swSheet.GetProperties2(0), swMbWarning, swMbOk
или
swApp.SendMsgToUser2 swSheet.GetProperties2(5), swMbWarning, swMbOk
дальше примеры приводить не буду, думаю поняли логику
Подскажите пожалуйста как получить размеры листа с помощью метода 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] читали?
Рекомендованные сообщения