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

sixth

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


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

xinxin379

楼主的绑定有点小问题，我修改后发上去：

2. Xref_V2.3.lsp
   
3. 
   
4. ;Xref 命令：
   
5. ;Reload/重载        Unload/卸载        Detach/拆离        Bind/绑定
   
6. 
   
7. ;XFR        重载选定
   
8. ;XFRA        重载所有
   
9. ;XFX        卸载选定
   
10. ;XFXA        卸载所有
    
11. ;XFD        拆离选定
    
12. ;XFDA        拆离所有
    
13. ;XFB        绑定选定
    
14. ;XFBA        绑定所有
    
15. 
    
16. ; -------------------- Reload selected reference files ---------------------
    
17. ; XFR  
    
18. ; --------------------------------------------------------------------------
    
19. (Defun C:XFR ( )        ;定義“重载选定参照文件”命令
    
20. 
    
21.         (setvar "cmdecho" 0)        ;命令执行过程不回显提示和输入
    
22. 
    
23.           (princ "\n选定要重新载入的参照文件:")
    
24. 
    
25.           (if (setq SS (ssget))
    
26.                     (progn
    
27.                               (setq Rnames "")
    
28.                               (repeat
    
29.                                 (setq I (sslength SS))
    
30.                                 (setq E (ssname SS (setq I (1- I))))
    
31.                                 (setq ELIST (entget E))
    
32.                                 (setq Rname (cdr (assoc 2 ELIST))) ;_参照名
    
33.                                 (command "-xref" "R" Rname)
    
34.                                 (setq Rnames (strcat Rname ", " Rnames)) ;_strcat 连接成字符串
    
35.                               );end repeat
    
36.                               (prompt "\n已经重载的文件为:")
    
37.                               (princ Rnames)
    
38.                     );end progn
    
39.           );end if
    
40.         (princ)
    
41. )
    
42. 
    
43. (prompt "\n<重载选定参照文件> 命令：XFR  ------by sixth 2010-11-17")         ;提示如何执行程序
    
44. 
    
45. 
    
46. 
    
47. ; ------------------- Reload all reference files ---------------------
    
48. ; XFRA
    
49. ; --------------------------------------------------------------------
    
50. (Defun C:XFRA ( )          ;定義“重新加载所有外部参照”命令
    
51.         (setvar "cmdecho" 0)                ;命令执行过程不回显提示和输入
    
52.         (command "-xref" "R" "*")
    
53.           (princ)
    
54. )
    
55. 
    
56. (prompt "\n<重新加载所有外部参照> 命令：XFRA  ------by sixth 2010-10-13")         ;提示如何执行程序
    
57. 
    
58. 
    
59. 
    
60. ; -------------------- Unload selected reference files ---------------------
    
61. ; XFX
    
62. ; --------------------------------------------------------------------------
    
63. (Defun C:XFX ( )        ;定義“卸载选定参照文件”命令
    
64. 
    
65.         (setvar "cmdecho" 0)        ;命令执行过程不回显提示和输入
    
66. 
    
67.           (princ "\n选择要卸载的外部参照对象:")
    
68. 
    
69.           (if (setq SS (ssget))
    
70.                     (progn
    
71.                               (setq Rnames "")
    
72.                               (repeat
    
73.                                 (setq I (sslength SS))
    
74.                                 (setq E (ssname SS (setq I (1- I))))
    
75.                                 (setq ELIST (entget E))
    
76.                                 (setq Rname (cdr (assoc 2 ELIST))) ;_参照名
    
77.                                 (command "-xref" "U" Rname)
    
78.                                 (setq Rnames (strcat Rname ", " Rnames)) ;_strcat 连接成字符串
    
79.                               );end repeat
    
80.                               (prompt "\n已卸载的外部参照文件是:")
    
81.                               (princ Rnames)
    
82.                     );end progn
    
83.           );end if
    
84.         (princ)
    
85. )
    
86. 
    
