求改一段代码

wgij007

（代码也是在论坛里看到的，也忘了是出自那位高手了）          修改部分：就是直接插入，不用选项。


(Defun C:XFB ( )        ;定義“绑定选定参照文件”命令

        (setvar "cmdecho" 0)        ;命令执行过程不回显提示和输入

          (princ "\nSelect  objects on the reference file to be Binded:")

          (if (setq SS (ssget))
                    (progn
                              (setq Rnames "")
                        (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)
                              (repeat
                                (setq I (sslength SS))
                                (setq E (ssname SS (setq I (1- I))))
                                (setq ELIST (entget E))
                                (setq Rname (cdr (assoc 2 ELIST))) ;_参照名
                                (command "-xref" "Bind" Rname)
                                (setq Rnames (strcat Rname ", " Rnames)) ;_strcat 连接成字符串
                              );end repeat
                        (setvar "BINDTYPE" oldBT)
                              (prompt "\nFiles have been Binded:")
                              (princ Rnames)
                    );end progn
          );end if
        (princ)
)

xvjiex

(Defun C:XFB ( )        ;定義“绑定选定参照文件”命令
        (setvar "cmdecho" 0)        ;命令执行过程不回显提示和输入

          (princ "\nSelect  objects on the reference file to be Binded:")

          (if (setq SS (ssget))
                    (progn
                              (setq Rnames "")
                        (setq oldBT (getvar "BINDTYPE"))
                        (setq BT (if (not BT) oldBT BT))
                        (setq BT_tmp "1" )
                        (if (null BT_tmp) (setq BT_tmp BT))
                        (setq BT (atoi BT_tmp))
                        (setvar "BINDTYPE" BT)
                              (repeat
                                (setq I (sslength SS))
                                (setq E (ssname SS (setq I (1- I))))
                                (setq ELIST (entget E))
                                (setq Rname (cdr (assoc 2 ELIST))) ;_参照名
                                (command "-xref" "Bind" Rname)
                                (setq Rnames (strcat Rname ", " Rnames)) ;_strcat 连接成字符串
                              );end repeat
                        (setvar "BINDTYPE" oldBT)
                              (prompt "\nFiles have been Binded:")
                              (princ Rnames)
                    );end progn
          );end if
        (princ)
)

原地踏步

(initget "0 1")
(setq BT_tmp
                                (getkword
                                        (strcat "输入绑定类型[绑定(0)/插入(1)]<" (itoa BT) ">: ")
                                )
                        )

baitang36

(setq BT_tmp
                                 (getstring
                                         (strcat "输入绑定类型[绑定(0)/插入(1)]<" (itoa BT) ">: ")
                                 )
                         )
这个地方改成：
(setq BT_tmp   “1”  )

wgij007

baitang36 发表于 2020-7-2 12:12
(setq BT_tmp
                                 (getstring
                                         ...

有错误呀，弹出   ; 错误: 参数类型错误: stringp 1

wgij007

原地踏步 发表于 2020-7-2 08:43
(initget "0 1")
(setq BT_tmp
                                (getkword

你好，没变化呀

yangchao2005090

xvjiex 发表于 2020-7-2 00:08
(Defun C:XFB ( )        ;定義“绑定选定参照文件”命令
        (setvar "cmdecho" 0)        ;命令执行 ...

您好，可以不选择外部参照对象，直接插入所有外部参照吗，也就是输入命令后直接插入