-
Сейчас на странице 0 пользователей
Нет пользователей, просматривающих эту страницу.
-
Сообщения
-
Автор: Chuvak · Опубликовано:
@malvi.dp Согласен @nahaus Попробуйте данный код: Option Explicit Sub main() Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swDrawing As SldWorks.DrawingDoc Dim swSheet As SldWorks.Sheet Dim fullPathFile As String Dim nameFileExtension As String Dim nameFileWithoutExtension As String Dim propM() As Double Dim propN As String Dim n As Byte Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Set swDrawing = swModel 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 = swDrawing.GetCurrentSheet propN = "" propM = swSheet.GetProperties2 For n = LBound(propM) To UBound(propM) propN = propN & propM(n) & Chr(10) ' Debug.Print propN Next n ' swApp.SendMsgToUser2 swSheet.GetName, swMbWarning, swMbOk swApp.SendMsgToUser2 propN, swMbInformation, swMbOk End Sub -
Автор: malvi.dp · Опубликовано:
Дело в том, что"swSheet.GetProperties2" это массив св-в и прежде чем их отобразить, нужно его записать, допустим, в текстовую переменную через цикл как-то так -
Автор: realasd · Опубликовано:
Здравствуйте. Нужен документ LR34-040-R2 " osp-p3000s/p300l руководство к обслуживанию". Поможете? -
Автор: Chuvak · Опубликовано:
@nahaus Ок, сейчас проверю у себя У Вас не объявлены переменные fullPathFile и nameFileExtension Переменная sheetProperties вообще лишняя, не используется, а тип данных имеет самый жористый) Извините конечно за прямоту, но ваш код - полное УГ ) Может я могу вам помочь, только Вы объясните, что Вы хотите с помощью этого кода получить в результате ? -
-
Автор: nahaus · Опубликовано:
Выскакивает ошибка Она же выскакивает и без параметра в скобках. -
Автор: Chuvak · Опубликовано:
@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 дальше примеры приводить не буду, думаю поняли логику -
-
Автор: Kelny · Опубликовано:
Модельку забыли положить. И не указали версию программы и сервиспака. -
Автор: nahaus · Опубликовано:
Подскажите пожалуйста как получить размеры листа с помощью метода 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
-
Рекомендованные сообщения