为什么查询块的属性值的组码时会出错阿？

lyd2003001

为什么查询块的属性值的组码时显示了一半就没了，接着就没法查询了。还有提示“; 错误: 发生未知意外
; 警告: 忽略展开 未知异常”。请问是什么原因，怎么解决？

查询时第一次显示：“块组码： ((-1 . <图元名: 7efb2518>) (0 . INSERT) (330 . <图元名: 7efb0cf8>) (5 . 343)
(100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 . AcDbBlockReference)
(66 . 1) (2 . 标高) (10 31539.2 15363.5 0.0) (41 . -1.0) (42 . 1.0) (43 . 1.0)
(50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0)))(
 属性组码： ((-1 . <图元名: 7efb2520>) (0 . ATTRIB) (330 . <图元名: 7efb2518>) (5 . 344)
(100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 . AcDbText) (10 -30674.2
15675.6 0.0) (40 . 250.0) (1 . 0.000) (50 . 0.0) (41 . 0.7) (51 . 0.0) (7 .
FSZ) (71 . 2) (7”。再查时就什么也不显示了。

ZZXXQQ

用什么查的?

董堃

(SETQ TEMP (ENTGET (CAR (ENTSEL))))

kerrywm

没碰见过，用英文版的ACAD试一下。

lyd2003001

用这个查的。哎，变量的存贮空间不够？怎么解决啊？

(defun c:q3(/ #t0 #t1 #t2 #tt #tt2 #SS #S0 #S00 #s05)
  (setq #t0 (entsel "/n 请选择带属性的块：")
        #t1 (car #t0)
        #t2 (cdr #t0)
 #tt (entget #t1)
 #tt2 (assoc 2 #tt)
 #SS (ENTNEXT #t1)
 #S0 (ENTGET #SS)
 #S00 (ASSOC 0 #S0)
 #s05 (cdr (ASSOC 50 #S0))
 #s05 (/ (* #s05 180) pi)
 );setq
  (while (= (CDR #S00) "ATTRIB")
    (PROGN
      (princ (list "\n 属性组码：" #s0 "角度：" #s05))
      (setq #SS (ENTNEXT #ss)
     #S0 (ENTGET #SS)
     #S00 (ASSOC 0 #S0)
     #s05 (cdr (ASSOC 50 #S0))
 );setq
      (if (/= #s05 nil)
 (setq #s05 (/ (* #s05 180) pi))
 );if
      );progn
    );while
  (princ)
  );q3

无痕

  (while (= (CDR #S00) "ATTRIB")

用while要慎重，避免死循环