PCCAD中，设置变量被拒绝

roschen

(defun c:zz (/ a)   ;设置捕捉
  (setvar "cmdecho" 0)
  (setq a (getvar "osmode"))
  (if (/= a 101)
    (progn (setvar "osmode" 101) (prin1 "101"))
    (progn (setvar "osmode" 549) (prin1 "549"))
  )
  (prin1)
)
(defun c:0 ()    ;设置0层
  (setvar "cmdecho" 0)
  (setvar "clayer" "0")

  (prin1)
)
以上两个程序我在AutoCAD2007中使用都正常，但在PCCAD中，怎么都不给设置，(setvar "clayer" 0)返回的是  错误: AutoCAD 变量设置被拒绝: "clayer" 0；而捕捉设置，不给任何提示，且osmode的值恒定，但此两个系统变量在命令行内却可正常使用，不知为何在LISP中不给用，请哪位大侠指点一下，不胜感激。