'From https://www.cadlinecommunity.co.uk/hc/admin/articles/203069922
Try
	'oHoldingPositionName = InputBox("Specify the    N A M E    of the new iProperty", "Cadline Community - iProperty Name", "New")
	oValue = InputBox("Specify the    V A L U E    of the new iProperty", "Cadline Community - iProperty Value", "1")
	'iProperties.Value("Custom", oHoldingPositionName) = oValue
	'iProperties.Value("Custom", "POLOTOVAR") = oValue
	iProperties.Value(ThisDrawing.ModelDocument.DisplayName,"Custom", "POLOTOVAR") = oValue
Catch
 
End Try

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)