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

Thanks, that works... i have a strange problem now tough...

 

i try to write some iproperties to my labels in the form.. this is the code:

 

 

   Private Sub m_userinputevent_OnSelect(JustSelectedEntities As ObjectsEnumerator, ByRef MoreSelectedEntities As ObjectCollection, SelectionDevice As SelectionDeviceEnum, ModelPosition As Point, ViewPosition As Point2d, View As View) Handles m_userinputevent.OnSelect
            If JustSelectedEntities.Count = 1 Then
                oForm.Auswahl.Visible = True

                For Each objEntity As Object In JustSelectedEntities
                    If TypeOf objEntity Is ComponentOccurrence Then
                        'Do whatever you need
                        Dim cmp As ComponentOccurrence = objEntity

                        oForm.AW_Bauteilnummer.Text = cmp.Definition.Document.PropertySets.Item("Design Tracking Properties").Item("Part Number").Value
                        Try
                            oForm.AW_ERP_Nummer.Text = cmp.Definition.Document.PropertySets.Item("Inventor User Defined Properties").Item("ERP_Nummer").Value
                        Catch
                            oForm.AW_ERP_Nummer.Text = ""
                        End Try
                        oForm.AW_Beschreibung.Text = cmp.Definition.Document.PropertySets.Item("Design Tracking Properties").Item("Description").Value
                        Try
                            oForm.AW_Nachbearbeitung.Text = cmp.Definition.Document.PropertySets.Item("Inventor User Defined Properties").Item("tan_Nachbearbeitung").Value
                        Catch
                            oForm.AW_Nachbearbeitung.Text = ""
                        End Try
                        Try
                            oForm.AW_Biegeteil.Text = cmp.Definition.Document.PropertySets.Item("Inventor User Defined Properties").Item("tan_Biegeteil").Value
                        Catch
                            oForm.AW_Biegeteil.Text = ""
                        End Try
                        Try
                            oForm.AW_Schweißbaugruppe.Text = cmp.Definition.Document.PropertySets.Item("Inventor User Defined Properties").Item("wec_Schweißbaugruppe").Value
                        Catch
                            oForm.AW_Schweißbaugruppe.Text = ""
                        End Try

                    End If
                Next
            Else
                oForm.Auswahl.Visible = False
            End If

 

Try catch is used since older files dont have these custom properties.

 

The properties do exist in the file:

 

 

2018-03-20_13h30_19.png

 

but if i click the IPT in my assembly only a few of the fields get filled in. why?

 

 

2018-03-20_14h09_22.png

 

Moreover, if I edit the "biegeteil" value to "True", it still reads false, until i close and reopen the file.. no matter if I un select and reselect it.. is there a way to force it to re load the file with current data? 

 

All i want to do is display those values of the selected file.

 

Thank you