iLogic: Copy iProperties from .idw to .ipt/.iam replaces empty dates w 1/1/1601
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hello - I have created a form and rule that allows me to edit properties in the drawing and push them back to the model. It works great, except if some of my date fields are empty - the blanks are replaced with 01/01/2016.
How can I fix this?
Here is my code:
If (ThisDrawing.ModelDocument Is Nothing) Then Return
' Get referenced model
oModelName = IO.Path.GetFileName(ThisDrawing.ModelDocument.FullFileName)
'MessageBox.Show(oModelName, "Title")
'send properties to model from drawing
'Part Number
iProperties.Value(oModelName, "Project", "Part Number") = iProperties.Value("Project", "Part Number")
'Description
iProperties.Value(oModelName, "Project", "Description") = iProperties.Value("Project", "Description")
'Designer
iProperties.Value(oModelName, "Project", "Designer") = iProperties.Value("Project", "Designer")
'Creation Date
iProperties.Value(oModelName, "Project", "Creation Date") = iProperties.Value("Project", "Creation Date")
'Checked Date
iProperties.Value(oModelName, "Status", "Checked Date") = iProperties.Value("Status", "Checked Date")
'Checked By
iProperties.Value(oModelName, "Status", "Checked By") = iProperties.Value("Status", "Checked By")
'Eng. Approved Date
iProperties.Value(oModelName, "Status", "Eng. Approved Date") = iProperties.Value("Status", "Eng. Approved Date")
'Eng. Approved By
iProperties.Value(oModelName, "Status", "Eng. Approved By") = iProperties.Value("Status", "Eng. Approved By")
'Mfg. Approved Date
iProperties.Value(oModelName, "Status", "Mfg. Approved Date") = iProperties.Value("Status", "Mfg. Approved Date")
'Mfg. Approved By
iProperties.Value(oModelName, "Status", "Mfg. Approved By") = iProperties.Value("Status", "Mfg. Approved By")
'Revision Description
iProperties.Value(oModelName, "Summary", "Comments") = iProperties.Value("Summary", "Comments")
'Rev Date
iProperties.Value(oModelName, "Custom", "Rev Date") = iProperties.Value("Custom", "Rev Date")
'Rev Drawn By
iProperties.Value(oModelName, "Custom", "Rev Drawn By") = iProperties.Value("Custom", "Rev Drawn By")
'Rev Checked By
iProperties.Value(oModelName, "Custom", "Rev Checked By") = iProperties.Value("Custom", "Rev Checked By")
'Rev Approved By
iProperties.Value(oModelName, "Custom", "Rev Approved By") = iProperties.Value("Custom", "Rev Approved By")
'Category
iProperties.Value(oModelName, "Summary", "Category") = iProperties.Value("Summary", "Category")
'Model Comments
iProperties.Value(oModelName, "Custom", "Model Comments") = iProperties.Value("Custom", "Model Comments")
'Alert for Approval
iProperties.Value(oModelName, "Custom", "Alert for Approval") = iProperties.Value("Custom", "Alert for Approval")
'Company
iProperties.Value(oModelName, "Summary", "Company") = iProperties.Value("Summary", "Company")
'Vendor
iProperties.Value(oModelName, "Project", "Vendor") = iProperties.Value("Project", "Vendor")
'Status
iProperties.Value(oModelName, "Custom", "Status") = iProperties.Value("Custom", "Status")
'Mold
iProperties.Value(oModelName, "Custom", "Mold") = iProperties.Value("Custom", "Mold")
'Stock Number
iProperties.Value(oModelName, "Project", "Stock Number") = iProperties.Value("Project", "Stock Number")
'Catalog No.
iProperties.Value(oModelName, "Custom", "Catalog No.") = iProperties.Value("Custom", "Catalog No.")
'Machined From
iProperties.Value(oModelName, "Custom", "Machined From") = iProperties.Value("Custom", "Machined From")
'Process
iProperties.Value(oModelName, "Custom", "Process") = iProperties.Value("Custom", "Process")
'Molded Part Number
iProperties.Value(oModelName, "Custom", "Molded Part Number") = iProperties.Value("Custom", "Molded Part Number")
'Company
iProperties.Value(oModelName, "Custom", "Company") = iProperties.Value("Custom", "Company")
InventorVb.DocumentUpdate(True)
Mechanix Design Solutions inc.
