05-04-2022
05:18 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
05-04-2022
05:18 AM
Hello all!
thx for everything - but i have the solution
Dim oDoc As AssemblyDocument
oDoc = ThisApplication.ActiveDocument
Dim oOcc As ComponentOccurrence
For Each oOcc In oDoc.ComponentDefinition.Occurrences
oPartDoc = oOcc.Definition.Document
Try
'try to get the value of the parameter
Dim sName As String
sName = "G_L"
oValue = oPartDoc.ComponentDefinition.Parameters.Item(sName).Value
'i = MessageBox.Show(oValue, "Mein iLogic-Dialogfeld", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1)
p = oPartDoc.ComponentDefinition.Parameters.UserParameters.Item(sName)
oPartDoc.ComponentDefinition.BOMQuantity.SetBaseQuantity(BOMQuantityTypeEnum.kParameterBOMQuantity, p)
Catch
End Try
Next
Thx for everything
Tom