这段绑定所有外参的代码如何把默认的绑定类型变为"插入"？

了liao

(Defun C:XFBA ( )          ;定義“绑定所有外部参照”命令
        (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)
)

;(prompt "\n<绑定所有外部参照> 命令：XFBA  ------by sixth 2013-09-29")         ;提示如何执行程序

vectra

1. (defun c:xfba (/ rt)
   
2.   (setvar "cmdecho" 0)
   
3.   (initget "0 1")
   
4.   (setq        rt (getkword
   
5.              (strcat "输入绑定类型 [绑定(0)/插入(1)] <" (itoa (getvar "BINDTYPE")) ">:")
   
6.            )
   
7.   )
   
8.   (if rt
   
9.     (setvar "BINDTYPE" (atoi rt))
   
10.   )
    
11. 
    
12.   (command "-XREF" "BIND" "*")
    
13.   (princ)
    
14. )

(defun c:xfba (/ rt)<br />   (setvar "cmdecho" 0)<br />   (initget "0 1")<br />   (setq        rt (getkword<br />              (strcat "输入绑定类型 [绑定(0)/插入(1)] <" (itoa (getvar "BINDTYPE")) ">:")<br />            )<br />   )<br />   (if rt<br />     (setvar "BINDTYPE" (atoi rt))<br />   )<br /> <br />   (command "-XREF" "BIND" "*")<br />   (princ)<br /> )

默认值将会是上次输入过的选择。

了liao

vectra 发表于 2017-9-27 16:17
默认值将会是上次输入过的选择。

这也算是折中的办法，感谢大佬

Andyhon

无需选择项时可直接
(setvar "BINDTYPE" 1)

了liao

Andyhon 发表于 2017-9-28 10:37
无需选择项时可直接
(setvar "BINDTYPE" 1)

这代码放何处？

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