87. (prompt "\n<卸载选定参照文件> 命令：XFX  ------by sixth 2010-11-17")         ;提示如何执行程序
    
88. 
    
89. 
    
90. 
    
91. ; ------------------- Unload all reference files ---------------------
    
92. ; XFXA
    
93. ; --------------------------------------------------------------------
    
94. (Defun C:XFXA ( )          ;定義“卸载所有外部参照”命令
    
95.         (setvar "cmdecho" 0)                ;命令执行过程不回显提示和输入
    
96.         (command "-xref" "U" "*")
    
97.           (princ)
    
98. )
    
99. 
    
100. (prompt "\n<卸载所有外部参照> 命令：XFXA  ------by sixth 2010-10-13")         ;提示如何执行程序
     
101. 
     
102. 
     
103. 
     
104. 
     
105. ; -------------------- Detach selected reference files ---------------------
     
106. ; XFD
     
107. ; --------------------------------------------------------------------------
     
108. 
     
109. (Defun C:XFD ( )        ;定義“拆离选定参照文件”命令
     
110. 
     
111.         (setvar "cmdecho" 0)        ;命令执行过程不回显提示和输入
     
112. 
     
113.           (princ "\n选择要拆离的外部参照对象:")
     
114. 
     
115.           (if (setq SS (ssget))
     
116.                     (progn
     
117.                               (setq Rnames "")
     
118.                               (repeat
     
119.                                 (setq I (sslength SS))
     
120.                                 (setq E (ssname SS (setq I (1- I))))
     
121.                                 (setq ELIST (entget E))
     
122.                                 (setq Rname (cdr (assoc 2 ELIST))) ;_参照名
     
123.                                 (command "-xref" "Detach" Rname)
     
124.                                 (setq Rnames (strcat Rname ", " Rnames)) ;_strcat 连接成字符串
     
125.                               );end repeat
     
126.                               (prompt "\n已拆离的外部参照文件为:")
     
127.                               (princ Rnames)
     
128.                     );end progn
     
129.           );end if
     
130.         (princ)
     
131. )
     
132. 
     
133. (prompt "\n<拆离选定参照文件> 命令：XFD  ------by sixth 2010-11-17")         ;提示如何执行程序
     
134. 
     
135. 
     
136. 
     
137. 
     
138. ; ------------------- Detach all reference files ---------------------
     
139. ; XFDA
     
140. ; --------------------------------------------------------------------
     
141. (Defun C:XFDA ( )          ;定義“拆离所有外部参照”命令
     
142.         (setvar "cmdecho" 0)                ;命令执行过程不回显提示和输入
     
143.         (command "-xref" "Detach" "*")
     
144.           (princ)
     
145. )
     
146. 
     
147. (prompt "\n<拆离所有外部参照> 命令：XFDA  ------by sixth 2010-10-25")         ;提示如何执行程序
     
148. 
     
149. 
     
150. 
     
151. 
     
152. ; -------------------- Bind selected reference files ---------------------
     
153. ; XFB
     
154. ; --------------------------------------------------------------------------
     
155. 
     
156. (Defun C:XFB ( )        ;定義“绑定选定参照文件”命令
     
157. 
     
158.         (setvar "cmdecho" 0)        ;命令执行过程不回显提示和输入
     
159. 
     
160.           (princ "\n选择要绑定的外部参照对象:")
     
161. 
     
162.           (if (setq SS (ssget))
     
163.                     (progn
     
164.                               (setq Rnames "")
     
165.                         (setq oldBT (getvar "BINDTYPE"))
     
166.                         (setq BT (if (null BT) BT oldBT))
     
167.                         (setq BT_tmp
     
168.                                 (getstring
     
169.                                         (strcat "输入绑定类型[绑定(0)/插入(1)]<" (itoa BT) ">: ")
     
170.                                 )
     
171.                         )
     
172.                         (if (null BT_tmp) (setq BT_tmp BT))
     
173.                         (setq BT (atoi BT_tmp))
     
174.                         (setvar "BINDTYPE" BT)
     
175.                               (repeat
     
176.                                 (setq I (sslength SS))
     
177.                                 (setq E (ssname SS (setq I (1- I))))
     
178.                                 (setq ELIST (entget E))
     
179.                                 (setq Rname (cdr (assoc 2 ELIST))) ;_参照名
     
180.                                 (command "-xref" "Bind" Rname)
     
181.                                 (setq Rnames (strcat Rname ", " Rnames)) ;_strcat 连接成字符串
     
182.                               );end repeat
     
183.                         (setvar "BINDTYPE" oldBT)
     
184.                               (prompt "\n已绑定的外部参照文件为:")
     
185.                               (princ Rnames)
     
186.                     );end progn
     
187.           );end if
     
188.         (princ)
     
189. )
     
