请问怎么指定一个无名块的插入点?

cag

(defun c:hh()
(setq pnt (getpoint "指定插入点:"))
(setq ss1 (ssget))
(mc-make-unname-block ss1)
)

(defun mc-make-unname-block(ss / count entlist ent blk)
  (entmake '((0 . "BLOCK")
     (2 . "*U")
     (70 . 1)
     (10 0 0 0);;;我把这句改为(10 (car pnt) (cadr pnt) 0)
     ))
  (setq count 0)
  (repeat (sslength ss)
    (setq entlist(entget(setq ent(ssname ss  count))))
    (setq count (1+ count))
    (entmake entlist)
    )
  (setq count 0)
  (repeat(sslength ss)
    (setq ent(ssname ss count))
    (setq count (1+ count))
    (entdel ent)
    )
  (setq blk(entmake '((0 . "ENDBLK"))))
  (if (princ blk)
  (entmake (list (cons 0  "INSERT")
     (cons 2 blk)
     (cons 10 '(0 0 0));;;这句改为(cons 10 (list (car pnt)(cadr pnt) 0))
     ))
    )
  blk
  )

这样改了之后还是不行,点是对的,可是从零点偏了。
该怎么改?

meflying