CAD超酷启动界面,让你与众不同,玩出自我个性

rq28

CAD超酷启动界面,让你与众不同
;|
AutoCAD 个性超酷启动界面
送给所有热爱 AutoCAD 的朋友们
每次启动 AutoCAD ，你都可以分别依次在指定时间秒内显示 不同颜色不同字体不同内容 的  文字  及  当天日期 ，随后进入到平常使用界面
让你的 AutoCAD ，绝对与众不同
LISP 代码，行行有注释，让你用的明白，改的放心
启动开机画面纯 LISP 文件 --- QDKJHM
《钢构CAD》作者：何人强-----2007年10月13日于昆明加注释整理
《钢构CAD》原始版程序及最新升级包免费下载网址:
http://co.163.com/forum/content/1783_595556_1.htm
更多具体文章详见作者博客 http://hrq.1028.blog.163.com 查看
下行为在“控制台”内运行的编释代码，经编释之后的文件不能被修改，此时取走本 LISP 文件，则此启动界面无人能改
(VLISP-COMPILE 'ST "QDKJHM")
|;
;;;(defun C:A (;此行为调试用简洁命令 A  与下行只可择其一而用
(defun CDKJHM ( ;程序正式命令 QDKJHM  与上行只可择其一而用
/ txt rq rq-1 rq-2 rq-3 rq-4 ;局部变量
);
(setq rq (rtos (getvar "cdate") 2 6));取得当前系统时间值
(setq rq-1 (substr rq 1 2));取得年前2位
(setq rq-2 (substr rq 3 2));取得年后2位
(setq rq-3 (substr rq 5 2));取得月
(setq rq-4 (substr rq 7 2));取得日
(command "layer" "C"  "1" "" "" );此处设置第一显示文字颜色为红色  "1"   =   1红、2黄、3绿、4青、5蓝、6紫、7白、8灰、9淡
(command "style" "" "黑体" "0" "1" "0" "N" "N");设置<字体样式>为 黑体 及 0 高 ，此处可改为CAD中能显示的其它字体，字高勿改
(command "TEXT" "C" "100,140" 6 "0" "2008 欢 迎 你" ); 写入文字 "2008 欢 迎 你" 其内容改任意改
(command "ZOOM" "E" );放大全部文字内容
(command "DELAY" "1500" );屏幕显示时间 1500 毫秒
(command "erase" "all" "");删除画面中全部内容
(SETQ txt (STRCAT rq-1 rq-2"年"rq-3"月"rq-4"日"));将多个字符组合成一个字符
(command "layer" "C"  "3" "" ""  );此处设置日期文字为绿色  "3"    =   1红、2黄、3绿、4青、5蓝、6紫、7白、8灰、9淡
(command "TEXT" "C" "100,75" 10 "0" txt  );写入文字 txt
(command "ZOOM" "E" );放大全部文字内容
(command "DELAY" "1000" );屏幕显示时间 1000 毫秒
(command "erase" "all" "");删除画面中全部内容
(command "layer" "C"  "7" "" "" );返回最初的启动0图层颜色为白色  "7"
(command "regen" );刷新屏幕
(PRINC);干净地退出
  );全部程序完
;|
一、根据不同爱好，设置不同的颜色分别显示文字内容及日期：
1、可将文字 "2008 欢 迎 你" 改为你喜欢的内容 ，可设置显示单，也可将文字颜色改为你的个性色
2、可将文字在屏幕上的显示时间调增加或减少 ，也可将文字颜色改为你的个性色

二、脚本文件
1、打开一个空记事本，将以下行复制进去，之后保存为 cad.scr 文件；
QDKJHM
2、将上行的脚本文件 cad.scr 与本 LISP 文件 QDKJHM.LSP ，两个文件同时保存在AutoCAD程序文件夹内即可；

三、两种调用方法（任选其一即可）：
方法一（此法可防止防止CAD操作中的误改）：
在AutoCAD程序文件夹内，打开 acaddoc.LSP 文件（当无此文件时，可新建一个此文件），在最后一行添加下行代码
(load "QDKJHM.LSP")

方法二（此法相对简单）：
在CAD运行界面下，点击：工具→加载运用程序→在启动组下点“内容”→点“加载”→此时文件类型选择“AutoLISP文件”→
在查找范围处打开AutoCAD安装文件夹，再点先前已保存在此处的QDKJHM.LSP文件→点添加→点关闭→点关闭

四、启动设置方法：
桌面CAD程序启动图标中点右键再点“属性”，目标栏最后加一个空格后添加下行内容:
/nologo /b cad
以上两斜杆分别表示：关闭启动画面，运行脚本 cad ，每个斜杆参数之间要设置一个空格

属性设置实例：
下行为目标栏中显示的程序路径：
"C:\Program Files\AutoCAD2004\acad.exe"
下行为添加启动代码之后
"C:\Program Files\AutoCAD2004\acad.exe" /nologo /b cad
|;

以下附件包含全部相关文件

rq28

让你的CAD与众不同

zzkkll

楼主这么厉害!真是大长见识!

zhou140

谢谢啦!长见识罗!!!!!

人生一梦

大长见识!    支持了