Перейти к публикации
  • Сейчас на странице   1 пользователь

    • Artas28



  • Сообщения

    • SiMuX
    • Artas28
      Когда копирую траекторию (объект - преобразование - зеркальное отображение) то в зеркальной траектории получается встречное фрезерование. Можно как нибудь быстро в отзеркаленной траектории сделать попутное резание?
    • clavr
      не допечаталось предыдущее сообщение. заметине атрибут ячеек с общего на числовой
    • Dima93
      Надо перевести фищические величины теплопроводность, теплоемкость, коэффициенты теплоотдачи, тепловой поток, давление, плотность и т.д. из системы СИ в систему, где расстояние измеряется в мм, масса в г,  время в мс.   Есть ли простой и удобный калькулятор (конвертер)?
    • 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 вообще лишняя, не используется, а тип данных имеет самый жористый) Извините конечно за прямоту, но ваш код - полное УГ ) Может я могу вам помочь, только Вы объясните, что Вы хотите с помощью этого кода получить в результате ?
    • clavr
      у вас для 3 и 4 мм указаны
    • nahaus
      Выскакивает ошибка  Она же выскакивает и без параметра в скобках.
×
×
  • Создать...