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

了liao · 发表于 2017-9-27 12:08:52

(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 · 发表于 2017-9-27 16:17:46

本帖最后由 vectra 于 2017-9-27 22:26 编辑

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

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

了liao · 发表于 2017-9-28 10:29:40

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

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

Andyhon · 发表于 2017-9-28 10:37:28

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

了liao · 发表于 2017-9-30 09:56:58

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

这代码放何处？

pengfei2010 · 发表于 2017-10-5 20:17:01

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

账号		自动登录	找回密码
密码			注册

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