改变颜色做块，遇到天正轴网，天正标注等对象时失败。

ou_y_x

;变色做块
(defun c:bb (/ ss i name pt)
  (command "undo" "begin")
  (setq ss(ssget))
  (command "change" ss "" "p" "c" "36" "")
  (setq pt(cdr (assoc 10 (entget (ssname ss 0)))))
  (setq name(rtos (fix (* 1e8 (getvar 'cdate)))))
        (command "-block" name pt ss "")
        (command "-insert" name pt "" "" "")
  (command "_.erase" ss "")
  (command "undo" "end")
)

该代码遇到天正轴网，天正标注时，
(command "-block" name pt ss "")这一句出错；
手动一步步操作又可以，不懂是什么原因，大家能帮我看看吗？

鱼与熊掌

天正 一切皆有可能....