设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 外部参照命令（全）加载、卸载、拆离、绑定[源码]
123456下一页
返回列表 发新帖
楼主: sixth

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

  [复制链接]
li809
发表于 2017-9-9 23:26:49 | 显示全部楼层
参照的命令大集合哈，谢谢
回复 支持 反对

使用道具 举报

yangchao2005090
发表于 2017-12-17 18:37:02 | 显示全部楼层
参照的命令大集合哈，谢谢，有了快捷键方便多了
回复 支持 反对

使用道具 举报

土土木木人
发表于 2018-1-13 13:54:52 | 显示全部楼层
太好了，参照的命令大集合哈
回复 支持 反对

使用道具 举报

xinxin379
发表于 2018-3-23 21:33:22 | 显示全部楼层
楼主的绑定有点小问题，我修改后发上去：
  2. Xref_V2.3.lsp

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

  7. ;XFR        重载选定
  8. ;XFRA        重载所有
  9. ;XFX        卸载选定
  10. ;XFXA        卸载所有
  11. ;XFD        拆离选定
  12. ;XFDA        拆离所有
  13. ;XFB        绑定选定
  14. ;XFBA        绑定所有

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

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

  23.           (princ "\n选定要重新载入的参照文件:")

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

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



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

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



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

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

  67.           (princ "\n选择要卸载的外部参照对象:")

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

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



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

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




  105. ; -------------------- Detach selected reference files ---------------------
  106. ; XFD
  107. ; --------------------------------------------------------------------------

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

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

  113.           (princ "\n选择要拆离的外部参照对象:")

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

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




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

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




  152. ; -------------------- Bind selected reference files ---------------------
  153. ; XFB
  154. ; --------------------------------------------------------------------------

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

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

  160.           (princ "\n选择要绑定的外部参照对象:")

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

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




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

  216. (prompt "\n<绑定所有外部参照> 命令：XFBA  ------by sixth 2013-09-29")         ;提示如何执行程序

回复 支持 反对

使用道具 举报

依然小小鸟
发表于 2018-9-11 14:58:37 | 显示全部楼层
xinxin379 发表于 2018-3-23 21:33
楼主的绑定有点小问题，我修改后发上去：

貌似 绑定 还是有问题 有大神能改下吗
回复 支持 反对

使用道具 举报

依然小小鸟
发表于 2018-9-11 15:00:19 | 显示全部楼层
楼主 绑定有问题 能改下吗
回复 支持 反对

使用道具 举报

依然小小鸟
发表于 2018-9-11 15:04:32 | 显示全部楼层
如果能增加文件夹图纸 不打开图纸 执行参照就更好了
回复 支持 反对

使用道具 举报

583775698
发表于 2018-10-7 22:40:21 | 显示全部楼层
看看吧怎么样呢
回复 支持 反对

使用道具 举报

疯球
发表于 2018-10-7 23:30:36 | 显示全部楼层
顶一下，留个脚印
回复 支持 反对

使用道具 举报

纵横八方
发表于 2018-10-8 13:05:19 | 显示全部楼层
好流弊 很好用
回复 支持 反对

使用道具 举报

123456下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-11-16 05:29 , Processed in 0.161984 second(s), 20 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表