190. 
     
191. (prompt "\n<绑定选定参照文件> 命令：XFB  ------by sixth 2013-09-29")         ;提示如何执行程序
     
192. 
     
193. 
     
194. 
     
195. 
     
196. ; ------------------- Bind all reference files ---------------------
     
197. ; XFBA
     
198. ; --------------------------------------------------------------------
     
199. (Defun C:XFBA ( )          ;定義“绑定所有外部参照”命令
     
200.         (setvar "cmdecho" 0)                ;命令执行过程不回显提示和输入
     
201.         (setq oldBT (getvar "BINDTYPE"))
     
202.         (setq BT (if (null BT) BT oldBT))
     
203.         (setq BT_tmp
     
204.                 (getstring
     
205.                         (strcat "输入绑定类型[绑定(0)/插入(1)]<" (itoa BT) ">: ")
     
206.                 )
     
207.         )
     
208.         (if (null BT_tmp) (setq BT_tmp BT))
     
209.         (setq BT (atoi BT_tmp))
     
210.         (setvar "BINDTYPE" BT)
     
211.         (command "-xref" "Bind" "*")
     
212.         (setvar "BINDTYPE" oldBT)
     
213.           (princ)
     
214. )
     
215. 
     
216. (prompt "\n<绑定所有外部参照> 命令：XFBA  ------by sixth 2013-09-29")         ;提示如何执行程序

