Rozdíly

Zde můžete vidět rozdíly mezi vybranou verzí a aktuální verzí dané stránky.

--- inventor:ilogic [2022/09/20 05:22] – Zdeněk Havlík
+++ inventor:ilogic [2025/01/09 13:27] (aktuální) – Zdeněk Havlík
@@ Řádek 1: / Řádek 1: @@
 ====== iLogic ======
+===== Form + save iproperties =====
+<file vbscript form_save_iprop.iLogicVb>
+'https://forums.autodesk.com/t5/inventor-programming-ilogic/change-iproperties-using-form/m-p/11307387#M140420
+Public Sub Main()
+	Dim oDrawDoc As DrawingDocument = ThisDoc.Document
+	Dim oName As String = "MyPart.ipt"
+	'//////// RUN THE FORM ////////
+	Dim oForm As New WinForm(iLogicVb.Automation, oDrawDoc)
+	oForm.ShowDialog()
+	iProperties.Value(oName, "Project", "Part Number") = oForm.NewPartNumber
+	oDrawDoc.Update
+End Sub
+Public Class WinForm
+	Inherits System.Windows.Forms.Form
+	Public Property oDrawDocint As DrawingDocument
+	Public Property oTextBox As New System.Windows.Forms.TextBox
+	'//////// CREATE NEW INSTANCE ////////
+	Public Sub New(ByVal Iinf As IiLogicAutomation,oDrawDoc As DrawingDocument)
+		oForm = Me
+		myIinf = Iinf
+		oDrawDocint = oDrawDoc
+		'//////// PARAMETERS FOR THE FORM ////////
+		With oForm
+			.FormBorderStyle = FormBorderStyle.FixedToolWindow
+			'.StartPosition = FormStartPosition.CenterScreen
+			.Width = 250
+			.Height = 300
+			.Font = oLargerFont
+		End With
+		'//////// CREATES THE BUTTON ////////
+		Dim oButton1 As New System.Windows.Forms.Button()
+		With oButton1
+			.Text = "ACTION"
+			.Top = ((oForm.Bottom - oForm.Top)/2) - (oButton1.Bottom - oButton1.Top)
+			.Left = (oForm.Width/2) - oButton1.Width +20
+			.Enabled = True
+			.AutoSize = True
+		End With
+		Dim oLbl As New System.Windows.Forms.Label
+		With oLbl
+			.Text = "MyPart"
+		    .Top = 20
+		    .Left = 20
+		    .Height = 40
+		End With
+		With oTextBox
+			.Text = "Part No."
+			.Top = 20
+			.Left = 120
+			.Width = 100
+			.Height = 25
+		End With
+		oLbl = oForm.Controls.Add(oLbl)
+		oForm.Controls.Add(oTextBox)
+		oForm.Controls.Add(oButton1)
+		AddHandler oButton1.Click, AddressOf oButton1_Click
+	End Sub
+  	Public Property NewPartNumber As String
+	Public Sub oButton1_Click(ByVal oSender As System.Object, ByVal oEventArgs As System.EventArgs)
+		NewPartNumber = oTextBox.Text
+		Me.Close()
+		' iProperties.Value(oName, "Project", "Part Number") = oTextBox.Text
+	End Sub
+End Class
+</file>
 ===== Polotovar =====