Перейти к публикации

Обновите ваш AutoCAD Revit Suite со скидкой до 40%


Рекомендованные сообщения

До 18 апреля приобретая в ГК «ИНФАРС» обновление до Autodesk Building Design Suite комплектации Premium, вы получаете три продукта Autodesk Revit, AutoCAD, 3ds Max и ряд других продуктов в составе Программного комплекса. Подробности акцииДо 18 апреля вы можете обновить AutoCAD Revit Architecture Suite, AutoCAD Revit Structure Suite или AutoCAD Revit MEP Suite до современного программного комплекса Autodesk Building Design Suite комплектации Premium со скидкой до 40% при приобретении с Подпиской и со скидкой до 30% при приобретении без Подписки. *Скидка рассчитывается от рекомендованной Autodesk розничной цены. Скидка распространяется только на обновление с 2008-2013 версий участвующих в акции продуктов. Срок действия акции: с 7 февраля до 18 апреля 2013 г. Autodesk Building Design Suite — это решение [...]

]]>Читать дальше]]>

Ссылка на сообщение
Поделиться на других сайтах


  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.




  • Сообщения

    • clavr
      у вас для 3 и 4 мм указаны в первой таблице другие радиусы чем во второй. приведите в соответствие
    • 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 дальше примеры приводить не  буду, думаю поняли логику
    • hlibhlib
      Он на Гоблинском в Исходнике.
    • 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  
    • mannul
      Да, важна координата X. Если резьба с допуском, 6H допустим, лучше брать d1 из ГОСТа или просто из наружного диаметра резьбы вычесть две глубины, так меньше шанс провалить. А уже потом уменьшать X по 0,05 мм.
    • mannul
      Потому что расчетная глубина резьбы не учитывает радиус скругления на резьбовой пластине. Поэтому на практике всегда глубже нужно делать резьбу, подгонять.
    • Guhl
      У вас случайно не один привод на две оси стола, как это бывает у расточных станков? Инструкция имеется на станок? Там возможно описана процедура для этих двух осей. Про параметр  MD 1011 [Bit 10] читали?    
    • Killerchik
×
×
  • Создать...