Declare a variable that's going to hold the item ID that the user enters.
Type:
Dim itemid As String
Dim model As String
Create the input box that will prompt the user for an item ID and model type for the block.
itemid = InputBox$("Enter BLOCK item ID, please","Item ID Entry","")
model = InputBox$("Enter BLOCK model type, please (valid entries: 25,36,60,99)","Model Type Entry","")
Take the value of the itemid string variable and create a new block item with the itemid string variable as the new block item's ID.
Declare a new object of type prtitem. Put this statement with your other variable declarations:
Dim item As New prtItem
Add the code to add this new item to your schedule region.
item.regionid="SCHEDULE"
item.itemid=itemid
item.itemtypeid=model
item.regionloc=-1
item.exthold 0
item.groupid="MAIN"
item.inthold 0
'Add the item to PRT
item.Add
Compile your script.
Close the Edit Script window.
Close the Properties - Object dialog box.
|
|
