Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
dgreatice
in reply to: Anonymous

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