01-29-2019
01:24 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
01-29-2019
01:24 AM
try this:
oDoc = ThisDrawing.ModelDocument
oCustPropSet = oDoc.PropertySets(4)
For Each oProp In oCustPropSet
Select Case oProp.Name
Case "ACME_TITLE"
ValueProp = InputBox("ACME_TITLE", "INPUT FIELD", oProp.value)
oProp.value = ValueProp
Case "ACME_DESCRIPTION"
ValueProp = InputBox("ACME_DESCRIPTION", "INPUT FIELD", oProp.value)
oProp.value = ValueProp
Case "ACME_DRAWING"
ValueProp = InputBox("ACME_DRAWING", "INPUT FIELD", oProp.value)
oProp.value = ValueProp
Case "ACME_SIZE"
ValueProp = InputBox("ACME_SIZE", "INPUT FIELD", oProp.value)
oProp.value = ValueProp
Case "ACME_TYPE"
ValueProp = InputBox("ACME_TYPE", "INPUT FIELD", oProp.value)
oProp.value = ValueProp
End Select
Next
odoc.Save
Please use the ACCEPT AS SOLUTION or KUDOS button if my Idea helped you to solve the problem.
Autodesk Inventor Professional Certified 2014
Autodesk Inventor Professional Certified 2014