If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then
	MessageBox.Show("Prosím, spustě toto pravidlo nad VÝKRESem", "iLogic")
	Exit Sub
End If

'MessageBox.Show("Bylo spuštěno nad výkresem, DĚKUJI", "iLogic")

Try
	oValue = InputBox("Zadej polotovar", "AUTOMA - polotovar", iProperties.Value(ThisDrawing.ModelDocument.DisplayName,"Custom", "POLOTOVAR"))
	iProperties.Value(ThisDrawing.ModelDocument.DisplayName, "Custom", "POLOTOVAR") = oValue
	ThisDoc.Document.Update
Catch

End Try

'Dim oDrawDoc As DrawingDocument = ThisApplication.ActiveDocument
'Dim oDrawParams As UserParameters = oDrawDoc.Parameters.UserParameters

'Dim TestParam As UserParameter = oDrawParams.AddByValue("TestParam", "InitialValue", UnitsTypeEnum.kTextUnits)