怎样让块中的属性值显示出来？？

tukuitk · 发表于 2003-10-31 08:42:00

请教各位大虾，请帮忙：
只准用AutoLisp编！
下面这个函数的(entmod okEnt)不能把我填充的文字显示出来！
我把一个含属性参照的块中的所有属性参照放在一个LIST中，即变量AttRefEntList中了。
飞哥知道我这个程序的目的，请飞哥出招吧！
最好是尽量不改变我的程序框架。
(defun Fill (AttRefEntList Text tag / i okEnt)
  (setq i 0)
  (while (< i (length AttRefEntList))
(if       (= (cdr (assoc 2 (entget (nth i AttRefEntList)))) tag)
   (progn
      (setq okEnt (subst (cons 1 Text)
                        (assoc 1 (entget (nth i AttRefEntList)))
                        (entget (nth i AttRefEntList))
                  )
      )
      (entmod okEnt)
      (setq i (length AttRefEntList))
   )
)
(setq i (1+ i))
  )
  (princ)
)