(defun C:lockup( / ss time en oldcmd)
  (setq oldcmd (getvar "cmdecho"))
 (setq errold *error*)
  (defun *error* (msg / )
    (setq *error* errold)
;TTZHQ-5864 - Li ZiZhuang - 2008-6-11 -执行扩展工具中的命令后,再执行其他命令,命令行无命令名提示
 (Setvar "cmdecho" oldcmd )
    (setq ss time en oldcmdnil)
  )
  (setvar "cmdecho" 0)
  (setq ss (ssget))
  (if ss
    (progn
      (setq time (rtos (getvar "CDATE") 2 10))
      (command "block" time '(0 0 0) ss "")
      (command "minsert" time '(0 0 0)"" "" "" 2 1 0)
      (setq en (entlast))
      (vla-ConvertToAnonymousBlock en)
    )
  )
  (setvar "cmdecho" oldcmd)
 (princ)
)
