;;;判断p点是否在P1，P2构成的矩形框内;;;(IsPtInRectang (getpoint) (getpoint) (getpoint))(defun IsPtInRectang(p1 p2 p) (vl-every '>= (mapcar '* (mapcar '- p p1) (mapcar '- p2 p)) '(0 0)))
