https://forums.autodesk.com/t5/autocad-forum/zoom-to-selected-objects/m-p/942698#M349927 Forgot this companion routine.<BR /> <BR /> Private Function UCStoWCS(ByVal ptv As Variant) As Variant<BR /> If UBound(ptv) &lt; 2 Then ReDim Preserve ptv(LBound(ptv) To 2)<BR /> UCStoWCS = ThisDrawing.Utility.TranslateCoordinates(ptv, acUCS, acWorld, False)<BR /> End Function<BR /> <BR /> <BR /> Regards<BR /> <BR /> Wayne Wed, 11 Feb 2004 05:30:36 GMT Anonymous 2004-02-11T05:30:36Z