求一小程序！

cjjh8301

为了能使画图界面最大化，我把能关掉的工具栏都关掉了，包括最下方的那条，因此在DWG参照要重载时，那个提示气泡也没有了，每次重载参照都要去菜单里点出选项板再重载，那位前辈帮我写个小程序，实现直接用快捷键重载DWG参照，谢谢！

adc

(defun c:tt ()
(command "-xref" "r" "*")
(princ "\n*** 外部参照已经重载 ***")
  (princ)
)

cjjh8301

[em0][em0][em0][em0][em0]

gamemaster

帮你顶一顶。

wowan1314

xref是这个命令吗？

wowan1314

看看你要的是哪个？

命令  
ADCENTER
管理和插入块、外部参照和填充图案等内容

REFCLOSE
存回或放弃在位编辑参照（外部参照或块）时所作的修改

REFEDIT
选择要编辑的参照

REFSET
在位编辑参照（外部参照或块）时在工作集中添加或删除对象

RENAME
修改对象名

SHADEMODE
控制在当前视口中实体对象着色的显示

TRAYSETTINGS
控制在状态栏系统托盘内显示图标和通告

XATTACH
将外部参照附着到当前图形

XBIND
绑定一个或多个在外部参照里的命名对象定义到当前的图形

XCLIP
定义外部参照或块剪裁边界，并设置前剪裁面或后剪裁面

XREF
控制图形文件的外部参照

系统变量  
BINDTYPE
控制绑定或在位编辑外部参照时外部参照名称的处理方式

INDEXCTL
控制是否创建图层和空间索引并保存到图形文件中

REFEDITNAME
显示正在被编辑的参照名称

TRAYICONS
控制是否在状态栏上显示系统托盘

TRAYNOTIFY
控制是否在状态栏系统托盘上显示服务通知

TRAYTIMEOUT
控制服务通知显示的时间长短（用秒）

VISRETAIN
控制依赖外部参照的图层的可见性、颜色、线型、线宽和打印样式

XCLIPFRAME
控制外部参照剪裁边界的可见性

XEDIT
控制当前图形被其他图形参照时是否可以在位编辑

XFADECTL
控制在位编辑的外部参照的颜色淡化程度百分比

XLOADCTL
打开或关闭外部参照文件的按需加载功能，控制打开原始图形还是打开副本

XLOADPATH
创建用于存储按需加载的外部参照文件临时副本的路径

XREFCTL
控制 AutoCAD 是否写入外部参照日志 (XLG) 文件

XREFNOTIFY
控制对已改变或丢失的外部参照的通知

cjjh8301

wowan1314 发表于 2013-4-6 16:35
xref是这个命令吗？

xref  是打开面板，我指的是一键或一个命令重载参照。

cjjh8301

adc 发表于 2013-4-8 14:31
(defun c:tt ()
(command "-xref" "r" "*")
(princ "\n*** 外部参照已经重载 ***")

可用，谢谢！

水仙的错

这个非常实用，很好