06-23-2021
07:36 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-23-2021
07:36 AM
I believe I got something that works!
Dim asmDoc As AssemblyDocument = ThisDoc.Document Dim childDoc As Document For Each childDoc In asmDoc.AllReferencedDocuments Try Dim filename = IO.Path.GetFileName(childDoc.FullFileName) iProperties.Value(filename, "Custom", "RAIL SECTION") = right(iProperties.Value(asmDoc, "Summary", "Title"),4) Catch End Try Next
Autodesk Certified Professional