Adobe 26001360 Scripting Guide - Page 28

28 Scripting concepts Visual Basic Private Sub Command1_Click() ' Calculate the geometric center of a selected art item ' Assumes you have a single art item selected Dim appRef As New Illustrator.Application Dim selectedObjects As Variant Dim objectBounds As Variant Dim objectCenter As Variant If appRef.Documents.Count > 0 Then selectedObjects = appRef.Documents(1).Selection If TypeName(selectedObjects) = "Variant()" Then objectBounds = selectedObjects(0).GeometricBounds objectCenter = GetItemCenter(objectBounds) MsgBox ("Center x:" & objectCenter(0) & ", y:" & objectCenter(1)) End If End If End Sub ' The following lines define the function Function GetItemCenter(sourceBounds As Variant) As Variant Dim left As Single Dim top As Single Dim right As Single Dim bottom As Single Dim xCenter As Single Dim yCenter As Single left = sourceBounds(0) top = sourceBounds(1) right = sourceBounds(2) bottom = sourceBounds(3) xCenter = (left + right) / 2 yCenter = (top + bottom) / 2 GetItemCenter = Array(xCenter, yCenter) End Function 12 Aug 03