Inventor Customization

Inventor Customization

Reply
Active Contributor
tclayton
Posts: 26
Registered: ‎10-10-2009
Message 1 of 5 (274 Views)
Accepted Solution

Convert model parameter to reference parameter

274 Views, 4 Replies
10-02-2012 07:52 PM

I need to convert a model parameter to a reference parameter thru the API.

I saw this item discussed in the group before, but I cant find the thread.

Can anyone help me out?

Excellent answer, thank you

*Pro
jletcher
Posts: 1,971
Registered: ‎05-18-2011
Message 2 of 5 (259 Views)

Re: Convert model parameter to reference parameter

10-03-2012 11:37 AM in reply to: tclayton
Property Driven() As VARIANT_BOOL

 


Please mark this response as "Accept as Solution" if it answers your question.

James Letcher
2012 Factory Design Suite ( will not load 2013)
What happen to my Inventor :-(
Active Contributor
tclayton
Posts: 26
Registered: ‎10-10-2009
Message 3 of 5 (244 Views)

Re: Convert model parameter to reference parameter

10-04-2012 08:29 PM in reply to: jletcher

Sorry, I didn't get that answer.

Has anyone put the " ModelParameter.Convert to Reference Parameter" Method? 

ADN Support Specialist
Vladimir.Ananyev
Posts: 477
Registered: ‎08-14-2012
Message 4 of 5 (219 Views)

Re: Convert model parameter to reference parameter

10-11-2012 12:16 AM in reply to: tclayton

ConvertToReferenceParameter method works fine but not for built-in model parameters. See help.   If you create model parameter programmatically then you are free to call this method. Try the following VBA sample.

 

Private Sub Model2Refs_1()

  Dim oDef As PartComponentDefinition
  Set oDef = ThisApplication.ActiveDocument.ComponentDefinition
  
  Dim oPars As Parameters
  Set oPars = oDef.Parameters
  
  Dim oModelPars As ModelParameters
  Set oModelPars = oPars.ModelParameters
  
  Dim oModelPar As ModelParameter
  'create model parameter (not built-in)
  Set oModelPar = oModelPars.AddByExpression("333 mm", "mm", "NonBuiltIn")
  
  'change its type to reference
  Call oModelPar.ConvertToReferenceParameter
  
End Sub

 

You may control Boolean Driven property of dimension constraints. Create new part with the rectangle on the first sketch + create pair of dimensions (so you will get pair of model parameters). The following VBA code convert parameter which controls the first dimension constraint to reference type.

Private Sub Model2Refs_2()
  
  Dim oDoc As PartDocument
  Set oDoc = ThisApplication.ActiveDocument
  
  Dim oDef As PartComponentDefinition
  Set oDef = oDoc.ComponentDefinition
  
  Dim oSketch As PlanarSketch
  Set oSketch = oDef.Sketches.Item(1)
  
  Dim oDims As DimensionConstraints
  Set oDims = oSketch.DimensionConstraints
  
  Dim oDim As TwoPointDistanceDimConstraint
  Set oDim = oDims.Item(1)
  
  oDim.Driven = True
  
End Sub

 

Hope the idea is clear.

Cheers,


Vladimir Ananyev
Developer Technical Services
Autodesk Developer Network

Active Contributor
tclayton
Posts: 26
Registered: ‎10-10-2009
Message 5 of 5 (214 Views)

Re: Convert model parameter to reference parameter

10-11-2012 06:51 AM in reply to: Vladimir.Ananyev

Excellent answer, thank you

Announcements
Are you familiar with the Autodesk Expert Elites? The Expert Elite program is made up of customers that help other customers by sharing knowledge and exemplifying an engaging style of collaboration. To learn more, please visit our Expert Elite website.
Need installation help?

Start with some of our most frequented solutions or visit the Installation and Licensing Forum to get help installing your software.