09-08-2023
06:08 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-08-2023
06:08 AM
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.