[求助]：寻找一矩形区域的数据列表

xiaoquansb

由于工作原因，经常碰到在一个矩形区域里重复同一样事物的画图，但是尺寸就不同，所以想把这个矩形区域的数据列表找出来，根据矩形的四个角的顶点的坐标作为参照，用LISP自动画图，以提高效率，本来可以GETPOINT的方式去提供这个矩形的两个顶点，从而推算出其他的点的坐标，但这样就必须用鼠标点两下，而且要点准，所以我就想在矩形区域里点一下就能生成什么东西，通过读取他的数据列表来得到四个点的坐标，我试过通过填充和做边界面域，但是都没能成功

填充
(setq pt (GETPOINT "选择一点"))
(command "-hatch" "p" "SOLID" pt "")
(SETQ TEMP (ENTGET (ENTlast)))
(princ TEMP)
(princ )
)


边界面域
(setvar  "HPBOUND" 0)
(setq pt (GETPOINT "选择一点"))
(COMMAND "-BOUNDARY" PT "")
(SETQ TEMP (ENTGET (ENTLAST)))
(princ TEMP)
(princ )
)

(setq pt (GETPOINT "选择一点"))
(setvar "HPBOUND" 1)
(COMMAND "-BOUNDARY" PT "")
(SETQ TEMP (ENTGET (ENTLAST)))
(princ TEMP)
(princ )
)

我实在想不到办法了，大家帮我想想看好吗，不胜感激。