Xref_V2.3.lsp<br /> <br /> ;Xref 命令：<br /> ;Reload/重载        Unload/卸载        Detach/拆离        Bind/绑定<br /> <br /> ;XFR        重载选定<br /> ;XFRA        重载所有<br /> ;XFX        卸载选定<br /> ;XFXA        卸载所有<br /> ;XFD        拆离选定<br /> ;XFDA        拆离所有<br /> ;XFB        绑定选定<br /> ;XFBA        绑定所有<br /> <br /> ; -------------------- Reload selected reference files ---------------------<br /> ; XFR  <br /> ; --------------------------------------------------------------------------<br /> (Defun C:XFR ( )        ;定義“重载选定参照文件”命令<br /> <br />         (setvar "cmdecho" 0)        ;命令执行过程不回显提示和输入<br /> <br />           (princ "\n选定要重新载入的参照文件:")<br /> <br />           (if (setq SS (ssget))<br />                     (progn<br />                               (setq Rnames "")<br />                               (repeat <br />                                 (setq I (sslength SS))<br />                                 (setq E (ssname SS (setq I (1- I))))<br />                                 (setq ELIST (entget E))<br />                                 (setq Rname (cdr (assoc 2 ELIST))) ;_参照名<br />                                 (command "-xref" "R" Rname)<br />                                 (setq Rnames (strcat Rname ", " Rnames)) ;_strcat 连接成字符串<br />                               );end repeat<br />                               (prompt "\n已经重载的文件为:")<br />                               (princ Rnames)<br />                     );end progn<br />           );end if<br />         (princ)<br /> )<br /> <br /> (prompt "\n<重载选定参照文件> 命令：XFR  ------by sixth 2010-11-17")         ;提示如何执行程序<br /> <br /> <br /> <br /> ; ------------------- Reload all reference files ---------------------<br /> ; XFRA<br /> ; --------------------------------------------------------------------<br /> (Defun C:XFRA ( )          ;定義“重新加载所有外部参照”命令<br />         (setvar "cmdecho" 0)                ;命令执行过程不回显提示和输入<br />         (command "-xref" "R" "*") <br />           (princ)<br /> )<br /> <br /> (prompt "\n<重新加载所有外部参照> 命令：XFRA  ------by sixth 2010-10-13")         ;提示如何执行程序<br /> <br /> <br /> <br /> ; -------------------- Unload selected reference files ---------------------<br /> ; XFX<br /> ; --------------------------------------------------------------------------<br /> (Defun C:XFX ( )        ;定義“卸载选定参照文件”命令<br /> <br />         (setvar "cmdecho" 0)        ;命令执行过程不回显提示和输入<br /> <br />           (princ "\n选择要卸载的外部参照对象:")<br /> <br />           (if (setq SS (ssget))<br />                     (progn<br />                               (setq Rnames "")<br />                               (repeat <br />                                 (setq I (sslength SS))<br />                                 (setq E (ssname SS (setq I (1- I))))<br />                                 (setq ELIST (entget E))<br />                                 (setq Rname (cdr (assoc 2 ELIST))) ;_参照名<br />                                 (command "-xref" "U" Rname)<br />                                 (setq Rnames (strcat Rname ", " Rnames)) ;_strcat 连接成字符串<br />                               );end repeat<br />                               (prompt "\n已卸载的外部参照文件是:")<br />                               (princ Rnames)<br />                     );end progn<br />           );end if<br />         (princ)<br /> )<br /> <br /> (prompt "\n<卸载选定参照文件> 命令：XFX  ------by sixth 2010-11-17")         ;提示如何执行程序<br /> <br /> <br /> <br /> ; ------------------- Unload all reference files ---------------------<br /> ; XFXA<br /> ; --------------------------------------------------------------------<br /> (Defun C:XFXA ( )          ;定義“卸载所有外部参照”命令<br />         (setvar "cmdecho" 0)                ;命令执行过程不回显提示和输入<br />         (command "-xref" "U" "*") <br />           (princ)<br /> )<br /> <br /> (prompt "\n<卸载所有外部参照> 命令：XFXA  ------by sixth 2010-10-13")         ;提示如何执行程序<br /> <br /> <br /> <br /> <br /> ; -------------------- Detach selected reference files ---------------------<br /> ; XFD<br /> ; --------------------------------------------------------------------------<br /> <br /> (Defun C:XFD ( )        ;定義“拆离选定参照文件”命令<br /> <br />         (setvar "cmdecho" 0)        ;命令执行过程不回显提示和输入<br /> <br />           (princ "\n选择要拆离的外部参照对象:")<br /> <br />           (if (setq SS (ssget))<br />                     (progn<br />                               (setq Rnames "")<br />                               (repeat <br />                                 (setq I (sslength SS))<br />                                 (setq E (ssname SS (setq I (1- I))))<br />                                 (setq ELIST (entget E))<br />                                 (setq Rname (cdr (assoc 2 ELIST))) ;_参照名<br />                                 (command "-xref" "Detach" Rname)<br />                                 (setq Rnames (strcat Rname ", " Rnames)) ;_strcat 连接成字符串<br />                               );end repeat<br />                               (prompt "\n已拆离的外部参照文件为:")<br />                               (princ Rnames)<br />                     );end progn<br />           );end if<br />         (princ)<br /> )<br /> <br /> (prompt "\n<拆离选定参照文件> 命令：XFD  ------by sixth 2010-11-17")         ;提示如何执行程序<br /> <br /> <br /> <br /> <br /> ; ------------------- Detach all reference files ---------------------<br /> ; XFDA<br /> ; --------------------------------------------------------------------<br /> (Defun C:XFDA ( )          ;定義“拆离所有外部参照”命令<br />         (setvar "cmdecho" 0)                ;命令执行过程不回显提示和输入<br />         (command "-xref" "Detach" "*") <br />           (princ)<br /> )<br /> <br /> (prompt "\n<拆离所有外部参照> 命令：XFDA  ------by sixth 2010-10-25")         ;提示如何执行程序<br /> <br /> <br /> <br /> <br /> ; -------------------- Bind selected reference files ---------------------<br /> ; XFB<br /> ; --------------------------------------------------------------------------<br /> <br /> (Defun C:XFB ( )        ;定義“绑定选定参照文件”命令<br /> <br />         (setvar "cmdecho" 0)        ;命令执行过程不回显提示和输入<br /> <br />           (princ "\n选择要绑定的外部参照对象:")<br /> <br />           (if (setq SS (ssget))<br />                     (progn<br />                               (setq Rnames "")<br />                         (setq oldBT (getvar "BINDTYPE"))<br />                         (setq BT (if (null BT) BT oldBT))<br />                         (setq BT_tmp <br />                                 (getstring <br />                                         (strcat "输入绑定类型[绑定(0)/插入(1)]<" (itoa BT) ">: ")<br />                                 )<br />                         )<br />                         (if (null BT_tmp) (setq BT_tmp BT))<br />                         (setq BT (atoi BT_tmp))<br />                         (setvar "BINDTYPE" BT)<br />                               (repeat <br />                                 (setq I (sslength SS))<br />                                 (setq E (ssname SS (setq I (1- I))))<br />                                 (setq ELIST (entget E))<br />                                 (setq Rname (cdr (assoc 2 ELIST))) ;_参照名<br />                                 (command "-xref" "Bind" Rname)<br />                                 (setq Rnames (strcat Rname ", " Rnames)) ;_strcat 连接成字符串<br />                               );end repeat<br />                         (setvar "BINDTYPE" oldBT)<br />                               (prompt "\n已绑定的外部参照文件为:")<br />                               (princ Rnames)<br />                     );end progn<br />           );end if<br />         (princ)<br /> )<br /> <br /> (prompt "\n<绑定选定参照文件> 命令：XFB  ------by sixth 2013-09-29")         ;提示如何执行程序<br /> <br /> <br /> <br /> <br /> ; ------------------- Bind all reference files ---------------------<br /> ; XFBA<br /> ; --------------------------------------------------------------------<br /> (Defun C:XFBA ( )          ;定義“绑定所有外部参照”命令<br />         (setvar "cmdecho" 0)                ;命令执行过程不回显提示和输入<br />         (setq oldBT (getvar "BINDTYPE"))<br />         (setq BT (if (null BT) BT oldBT))<br />         (setq BT_tmp <br />                 (getstring <br />                         (strcat "输入绑定类型[绑定(0)/插入(1)]<" (itoa BT) ">: ")<br />                 )<br />         )<br />         (if (null BT_tmp) (setq BT_tmp BT))<br />         (setq BT (atoi BT_tmp))<br />         (setvar "BINDTYPE" BT)<br />         (command "-xref" "Bind" "*") <br />         (setvar "BINDTYPE" oldBT)<br />           (princ)<br /> )<br /> <br /> (prompt "\n<绑定所有外部参照> 命令：XFBA  ------by sixth 2013-09-29")         ;提示如何执行程序

开心无惧

xinxin379 发表于 2018-3-23 21:33
楼主的绑定有点小问题，我修改后发上去：

请问下  绑定命令弹出  应该怎样处理  


错误: 参数类型错误: fixnump: nil

qinhengda

针对大家说绑定仍有问题，解决办法如下：

把XFB和XFBA子程序中的这一行“ (setq BT (if (null BT) BT oldBT))”改为“(setq BT oldBT)”，就可以正常绑定了，亲测有效的。

smartstar

谢谢楼主，很给力！

richine001

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

cgmacby

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

sixth

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

lingduwx

外部参照学习中

vvcd

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

lingduwx

顶一下，留个脚印

357785513

好,程序写得好

sixth

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