Zoom WIndow points

[Anonymous]

I am trying to put together some X and Y values as coordinates for a Zoom Window. I've gotten the X and Y values by running through a series of objects and getting their minimum and maximum coordinates.

I keep getting an error "Invalid argument LowerLeft in ZoomWindow"

Here's what I'm trying to use... (minX, etc are from related sub)

Sub ZoomWinPts(minX, minY, maxX, maxY)
Dim zwp1(0 To 2) As Variant
Dim zwp2(0 To 2) As Variant
zwp1(0) = minX
zwp1(1) = minY
zwp1(2) = 0
zwp2(0) = maxX
zwp2(1) = maxY
zwp2(2) = 0
Application.ZoomWindow zwp1, zwp2
End Sub

Anyone want to clue me in on where I'm going wrong?

[Anonymous]

You need to use Doubles, not Variants.....

wrote in message news:5106778@discussion.autodesk.com...
I keep getting an error "Invalid argument LowerLeft in ZoomWindow"

Sub ZoomWinPts(minX, minY, maxX, maxY)
Dim zwp1(0 To 2) As Variant
Dim zwp2(0 To 2) As Variant

Anyone want to clue me in on where I'm going wrong?

[Anonymous]

Sweet! That's perfect, thanks.