[求助]：（自动分层）指定命令到图层函数错在那里？

9701519

指定命令到图层函数错在那里（自动分层）谁能完善它！！！

(defun c:da( / cly oldtev oldcmd)
(setq cly (getvar"clayer"))
(if (= nil (tblsearch "layer" "dim")) (command"-layer" "m" "dim") (setvar"clayer" "dim"))

(setq oldtev (getvar"texteval"))
(setq oldcmd (getvar"cmdecho"))
(setvar"cmdecho" 1)
(setvar "texteval" 1)
(command"BHATCH")
(while (/= 0 (getvar"cmdactive"))
(command pause)
)
(setvar "clayer" cly)
(setvar"texteval" oldtev)
(setvar"cmdecho" oldcmd)
(princ)
)
;不过，标注的时候不要点右键或按ESC，否则不能返回当前层
;当然，你可以加一个错误处理，即使点右键或按ESC也能返回当前层
(defun *error*(msg)
(if (/= nil cly)
(progn
(setvar"clayer" cly)
(setq cly nil)
)
)
)

就是第一次运行命令会出现:
『da BHATCH
无效的选项关键字。
输入选项
[?/生成(M)/设置(S)/新建(N)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/打印(P)/冻结(
F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)]: *取消*』的提示




第二次就正常！
显示为：
『DA BHATCH
当前填充图案:  ANGLE
指定内部点或
[特性(P)/选择对象(S)/绘图边界(W)/删除边界(B)/高级(A)/绘图次序(DR)/原点(O)]:
*取消*』

Underway

(if (= nil (tblsearch "layer" "dim"))
  (command "-layer" "m" "dim")
  (setvar "clayer" "dim")
)

;; =====>
(if (= nil (tblsearch "layer" "dim"))
  (command "-layer" "m" "dim" "")
  (setvar "clayer" "dim")
)