[求助]：取得CAD里矩形区域边界的坐标

xiaoquansb

在CAD里有些图元围成了一个矩形，请问能否实现用鼠标点选矩形区域里面的一点，就可以取得矩形区域边界那个矩形的四个点的坐标呢？？
我想通过填充来间接获得这四个点
(defun c:jz ( )
(setq pt1 (GETPOINT "选择一点"))
(command "-hatch" "p" "SOLID" pt1 "")
(SETQ TEMP (ENTGET (ENTlast)))
(REPEAT 14 (SETQ  TEMP (CDR TEMP)))
(SETQ POINT1 (CDR (ASSOC 10 TEMP)))
(REPEAT 4 (SETQ  TEMP (CDR TEMP)))
(SETQ POINT2 (CDR (ASSOC 10 TEMP)))
(REPEAT 4 (SETQ  TEMP (CDR TEMP)))
(SETQ POINT3 (CDR (ASSOC 10 TEMP)))
(REPEAT 4 (SETQ  TEMP (CDR TEMP)))
(SETQ POINT4 (CDR (ASSOC 10 TEMP)))
(REPEAT 4 (SETQ  TEMP (CDR TEMP)))
(ENTDEL (ENTLAST))
)
加载后，第一次没问题，但第二次就不行了
第二次填充传回来的是空值，我想会不会是
(ENTDEL (ENTLAST))
这句出了问题了，请问各位大虾有解决的方法吗