Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy Arkance Systems [www.cadforum.cz]
CZ | SK | EN | DE
Přihlášení
či registrace
   právě nás čte: 9516 
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

 

NápovědaCAD diskuze, rady, výměna zkušeností

 
CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion 360, 3ds Max a s dalšími CAD aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy Arkance Systems (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.cadstudio.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenoiLogic Dialog dll

 Odpovědět Odpovědět archiv
Autor
PopelkaM Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 05.čvc.2010
Lokalita: ČR (PA)
Používám:
Inventor 2023
Stav: Offline
Bodů: 102
Přímý odkaz na tuto zprávu Téma: iLogic Dialog dll
    Zasláno: 03.lis.2020 v 06:48
Dobrý den,mám vytvořený dialog (*.dll ve Visual Studiu) propojený se součástí prostřednictvím
iLogicu 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 PopelkaSmile
Zpět nahoru
Navara Zobrazit panel
Arkance Systems support
Arkance Systems support
Avatar
Arkance Systems

Přihlášen: 08.zář.2008
Lokalita: ČR (Pha)
Používám:
Inventor
Stav: Offline
Bodů: 1636
Přímý odkaz na tuto zprávu Zasláno: 04.lis.2020 v 00:27
Udělat se to dá. Smile
Ale je to spíš na konzultaci, než na jednoduchou odpověď. Ale jedno minimalistické řešení je zde:

AddReference "System.Drawing.dll"
Imports System.Windows.Forms


Sub Main

   Dim part As PartDocument = ThisDoc.Document
   Dim materialDlg As MaterialDialog = New MaterialDialog()
   materialDlg.Part = part
   materialDlg.ShowDialog()

End Sub

Public 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 Sub

End Class




Upravil Navara - 04.lis.2020 v 00:36
Zpět nahoru
PopelkaM Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 05.čvc.2010
Lokalita: ČR (PA)
Používám:
Inventor 2023
Stav: Offline
Bodů: 102
Přímý odkaz na tuto zprávu Zasláno: 09.lis.2020 v 06:15
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



Připojené náhledyPřihlaste se pro zobrazení plné verze - 26140/Chybová_hláška.PNG

...

Imports System.Windows.Forms
Imports Autodesk.iLogic.Interfaces

Public 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 Sub
End 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


Zpět nahoru
Navara Zobrazit panel
Arkance Systems support
Arkance Systems support
Avatar
Arkance Systems

Přihlášen: 08.zář.2008
Lokalita: ČR (Pha)
Používám:
Inventor
Stav: Offline
Bodů: 1636
Přímý odkaz na tuto zprávu Zasláno: 09.lis.2020 v 09:23
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.

Zpět nahoru
PopelkaM Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 05.čvc.2010
Lokalita: ČR (PA)
Používám:
Inventor 2023
Stav: Offline
Bodů: 102
Přímý odkaz na tuto zprávu Zasláno: 09.lis.2020 v 10:47
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



Připojené náhledyPřihlaste se pro zobrazení plné verze - 26140/iLogic_Osazeny_Šroub_Dialog.PNG

Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 11429:Bezpečnostní nastavení spouštění iLogic pravidel.
Tip 656:VIPChyba: soubor ac1st15.dll nenalezen (nebo acge16.dll)
Tip 12285:VIPChyba: LoadLibrary failed with error 1114.
Tip 7338:VIPChyba "Could not load plcfmgr.dll".
Tip 12596:VIPHromadné nastavení viditelnosti komponent dle názvu (iLogic).
Tip 12246:VIPHromadné vypnutí viditelnosti součástí sestavy dle velikosti (hmotnost, objem) nebo názvu (iLogic)


 Odpovědět Odpovědět

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 1,117 sekund.