Parameter Value / Units

[Anonymous]

Hello Everybody,

My question concerns Parameters value. I have a drawing document with some rules, and in this document I placed different models. The unit of these models can be either "mm" or "inch", and also one model can change its units from "mm" to "inch". 

I am trying to get some parameter value of these models. Is there a way to get the value in one single unit for all models no matter what the model units are ?
For example, If the model units are in "mm" I want to get the value in "cm" and if the model units are in "inch" I want also to get the value in "cm".

Any help ?

Thanks in advance

[JhoelForshav]

Hi @Anonymous 

Can you describe in more detail how you obtain these parameters?

The Inventor.Parameter objects property Value will always be in database units (cm) no matter the documents units.

If you use the iLogic function Parameter.Value(docAndParamName As String) it will convert it however to the documents units however...

[Anonymous]

Hi @JhoelForshav,

 yes indeed i am using  iLogic function Parameter.Value(docAndParamName As String) to get values.
Could you advise about the other method ?

Thanks

[JhoelForshav · Accepted solution]

Hi @Anonymous 

You can get the Parameter object with iLogic function Parameter.Param

So in your case you should be able to just do this change:

'Change
Parameter.Value("docAndParamName")
'To
Parameter.Param("docAndParamName").Value

Then you'll get the value in cm units allways 🙂

[Anonymous]

Thank you @JhoelForshav 

[Rsilvers23]

I'm having an issue with the coding to do this...

I'm using iLogic to go thru an assembly and open any parts that match the keyword and then export them as Iges

Once the file opens, I want to get the parameters to use to set the file name.

Every time it gets to the parameter code it closes the open file and goes to the next component.

The excess messages is so I can track down where it stops.

Here is part of the code... Any help would be great!

Try
Dim sIGSname As String
Dim Ga As String		
Dim TubeSize As String
Dim TubeGA As Stringo
Part = oRefDoc
oPartName = oRefDoc.PropertySets.Item(3).Item("Stock Number").Value
oProjNo = oRefDoc.PropertySets.Item(3).Item("Project").Value
Fname = oProjNo
'Get parameter info for each tubing shape
Dim TubeShape As String
If oTubeStyle = "TUBELASER-OD"
MessageBox.Show("Code Check Point 3", "CP3")
TubeSize = Parameter.Param(oRefDoc, "TOD").Value
MessageBox.Show(TubeSize, "TubeSize")
TubeGA = Parameter.Param(oRefDoc, "TThk").Value
MessageBox.Show(TubeGA, "TubeGa")

ElseIf oTubeStyle = "TUBELASER-SQ"
MessageBox.Show("Code Check Point 4", "CP4")
TubeSize = Parameter.Param("TSH")
MessageBox.Show(TubeSize, "TubeSize")
TubeGA = Parameter.Param("TThk")
MessageBox.Show(TubeGA, "TubeGa")

ElseIf oTubeStyle = "TUBELASER-RECT"
MessageBox.Show("Code Check Point 5", "CP5")
TubeSizeW = Parameter.Param(oRefDoc, "TRH").Value
TubeSizeH = Parameter.Param(oRefDoc, "TRW").Value
MessageBox.Show(TubeSize, "TubeSize")
TubeGA = Parameter.Param(oRefDoc, "TThk").Value
MessageBox.Show(TubeGA, "TubeGa")

End If