[求助]：还差一点点，再帮我看看拉！！

xiaoquansb

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

zxq0220

用BO，(COMMAND "BOUNDARY" PT)命令建立封闭边界；
用(ENTLAST)获得刚才产生的封闭边界；
用ENTGET取得实体数据表；
……
……

xiaoquansb

(setq pt (GETPOINT "选择一点"))
(COMMAND "BOUNDARY" PT "")
(SETQ TEMP (ENTGET (ENTlast)))
(PRINC TEMP)

得到的却是下面的数据，怎么看都像是乱码，怎么回事呢？我用的是06

((-1 . <图元名: 7c66d218>) (0 . "REGION") (330 . <图元名: 7c69bcf8>)
(5 . "13B") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbModelerGeometry") (70 . 1) (1 . "mogoo mh m o          ") (1 . "ni
^*+0;:,4 ^*+0\\^[ nh ^LR iqoqjqhook QK mk Y-6 U*1 ni nlekiemk mooi ") (1 . "n
fqfffffffffffffffj:rooh n:rono ") (1 . ">,27:>;:- {rn rn _nm mogqoqjqhook |")
(1 . "=0;& {rn rn {rn {m {rn {rn |") (1 . "3*2/ {rn rn {rn {rn {l {n |") (1 .
",7:33 {rn rn {rn {rn {rn {k {rn {m |") (1 . "9><: {rn rn {rn {rn {j {l {rn {i
90-(>-; ;0*=3: 0*+ |") (1 . "300/ {rn rn {rn {rn {h {k |") (1 . "/3>1:r,*-9><:
{rn rn {rn mlhjqifgghhhlhnmim ijkqhhgljjkiffojfl o o o n n o o 90-(>-;@) V V V
V |") (1 . "<0:;8: {rn rn {rn {g {f {rn {no 90-(>-; {j {rn |") (1 . "<0:;8: {rn
rn {rn {nn {h {rn {nm 90-(>-; {j {rn |") (1 . "<0:;8: {rn rn {rn {h {nn {rn {nl
90-(>-; {j {rn |") (1 . ":;8: {rn rn {rn {nk o {nj mkfqoilihljklhjfmj {h {ni
90-(>-; _h *1410(1 |") (1 . "<0:;8: {rn rn {rn {f {g {rn {nh 90-(>-; {j {rn |")
(1 . ":;8: {rn rn {rn {nj o {ng nkhqkhjflkkhjojflg {g {nf 90-(>-; _h *1410(1
|") (1 . ":;8: {rn rn {rn {mo o {nk nkhqkhjflkkhjojflg {f {mn 90-(>-; _h
*1410(1 |") (1 . "):-+:' {rn rn {rn {no {mm |") (1 . "):-+:' {rn rn {rn {no {ml
|") (1 . ",+->687+r<*-): {rn rn {rn mjooqmlohnkjofoojg hmgqjnilmmhohkljjn o rn
o o V V |") (1 . ":;8: {rn rn {rn {ng o {mo mkfqoilihljklhjgnn {nn {mk 90-(>-;
_h *1410(1 |") (1 . "):-+:' {rn rn {rn {nm {mj |") (1 . ",+->687+r<*-): {rn rn
{rn mmjnqnihokofijmkij hmgqjnilmmhohkljjn o lqogljljfgjohjlhg:ronj rn o V V |")
(1 . "):-+:' {rn rn {rn {nh {mi |") (1 . ",+->687+r<*-): {rn rn {rn
mjooqmlohnkjofoojl jgnqokolggmlmlhinl o kqimjlolfhhinloiig:ronj n o V V |") (1
. "/061+ {rn rn {rn mjooqmlohnkjofoojg hmgqjnilmmhohkljjn o |") (1 . "/061+ {rn
rn {rn mmjnqnihokofijmkij hmgqjnilmmhohkljjn o |") (1 . ",+->687+r<*-): {rn rn
{rn mmjnqnihokofijmkh jgnqokolggmlmlhinl o n o o V V |") (1 . "/061+ {rn rn {rn
mmjnqnihokofijmkh jgnqokolggmlmlhinl o |") (1 . "/061+ {rn rn {rn
mjooqmlohnkjofoojl jgnqokolggmlmlhinl o |"))

如果建的不是面域，而是多段线的话
(setq pt (GETPOINT "选择一点"))
(COMMAND "BOUNDARY" PT "")
(SETQ TEMP (ENTGET (ENTlast)))
(PRINC TEMP)

得到的却是

((10 193979.0 -115988.0) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210
0.0 0.0 1.0))

好像只是多段线最后一段的资料，还是差一点点啊，大虾们再帮我看看拉