delphi查询CAD图中距离某点最近矩形的四个角坐标(逆时针A,B,C,D),给定坐标点p0,找到指定距离内与p0点最近点A的矩形,返回该矩形的四个角坐标