Message 1 of 3

Not applicable
10-05-2020
12:14 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hey guys,
i have a question: is it possible to push parameters from an assembly/part to a connected and similiarly name drawing?
I'm attaching my code (it's a BFD to me...don't hurt me too bad)
Dim partDoc As PartDocument 'partDoc = ThisApplication.ActiveDocument Dim RawPartNumber As String Dim DrawingOfModel As String Dim FinPartNumber As String 'Dim propertyName As String = "MOTOR_HP" RawPartNumber = ThisDoc.PathAndFileName(True) 'without extension MessageBox.Show(RawPartNumber, "Title") FinPartNumber = Replace(RawPartNumber,"-0__ATL_000.iam","") MessageBox.Show(FinPartNumber, "Title") DrawingOfModel = Replace(RawPartNumber,"-0__ATL_000.iam","-1__ATL_000.idw") MessageBox.Show(DrawingOfModel, "Title") iProperties.Value("Custom", "MOTOR_HP") = Parameter(DrawingOfModel,"MOTOR_HP")
Solved! Go to Solution.