容易上手cad（新年玩出CAD新花样）

辞旧迎新，又即将是个新年度。要知道工科生也是有浪漫细胞的。那么怎么用你擅长的CAD送一个别具生面的祝福呢。不用你费脑细胞，都给你准备好了。

打开记事本，复制以下语句到记事本保存，修改文件名为hh.lsp。

(defun c:hh ();定义快捷键名称hh

(setq a " ");文字前空格

(setq b "元旦快乐，");第一行输入元旦快乐

(setq c "\n");回车

(setq d " ");第二行文字前空格

(setq e "万事胜意！");第二行文字万事胜意

(setq f "\n祝你早安午安晚安^_^");回车，第三行文字祝你早安午安晚安

(setq hh (strcat a b c d e f));将所有文字合并，并赋值给hh

(alert hh);输出hh的值

(prin1)

)

菜单栏，工具，加载应用程序，命令行输入hh，即可跳出来祝福窗口。

可能懂程序的童鞋已经看出来了，这个实现窗口的重要函数是alert，alert以上是赋值函数，也可以把这些文字直接放到alert后，也可以实现。所以，如果想要简单点来的，恰逢佳节，整个告白界面的也不是不行。

打开记事本，复制以下语句到记事本保存，修改文件名为jx.lsp。

(defun c:jx ();定义快捷键名称惊喜jx

(alert "世界上有一个可爱的人\n不知她是否会喜欢我的分享：\n\n我想给她发一份歌单\n喜剧之王\n欢颜\n你的名字\n\n她会接收么？");

(prin1)

)

如果你要告白的是个男生，那就复制以下语句到记事本保存，修改文件名为jx.lsp。

(defun c:jx ();定义快捷键名称惊喜jx

(alert "世界上有一个很酷的人\n不知他是否会喜欢我的分享：\n\n我想给他发一份歌单\n喜剧之王\n欢颜\n你的名字\n\n他会接收么？");

(prin1)

)

然后把文件发给对方。让她/他加载下应用程序（菜单栏，工具，加载应用程序）命令行输入文件的名称即快捷键jx，即可跳出来告白窗口。

但是，你可要先读懂藏头，这么明显的藏头不用解释了吧。方法都给你了，就等你按下发送键，等你们好消息！

完，祝大家新年快乐！

#2021年终职场盘点#