了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

回帖是一种美德！感谢楼主的无私分享 谢谢
页: [1]
查看完整版本: 这段绑定所有外参的代码如何把默认的绑定类型变为"插入"？