The height actually belongs to the placement outline.
There are a few examples of the in the AATK download. vbs/Manufacturing/POV.vbs or vbs/Manufacturing/VRML.vbs
http://sourceforge.net/projects/uwtoolbox/
Sub main()
Get_Height
End Sub
Sub Get_Height()
Dim pcbApp As MGCPCB.Application
Dim pcbDoc As MGCPCB.Document
Set pcbApp = GetObject(, "MGCPCB.Application")
Set pcbDoc = pcbApp.ActiveDocument
' get a doc licence
retVal = licenseDoc(pcbDoc)
If (retVal <> 1) Then Set pcbDoc = Nothing
Dim prts As MGCPCB.Parts
Dim prt As MGCPCB.Part
Set prts = pcbDoc.Parts
prts.Sort
' Define Header
i = 2
Range("A1").FormulaR1C1 = "part Number"
Range("B1").FormulaR1C1 = "No. of parts"
Range("C1").FormulaR1C1 = "Height"
Range("D1").FormulaR1C1 = "Underside Height"
For Each prt In prts
Range("A" & i).FormulaR1C1 = prt.Name
Range("B" & i).FormulaR1C1 = prt.Components.Count
Dim comps As Components
Dim comp As Component
Dim po As PlacementOutline
Dim pos As PlacementOutlines
Set comps = prt.Components
For Each comp In comps
Set pos = comp.PlacementOutlines
For Each po In pos
Range("C" & i).FormulaR1C1 = po.Height(epcbUnitCurrent)
Range("D" & i).FormulaR1C1 = po.UndersideSpace
Next
Next
On Error Resume Next
i = i + 1
Next
MsgBox "Done!"
End Sub
Private Function licenseDoc(docObj As MGCPCB.Document) As Integer
' =======================================================================
' Retrieve a licence for the document
' =======================================================================
On Error GoTo exit_with_error
Dim retState As Integer
Dim licenseServer As Object
Dim key As Long
Dim licenseToken As Long
Dim outErrMess As String
If (docObj Is Nothing) Then GoTo end_of_function
' Ask the document for a key
key = docObj.Validate(0)
' Get license server
On Error GoTo err_create_serverobj
Set licenseServer = CreateObject("MGCPCBAutomationLicensing.Application")
If (licenseServer Is Nothing) Then GoTo err_create_serverobj
On Error GoTo exit_with_error
' Ask the license server for the license token
licenseToken = licenseServer.GetToken(key)
' Validate the document with the license token
On Error GoTo err_validate
Dim lRetval As Long
lRetval = docObj.Validate(licenseToken)
On Error GoTo exit_with_error
retState = 1
end_of_function:
' release licence server
Set licenseServer = Nothing
licenseDoc = retState
Exit Function
show_error:
Dim ioptions As Long
ioptions = vbDefaultButton1 + vbApplicationModal + vbCritical + vbOKOnly
MsgBox outErrMess, ioptions, "Retrieving license for document"
GoTo end_of_function
exit_with_error:
outErrMess = "** Error ** " + Error$
retState = -1
GoTo show_error
err_create_serverobj:
outErrMess = "** Error ** Could not create license server object"
retState = -2
GoTo show_error
err_validate:
outErrMess = "** Error ** Failed to validate document object"
outErrMess = outErrMess + vbCrLf + " License token : " + Trim(Str(licenseToken))
outErrMess = outErrMess + vbCrLf + " Document key : " + Trim(Str(key))
retState = -3
GoTo show_error
End Function
