Видео урок по созданию детали чертежа INVENTOR, имеющей табличные значения размеровhttp://youtu.be/dqMwiP5RBQ8
текст к уроку будет выложен позже
текстдля вычисления массы параметрических деталей, взят с форума AUTODESK
http://forums.autodesk.com/t5/Autodesk-Inventor-%D0%A0%D1%83%D1%81%D1%81%D0%BA%D0%B8%D0%B9/iParts-Weights/m-p/2837207/highlight/true#M217
текстдля вычисления массы параметрических деталей, взят с форума AUTODESK
http://forums.autodesk.com/t5/Autodesk-Inventor-%D0%A0%D1%83%D1%81%D1%81%D0%BA%D0%B8%D0%B9/iParts-Weights/m-p/2837207/highlight/true#M217
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
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
Хороший урок. Думаю мне пригодится.
ОтветитьУдалитьВот только вопрос по макросу расчета массы: где взять его текст и нельзя ли эту операцию выполнить вручную?