批量绑定失败

陈同学

下面这段代码绑定总是失败，求大佬看看是啥问题

• (Defun C:bangding ( )
•         (setvar "cmdecho" 0)
•         (setq oldBT (getvar "BINDTYPE"))
•         (setq BT (if (not BT) oldBT BT))
•         (setq BT_tmp
•                 (getstring
•                         (strcat "输入绑定类型[绑定(0)/插入(1)]<" (itoa BT) ">: ")
•                 )
•         )
•         (if (null BT_tmp) (setq BT_tmp BT))
•         (setq BT (atoi BT_tmp))
•         (setvar "BINDTYPE" BT)
•         (command "-xref" "Bind" "*")
•         (setvar "BINDTYPE" oldBT)
•           (princ)
• )
  

chenry676

我这边倒是可以用。请问能默认绑定参数0吗？