Zoom Window with coordinates

[betterway]

(setq pt1 (getpoint "Pick zoom window first corner: "))
(setq pt2 (getpoint "Pick zoom window second corner: "))
(vl-cmdf "_.Zoom" "w" pt1 pt2)

As you are picking the second point, is there a way to show the dragged rectangle like the normal zoom window command shown below?

(Need the 2 points coordinates for later calculation)
for example:
 

 

[marko_ribar]

(setq pt1 (getpoint "Pick zoom window first corner: "))

(setq pt2 (getcorner pt1 "Pick zoom window second corner: "))

(vl-cmdf "_.Zoom" "w" pt1 pt2)

[betterway]

Very Good !

Thank you .... worked perfectly.