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

Hi @kresh.bell . Please try this code:

Dim oInvApp As Inventor.Application = ThisApplication
Dim oAsmDoc As AssemblyDocument = oInvApp.ActiveDocument
Dim oCM As CommandManager = oInvApp.CommandManager
Do
	Dim oOcc As ComponentOccurrence = oCM.Pick(SelectionFilterEnum.kAssemblyLeafOccurrenceFilter, _
												"Select your part...")
	If oOcc Is Nothing Then Exit Sub
	If TypeOf oOcc.Definition.Document Is PartDocument Then
		Dim oPartDoc As PartDocument = oOcc.Definition.Document
		Dim oProp As Inventor.Property = oPartDoc.PropertySets("Design Tracking Properties")("Description")
		oProp.Value = InputBox("Please Enter a Description", "Description", oProp.Value)
	End If
Loop

 

Andrii Humeniuk - CAD Coordinator, Autodesk Certified Instructor

LinkedIn | My free Inventor Addin | My Repositories

Did you find this reply helpful ? If so please use the Accept as Solution/Like.

EESignature