利用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,即可跳出来祝福窗口。

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

可能懂程序的童鞋已经看出来了,这个实现窗口的重要函数是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写一个CAD弹窗新年祝福语

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

完,祝大家新年快乐!

附上以上lisp程序:点击下载

提取码:2022

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

THE END
分享
二维码
< <上一篇
下一篇>>