Dobrý den,mám vytvořený dialog (*.dll ve Visual Studiu) propojený se součástí prostřednictvímiLogicu v Inventoru.Dialog slouží na editaci součásti.Lze do dialogu doplnit i možnost vybrat materiál součásti (ComboBox),nebo některé iVlastnosti?Poradíte mě jak?Dialog vytvořený v iLogicu má omezené možnosti použití.Děkuji Popelka

Udělat se to dá. Ale je to spíš na konzultaci, než na jednoduchou odpověď. Ale jedno minimalistické řešení je zde:[code]AddReference "System.Drawing.dll"Imports System.Windows.FormsSub Main   Dim part As PartDocument = ThisDoc.Document   Dim materialDlg As MaterialDialog = New MaterialDialog()   materialDlg.Part = part   materialDlg.ShowDialog()End SubPublic Class MaterialDialog   Inherits Form   Public Sub New()      InitializeComponent()   End Sub   Property Part As PartDocument      Get         Return _part      End Get      Set         _part = value         PopulateMaterialCombo()      End Set   End Property   Private Sub PopulateMaterialCombo()      ComboBox1.Items.Clear()      Dim app As Inventor.Application = Part.Parent      For Each material As MaterialAsset In app.ActiveMaterialLibrary.MaterialAssets         ComboBox1.Items.Add(material.DisplayName)      Next   End Sub   Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged      Dim app As Inventor.Application = Part.Parent      Dim material As MaterialAsset = app.ActiveMaterialLibrary.MaterialAssets(ComboBox1.SelectedItem.ToString())      Part.ActiveMaterial = material   End Sub      Friend WithEvents ComboBox1 As ComboBox   Private _part As PartDocument   Private Sub InitializeComponent()      Me.ComboBox1 = New System.Windows.Forms.ComboBox()      Me.SuspendLayout()      '      'ComboBox1      '      Me.ComboBox1.FormattingEnabled = True      Me.ComboBox1.Location = New System.Drawing.Point(12, 12)      Me.ComboBox1.Name = "ComboBox1"      Me.ComboBox1.Size = New System.Drawing.Size(121, 21)      Me.ComboBox1.TabIndex = 0      '      'MaterialDialog      '      Me.ClientSize = New System.Drawing.Size(284, 261)      Me.Controls.Add(Me.ComboBox1)      Me.Name = "MaterialDialog"      Me.ResumeLayout(False)   End SubEnd Class[/code]
Navara2020-11-04 00:36:46

Dobrý den,děkuji za tip...Zkouším to takto níže ,ale vyskakuje tato hláška.Poradíte mi co je špatně ?Děkuji Popelka...Imports System.Windows.FormsImports Autodesk.iLogic.InterfacesPublic Class Dialog1    Public SrazeniZavit As Double    Public MPrumer As Double    Public DelkaZavit As Double    Public SRazeniValec As Double    Public SPrumer As Double    Public DelkaValce As Double    Public ZaobleniUHlavy As Double    Public iLogicVB As ILowLevelSupport    Public iProperties As IiProperties    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click        SrazeniZavit = TextBox1.Text        MPrumer = TextBox2.Text        DelkaZavit = TextBox3.Text        SRazeniValec = TextBox4.Text        SPrumer = TextBox5.Text        DelkaValce = TextBox6.Text        ZaobleniUHlavy = TextBox7.Text        iProperties.Material = ComboBox1.Text        Me.DialogResult = System.Windows.Forms.DialogResult.OK        Me.Close()    End Sub    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel        Me.Close()    End Sub    Private Sub Dialog1_Load(sender As Object, e As EventArgs) Handles MyBase.Load        TextBox1.Text = SrazeniZavit        TextBox2.Text = MPrumer        TextBox3.Text = DelkaZavit        TextBox4.Text = SRazeniValec        TextBox5.Text = SPrumer        TextBox6.Text = DelkaValce        TextBox7.Text = ZaobleniUHlavy        ComboBox1.Text = iProperties.Material        For Each material In iProperties.Materials            ComboBox1.Items.Add(material)        Next    End Sub    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click    End Sub    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged        'iProperties.Value("Design Tracking Properties", "Material") = ComboBox1.Text        iProperties.Material = ComboBox1.Text        ILogicVB.DocumentUpdate()        Me.DialogResult = System.Windows.Forms.DialogResult.OK        Me.Close()    End SubEnd Class---------------------------------------------------------------------------------AddReference "iLogic Osazeny Šroub Dialog.dll"localTrigger = iTrigger0 Using dlg As New iLogic_Osazeny_Šroub_Dialog.Dialog1  dlg.SrazeniZavit = SrazeniZavit  dlg.MPrumer = MPrumer  dlg.DelkaZavit = DelkaZavit  dlg.SRazeniValec = SRazeniValec  dlg.SPrumer = SPrumer  dlg.DelkaValce = DelkaValce  dlg.ZaobleniUHlavy = ZaobleniUHlavy  dlg.iProperties = iProperties  Dim i As Integer = dlg.ShowDialog()  If i <> vbOK Then Return  SrazeniZavit =  dlg.SrazeniZavit  MPrumer =  dlg.MPrumer  DelkaZavit =  dlg.DelkaZavit  SRazeniValec =  dlg.SRazeniValec  SPrumer =  dlg.SPrumer  DelkaValce =  dlg.DelkaValce  ZaobleniUHlavy = dlg.ZaobleniUHlavy  End Using iLogicVb.UpdateWhenDone = True

Těžko říct. Ten kód pro Dialog1 je sice nekompletní, ale to nemusí být příčina, zbytek může být v jiném souboru.Bez toho, abych si to pustil nedokážu poradit. Takhle na první pohled to vypadá v pořádku.

Dobrý den,v Dialog1 je pouze ten kód.V součásti je v pravidle iLogic reference na dll soubor a automaticky vygenerovaný kód.Říkáte,že kód pro Dialog1 je nekompletní - možná je to ta příčina.....Popelka