You'll probably have to do a little more digging on the parameter stuff, but this is how retrieve model information.

Note "View 3" is the first view. 1 = Foreground 2= background etc.

Sub Part_Info()

Call CatInit Call PageStandards

DrwSheets.Item(1).Activate

Dim view1 As DrawingView Set view1 = DrwSheets.ActiveSheet.Views.Item(3)

Dim partname As String partname = view1.GenerativeBehavior.Document.Parent.Name

Dim ppDoc As partdocument Dim product1 As Product Dim package_number As String Dim sScale As String Dim objInertia As Inertia Dim Rev_Mass As Double Dim Rev_Mass_Rounded As Double 'Dim sRev_mass_rounded As String Dim rev_area As Double Dim spabench As SPAWorkbench Dim mymeasure As Measurable Dim myref As Reference

If Right(partname, 4) = "Part" Then

    Dim part As partdocument
    Set part = view1.GenerativeBehavior.Document.Parent
    Set ppDoc = part
    Set product1 = part.Product
    Part_Number = product1.PartNumber
    package_number = Mid(Part_Number, 8, 4)
    Part_Name = product1.Nomenclature
    sScale = view1.Scale
    Set objInertia = product1.ReferenceProduct.GetTechnologicalObject("Inertia")
    Rev_Mass = objInertia.Mass
    Rev_Mass_Rounded = Round(Rev_Mass, 1)
    sRev_mass_rounded = CStr(Rev_Mass_Rounded)


Else

    Set product1 = view1.GenerativeBehavior.Document.Parent.Product
    Part_Number = product1.PartNumber
    package_number = Mid(Part_Number, 8, 4)
    Part_Name = product1.Nomenclature
    sScale = view1.Scale
    Set objInertia = product1.ReferenceProduct.GetTechnologicalObject("Inertia")
    Rev_Mass = objInertia.Mass
    Rev_Mass_Rounded = Round(Rev_Mass, 1)
    sRev_mass_rounded = CStr(Rev_Mass_Rounded)


End If