Добавление массы для каждого члена iPart

[Bot 34]

Задача: добавить массу для каждого члена iPart.

Для этого вставьте следующий скрипт в проект приложения VBA:

Public Sub AddMassToIPart()
    Dim oDoc As PartDocument
    Set oDoc = ThisApplication.ActiveDocument
   
    oDoc.UnitsOfMeasure.MassUnits = kKilogramMassUnits
   
    Dim oFactory As iPartFactory
    Set oFactory = oDoc.ComponentDefinition.iPartFactory
   
    ' чтобы редактировать точность измерения массы, измените цифру 3 (количество знаков после запятой) на нужное вам значение
    ' если нужно убрать единицы измерения, сотрите & "кг" в последней строке
    For i = 1 To oFactory.TableRows.Count
        oFactory.DefaultRow = oFactory.TableRows(i)
        oDoc.Update2 (True)
        oFactory.TableRows(i)(oFactory.TableColumns.Count).Value = Math.Round(oDoc.ComponentDefinition.MassProperties.Mass, 3) & " кг"
    Next

End Sub

Видео, как использовать данный макрос:

(измените разрешение на 720 HD для лучшего качества)

Коментарии и пожелания по улучшения макроса, пожалуйста отправляйте в следующей ветке форума:

http://forums.autodesk.com/t5/Autodesk-Inventor/iParts-Weights/td-p/2837207

 

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