[原创]：块内特定层文字更新程序，请指点。

pandoras

主要思想是查找图中所有块，对块内entity判断是否为特定层文字，如果是
将块内特定层文字修改为当前时间和文件路径。

可是运行时有问题，请高手指点！问题出在哪？谢！
代码如下：


[PHP]
(defun c:nn (/ blkhead ename etest edata test_etype cdate DWGNAME DWGPREFIX)


  (setq cdate (MENUCMD
     "M=$(edtime,$(getvar,date) ,DD.MO.YYYY   HH:MM:SS)")

  )

  (setq DNAME (getvar "DWGNAME")
      DPATH (getvar "DWGPREFIX")
  )

  (setq cdate (strcat "Last Plot Date: " cdate "   " DPATH DNAME))

  
  
  
     ; get the first block
  (setq blkhead (tblnext "BLOCK" 1))



(while blkhead
    (setq ename (cdr (assoc -2 blkhead)))
    (setq etest 1)
     ; scan through the block an check every entity, whether it is of type text
   
(while etest ;while1


(setq edata (entget ename))
(if edata
(progn
   (setq test_etype (cdr (assoc 0 edata)))
   (setq txtlayer (cdr (assoc 8 edata)))
   (if (equal "TEXT" test_etype) ;if1
   
       (progn
          (if (equal "zdylastpd" txtlayer) ;if2

              (progn
              (setq etest 0)
              (command "change" ename "" "" "" "" "" "" cdate)
              )

              (progn
                  (setq ename (entnext ename))
                  (setq etest ename)                 
              )
          ); endif2
       )

    )    ; end if1
) ;end progn
) ;end if
)     ; end while1

    (setq blkhead (tblnext "BLOCK"))
  )     ; end while blkhead
); end defun

[/PHP]