Link parameter from one part to another part
Hey
The PropertySetExists is in the API help
Nacho
Automation & Design Engineer
Inventor automation Programmer (C#, VB.Net / iLogic)
Furniture, Sheet Metal, Structural, Metal fab, Tradeshow, Fabrication, CNC
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Hey
check this link
from 2011 onward, you can use PartComponentDefinition.IsContentMember which is a boolean member. you could access like This
Dim oAsmDoc As AssemblyDocument = ThisApplication.ActiveDocument
Dim oAsmDef As AssemblyComponentDefinition = oAsmDoc.ComponentDefinition
Dim oLeafOccs As ComponentOccurrencesEnumerator = oAsmDef.Occurrences.AllLeafOccurrences
For Each oOcc As ComponentOccurrence in oLeafOccs
Dim oDoc As PartDocument = oOcc.Document
Dim oDef As PartComponentDefinition = oDoc.Definition
Dim IsCC As Boolean = oDef.IsContentMember
Select Case IsCC
Case True
'Do something here because its a CC part
Case Else
'Do something else because its not a CC part
End Select
Next
Nacho
Automation & Design Engineer
Inventor automation Programmer (C#, VB.Net / iLogic)
Furniture, Sheet Metal, Structural, Metal fab, Tradeshow, Fabrication, CNC
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
This sample can link the parameter from Part1 to Part2.
part1.ipt: has two userparameters，named “Dia” and "height"
part2.ipt, has two userparameters，named “Dia01” and "height01"
run the code link the part1's parameter to part2, and set the
Dia01=Dia
height01=height
Before Running code,the part1
Before running code ,the part2
and After run the code in the part2, the part2 change to as below
Dim oDoc As PartDocument
Dim oRefDoc As PartDocument
oDoc = ThisApplication.ActiveDocument
oRefDoc = ThisApplication.Documents.Open("C:\test\Part1.ipt",False)
Dim oDocDef As PartComponentDefinition
Dim oRefDocDef As PartComponentDefinition
oDocDef = oDoc.ComponentDefinition
oRefDocDef = oRefDoc.ComponentDefinition
Dim oDocDerivedPara As DerivedParameter
Dim oDocDerivedParaTable As DerivedParameterTable
Dim oParamsToLink As ObjectCollection
oParamsToLink = ThisApplication.TransientObjects.CreateObjectCollection
For Each oUserPara As UserParameter In oRefDocDef.Parameters.UserParameters
oParamsToLink.Add(oUserPara)
Next
oDocDerivedParaTable = oDocDef.Parameters.DerivedParameterTables.Add2("C:\test\Part1.ipt", oParamsToLink)
oParamsToLink.Clear
oRefDoc.Close
oDocDerivedPara=oDocDerivedParaTable.DerivedParameters.Item("Dia")
Dim oPara As UserParameter
oPara = oDocDef.Parameters.UserParameters.Item("Dia01")
oPara.Expression = oDocDerivedPara.Name
oDocDerivedPara = oDocDerivedParaTable.DerivedParameters.Item("height")
oPara = oDocDef.Parameters.UserParameters.Item("height01")
oPara.Expression = oDocDerivedPara.Name
oDoc.Update
and after u change the Part1's parameter ,the part2 will change either.
change the Dia=100mm
height=20mm
and then open the part2, and update;
