Hi Adam,
Here is an updated property set that should work for mvparts, pipe, and pipefittings. You will need to modify it if you want it to work for pipe flex fittings and pipe custom fittings.
On Error Resume Next
Set app = GetObject (,"AutoCAD.Application")
acadVerString = app.ActiveDocument.GetVariable("ACADVER")
'Set MEP application string, based on version running:
Select Case acadVerString
Case "18.0s (LMS Tech)" 'MEP-2010
aecBaseVer = "AecX.AecScheduleApplication.7.0"
Case "18.1s (LMS Tech)" 'MEP-2011
aecBaseVer = "AecX.AecScheduleApplication.7.0"
Case "18.2s (LMS Tech)" 'MEP-2012
aecBaseVer = "AecX.AecScheduleApplication.7.0"
Case "19.0s (LMS Tech)" 'MEP-2013
aecBaseVer = "AecX.AecScheduleApplication.7.0"
Case "19.1s (LMS Tech)" 'MEP-2014
aecBaseVer = "AecX.AecScheduleApplication.7.5"
Case "20.0s (LMS Tech)" 'MEP-2015
aecBaseVer = "AecX.AecScheduleApplication.7.7"
Case Else
aecBaseVer = "Unknown"
End Select
If aecBaseVer = "Unknown" Then
RESULT = "Unknown MEP Version"
Else
RESULT=" ** Unable to get property value from style **"
Override = [WeightOverride]
Set sched = app.GetInterfaceObject(aecBaseVer)
Set mepObject = app.ActiveDocument.ObjectIDtoobject ([ObjectID])
multiplier = 1
partStyle = "[PartType]"
If mepObject.ObjectName = "AecbDbMvPart" Then
stylePropertySetName = "MvPart" + Replace(partStyle, " ", "_") + "Styles"
End If
If mepObject.ObjectName = "AecbDbPipe" Then
stylePropertySetName = "PipeStyles"
multiplier = mepObject.CutLength
End If
If mepObject.ObjectName = "AecbDbPipeFitting" Then
stylePropertySetName = "PipeFitting" + Replace(partStyle, " ", "_") + "Styles"
End If
partPropertySet = UCase(stylePropertySetName)
set style = mepObject.Style
set propSets = sched.PropertySets(style)
For Each propertySet In propSets
if UCase(propSet.Name) = partPropertySet Then
For Each prop In propertySet.Properties
If UCase(prop.Name) = "WEIGHT" Then
If Override <> 0 Then
RESULT = Override
Else
RESULT = prop.Value * multiplier
End If
End If
Next
End If
Next
End If
Changes that were made:
1. Update the AppliesTo tab to include Pipe and PipeFittings.
2. Update the ObjectId property to include Pipe and PipeFittings
3. Update the Parttype property to include Pipe and PipeFittings
4. Modified the code so that the StyleBased property set name was constructed based on the object type
5. Finally if the object was a pipe then the stylebased property set value was multiplied by its cutlength
Obviously in order for it to work each pipe, pipefitting, and mvpart need a custom parameter added to it named Weight. In addition for pipe, the Weight value should be equal to the Weight of 1 Unit Length. In imperial units this is in Inches. Most manufacturer catalogs that have the weight listed have it listed for 1" I believe. If not then you will need to convert it.
If you stretch the pipe in the sample drawing included you will see that the pipe weight changes when its length does. If you would like to the WeightOverride to be a unit weight for the pipe also instead of the weight for the entire pipe then multiply it by the multiplier also.
So this section of code
If Override <> 0 Then
RESULT = Override
Else
RESULT = prop.Value * multiplier
End If
would become
If Override <> 0 Then
RESULT = Override * multiplier
Else
RESULT = prop.Value * multiplier
End If
I hope this is what you wanted and I explained it well enough. I had actually had fun trying to get this to work. Also thanks to VitalyF for providing the initial code. I just did a little modification to it to get what you wanted.
** Edit ** I had inadvertantly left part of the code for the PipeFitting style commented out. I removed the comment and added another pipe size to the drawing to verify it was working correctly.
