批量绑定失败
下面这段代码绑定总是失败，求大佬看看是啥问题[*](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)
[*])
我这边倒是可以用。请问能默认绑定参数0吗？
页:
[1]