利用lisp写一个CAD弹窗新年祝福语

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

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

lisp程序：

(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。

lisp程序：

(defun  c:jx ();定义快捷键名称惊喜jx
  (alert  "世界上有一个可爱的人\n不知她是否会喜欢我的分享：\n\n我想给她发一份歌单\n喜剧之王\n欢颜\n你的名字\n\n她会接收么？");
  (prin1)
)

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

lisp程序：

(defun  c:jx ();定义快捷键名称惊喜jx
  (alert  "世界上有一个很酷的人\n不知他是否会喜欢我的分享：\n\n我想给他发一份歌单\n喜剧之王\n欢颜\n你的名字\n\n他会接收么？");
  (prin1)
)

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

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

完，祝大家新年快乐！

附上以上lisp程序：

提取码：2022

解压密码：关注CAD自学网微信公众号：cadzxw，回复“解压密码”获得。