高手救救我！

kingerst

下面的程序已可以帮我把块中自定义的属性 值显示出来，问题是如何把它循环出来的值 逐一附给变量？

我主要是要实现，在DCL框里可以显示，修改值，望高手指点。。。

;显示图块属性
(DEFUN C:PRTATTRIB ()
  ;(SETVAR "CMDECHO" 1)
  (IF (AND (PRINC "\\nSelect Block with attribute 选择带属性图块 :")
           (SETQ SS (SSGET '((0 . "INSERT") (66 . 1)))))
          
  (PROGN
   (SETQ I -1)
   (REPEAT (SSLENGTH SS)
    (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
          ENT1 ENT)
    (WHILE (= (CDR (ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "ATTRIB")
     (WRITE-LINE (CDR (ASSOC 1 ENT1)))
    )
    (PRINC "\\n")
   )
  ))
  ;(SETVAR "CMDECHO" 1)
  (PRINC)
)