外部参照命令（全）加载、卸载、拆离、绑定[源码]

sixth · 发表于 2013-9-3 12:04

本帖最后由 sixth 于 2013-9-30 08:35 编辑

看到有人要点击某个参照卸载的命令，正好我这有自己编写的几个小程序，很小很小，但用的时候还是觉得比较方便的。
就是有个别文件不能加载或者找不到源位置时，加载所有参照命令是不能加载全部参照的，这样这个命令会受这些文件影响，连带着个别其它手动能加载的也自动加载不起来，还请高手帮忙解决一下。
昨天又费了一翻心思，把绑定加进来了，费心思主要是水平有限，程序到是不难，呵呵

Xref_V2.3.lsp

;Xref 命令：
;Reload/重载 Unload/卸载 Detach/拆离 Bind/绑定

;XFR 重载选定
;XFRA 重载所有
;XFX 卸载选定
;XFXA 卸载所有
;XFD 拆离选定
;XFDA 拆离所有
;XFB 绑定选定
;XFBA 绑定所有

; -------------------- Reload selected reference files ---------------------
; XFR
; --------------------------------------------------------------------------
(Defun C:XFR ( ) ;定義“重载选定参照文件”命令

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

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

    (if (setq SS (ssget))
(progn
      (setq Rnames "")
      (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" "R" Rname)
(setq Rnames (strcat Rname ", " Rnames)) ;_strcat 连接成字符串
      );end repeat
      (prompt "\nFiles have been Reloaded:")
      (princ Rnames)
);end progn
    );end if
(princ)
)

(prompt "\n<重载选定参照文件> 命令：XFR  ------by sixth 2010-11-17")    ;提示如何执行程序

; ------------------- Reload all reference files ---------------------
; XFRA
; --------------------------------------------------------------------
(Defun C:XFRA ( )    ;定義“重新加载所有外部参照”命令
(setvar "cmdecho" 0) ;命令执行过程不回显提示和输入
(command "-xref" "R" "*")
    (princ)
)

(prompt "\n<重新加载所有外部参照> 命令：XFRA  ------by sixth 2010-10-13")    ;提示如何执行程序

; -------------------- Unload selected reference files ---------------------
; XFX
; --------------------------------------------------------------------------
(Defun C:XFX ( ) ;定義“卸载选定参照文件”命令

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

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

    (if (setq SS (ssget))
(progn
      (setq Rnames "")
      (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" "U" Rname)
(setq Rnames (strcat Rname ", " Rnames)) ;_strcat 连接成字符串
      );end repeat
      (prompt "\nFiles have been Unloaded:")
      (princ Rnames)
);end progn
    );end if
(princ)
)

(prompt "\n<卸载选定参照文件> 命令：XFX  ------by sixth 2010-11-17")    ;提示如何执行程序

; ------------------- Unload all reference files ---------------------
; XFXA
; --------------------------------------------------------------------
(Defun C:XFXA ( )    ;定義“卸载所有外部参照”命令
(setvar "cmdecho" 0) ;命令执行过程不回显提示和输入
(command "-xref" "U" "*")
    (princ)
)

(prompt "\n<卸载所有外部参照> 命令：XFXA  ------by sixth 2010-10-13")    ;提示如何执行程序

; -------------------- Detach selected reference files ---------------------
; XFD
; --------------------------------------------------------------------------

(Defun C:XFD ( ) ;定義“拆离选定参照文件”命令

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

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

    (if (setq SS (ssget))
(progn
      (setq Rnames "")
      (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" "Detach" Rname)
(setq Rnames (strcat Rname ", " Rnames)) ;_strcat 连接成字符串
      );end repeat
      (prompt "\nFiles have been Detached:")
      (princ Rnames)
);end progn
    );end if
(princ)
)

(prompt "\n<拆离选定参照文件> 命令：XFD  ------by sixth 2010-11-17")    ;提示如何执行程序

; ------------------- Detach all reference files ---------------------
; XFDA
; --------------------------------------------------------------------
(Defun C:XFDA ( )    ;定義“拆离所有外部参照”命令
(setvar "cmdecho" 0) ;命令执行过程不回显提示和输入
(command "-xref" "Detach" "*")
    (princ)
)

(prompt "\n<拆离所有外部参照> 命令：XFDA  ------by sixth 2010-10-25")    ;提示如何执行程序

; -------------------- Bind selected reference files ---------------------
; XFB
; --------------------------------------------------------------------------

(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)
)

(prompt "\n<绑定选定参照文件> 命令：XFB  ------by sixth 2013-09-29")    ;提示如何执行程序

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

smartstar · 发表于 2013-9-3 12:53

谢谢楼主，很给力！

richine001 · 发表于 2013-9-3 14:50

太好了，正好要学习下参照的东西

cgmacby · 发表于 2013-9-3 16:57

有没有改相对路径与绝对路径的东西~~~~~~~~~~~~

sixth · 发表于 2013-9-3 18:07

相对路径和绝对路径我没改过，不好意思哦~~~~~~~~~

lingduwx · 发表于 2013-9-4 09:33

外部参照学习中

vvcd · 发表于 2013-9-5 14:14

太好了，参照的命令大集合哈

lingduwx · 发表于 2013-9-5 19:19

顶一下，留个脚印

357785513 · 发表于 2013-9-6 21:48

好,程序写得好

sixth · 发表于 2013-9-29 10:30

绑定文件有对话框，我水平有限，搞不定，哪位大侠给编两个绑定（绑定选定参照、绑定所有参照）的命令吧，就全了，先谢谢了

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

[源码] 外部参照命令（全）加载、卸载、拆离、绑定[源码]

评分

本帖被以下淘专辑推荐: