Scale to the xy_centerpoint

'''
''' Scales All
''' —-

Function scaleAll (arrObject, xScale, yScale, zScale)

Dim strObject, dblDistance, strOffsetDirection, arrCenterPoint, arrBBox
' loop through each curve and offset
For Each strObject In arrObject
' get centerPoint
arrBBox = Rhino.BoundingBox(strObject)
arrCenterPoint = array((((arrBBox(2)(0)) + (arrBBox(0)(0))) / 2), (((arrBBox(2)(1)) + (arrBBox(0)(1))) / 2), (((arrBBox(2)(2)) + (arrBBox(0)(2))) / 2))
' scale object
Call Rhino.ScaleObject (strObject, arrCenterPoint, array(xScale,yScale,zScale))
Next

End Function

Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License