Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
tcaG6GZK
in reply to: tcaG6GZK

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