topic Re: Error when divide properties in Inventor Programming Forum

Error when divide properties

Neuzzo — Tue, 15 Nov 2022 12:16:10 GMT

Hi, i try to divide the total area of flat sheet to convert mm3 to m3

How i can solve?

Thank you

If ThisApplication.ActiveDocumentType <> DocumentTypeEnum.kPartDocumentObject And _ ThisApplication.ActiveDocument.PropertySets.Item("Design Tracking Properties").Item("Document SubType Name").Value <> "Sheet Metal" Then MsgBox("This rule only works for Sheet Metal Part documents. Exiting.", vbOKOnly, " ") Exit Sub End If Dim oDTProps As PropertySet = ThisApplication.ActiveDocument.PropertySets.Item("Design Tracking Properties") Dim oSMW As String = oDTProps.Item("Sheet Metal Width").Value Dim oSML As String = oDTProps.Item("Sheet Metal Length").Value oSMA = oDTProps.Item("Sheet Metal Area").Value / 1000 Dim Mass As String 'If iProperties.Material = "801171 AISI 304 sp.1 2B" ' Mass = (oSMA MsgBox("Sheet Metal Width = " & oSMW & vbCrLf & _ "Sheet Metal Length = " & oSML & vbCrLf & _ "Sheet Metal Area = " & oSMA, vbOKOnly, "SHEET METAL SIZE")

Re: Error when divide properties

tyler.warner — Tue, 15 Nov 2022 14:05:49 GMT

Use the Double type instead of String type for your parameters since the values are decimals.

Dim oSMW As Double = oDTProps.Item("Sheet Metal Width").Value Dim oSML As Double = oDTProps.Item("Sheet Metal Length").Value Dim oSMA As Double = oDTProps.Item("Sheet Metal Area").Value / 1000

There are also cleaner ways of converting units by using the built in UnitsOfMeasure.ConvertUnits function. You can find many examples in the documentation or within the forums .

Re: Error when divide properties

Neuzzo — Tue, 15 Nov 2022 14:14:14 GMT

Same error...

If ThisApplication.ActiveDocumentType <> DocumentTypeEnum.kPartDocumentObject And _ ThisApplication.ActiveDocument.PropertySets.Item("Design Tracking Properties").Item("Document SubType Name").Value <> "Sheet Metal" Then MsgBox("This rule only works for Sheet Metal Part documents. Exiting.", vbOKOnly, " ") Exit Sub End If Dim oDTProps As PropertySet = ThisApplication.ActiveDocument.PropertySets.Item("Design Tracking Properties") Dim oSMW As Double = oDTProps.Item("Sheet Metal Width").Value Dim oSML As Double = oDTProps.Item("Sheet Metal Length").Value Dim oSMA As Double = oDTProps.Item("Sheet Metal Area").Value / 1000 Dim Mass As String 'If iProperties.Material = "801171 AISI 304 sp.1 2B" ' Mass = (oSMA MsgBox("Sheet Metal Width = " & oSMW & vbCrLf & _ "Sheet Metal Length = " & oSML & vbCrLf & _ "Sheet Metal Area = " & oSMA, vbOKOnly, "SHEET METAL SIZE")

Re: Error when divide properties

tyler.warner — Tue, 15 Nov 2022 14:20:51 GMT

What are "Sheet Metal Width", etc? Are those user parameters or custom iProperties?

Re: Error when divide properties

Neuzzo — Tue, 15 Nov 2022 14:40:19 GMT

Really don't know 😐

Re: Error when divide properties

tyler.warner — Tue, 15 Nov 2022 14:43:41 GMT

Can you provide a sample part file?

Re: Error when divide properties

Neuzzo — Tue, 15 Nov 2022 15:03:27 GMT

Yes. Here the sheet metal

Re: Error when divide properties

tyler.warner — Tue, 15 Nov 2022 15:54:25 GMT

Try something like this:

Sub Main Dim oDocument As Document = ThisApplication.ActiveDocument If oDocument.DocumentType <> DocumentTypeEnum.kPartDocumentObject Then MsgBox("The open file is not a part file. The command has been cancelled.") Exit Sub End If Dim oPartDocument As PartDocument = oDocument If oPartDocument.SubType <> "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then MsgBox("This is not a sheet metal part. The command has been cancelled.") Exit Sub End If Dim oComponentDefinition As SheetMetalComponentDefinition = oPartDocument.ComponentDefinition Dim oFlatPattern As FlatPattern = oComponentDefinition.FlatPattern Dim oUOM As UnitsOfMeasure = oPartDocument.UnitsOfMeasure Dim oSMW As Double = oUOM.ConvertUnits(oFlatPattern.Width, UnitsTypeEnum.kDatabaseLengthUnits, UnitsTypeEnum.kMillimeterLengthUnits) 'Database unit is cm MsgBox("Width (mm): " & oSMW) Dim oSML As Double = oUOM.ConvertUnits(oFlatPattern.Length, UnitsTypeEnum.kDatabaseLengthUnits, UnitsTypeEnum.kMillimeterLengthUnits) 'Database unit is cm MsgBox("Length (mm): " & oSML) Dim oSMA As Double = oSMW * oSML MsgBox("Area (mm): " & oSMA) End Sub

Re: Error when divide properties

WCrihfield — Tue, 15 Nov 2022 16:11:31 GMT

Hi guys. Those were standard iProperties that are present in all Inventor documents, but obviously only used in sheet metal parts. There are actually two different series of similar standard iProperties for similar purposes, and both are in the same PropertySet. Item(44) is "Flat Pattern Width" with PropID = 63. Item(45) is "Flat Pattern Length", with PropId = 64. Item(46) is "Flat Pattern Area", with PropId = 65. And you already know about the 3 starting with "Sheet Metal ...", but all of those are ReadOnly, and should all return Double data type, but all iProperty.Value is defined as Object, so it is always best to set the value of a variable of the expected data type, before attempting to do things like math with an expected Double, because the Value is not yet recognized as a Double until it is assigned to a Double type variable. I believe one of these sets is supposed to return document units, while the other returns database units. The iLogic shortcut snippets (SheetMetal.FlatExtentsWidth) actually access these iProperties behind the scenes.

Re: Error when divide properties

Neuzzo — Wed, 16 Nov 2022 07:00:15 GMT

Work like a charm. Thank you