Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже.
Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.
@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 мм.
Потому что расчетная глубина резьбы не учитывает радиус скругления на резьбовой пластине. Поэтому на практике всегда глубже нужно делать резьбу, подгонять.
Рекомендованные сообщения
Присоединяйтесь к обсуждению
Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.