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

了liao · 发表于 2017-9-27 14:13:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(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")       ;提示如何执行程序

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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。