为什么CAD2010中不能建匿名块?

fqlh

下面这个程序在CAD2005中运行没问题，但在CAD2010中运行就错，为什么？
LISP匿名块程序：
(defun c:tt ()
  (setq pt (getpoint "\n插入点： "))
  (entmake
    (list '(0 . "BLOCK") '(2 . "*U") '(70 . 1) (cons 10 pt))
  )
  (prompt "\n选择实体")
  (setq ss1 (ssget)
i   (sslength ss1)
n   (- 1)
  )
  (repeat i
    (entmake (cdr (entget (ssname ss1 (setq n (1+ n))))))
  )     
  (setq num (entmake '((0 . "ENDBLK"))))
  (entmake (list '(0 . "INSERT") (cons 2 num) (cons 10 pt)))
  (command "erase" ss1 "")
  (princ)
)