请教老师如何让 自动执行的程序 仅执行一次

柴月二号

比如将  (alert "明经cad社区欢迎您")  加入启动组后    每次打开cad都会自动执行，现在我想让他新建图形或再打开图形时不再提示应该如何更改，也就是只提示一次，请教各位老师

feng83

你都没说请，要什么时候执行，什么时候不执行，你现在加进启动组是每次都执行，想要新建或打开图形时不执行，是永久不执行，还是要什么情况下执行，说请楚点[em0][em0]

柴月二号

feng83 发表于 2016-5-17 18:44
你都没说请，要什么时候执行，什么时候不执行，你现在加进启动组是每次都执行，想要新建或打开图形时不执行 ...

就是第一次打开cad图形执行    之后新建图形不执行

柴月二号

如果程序执行一次    下次便不再执行

feng83

柴月二号 发表于 2016-5-17 19:02
就是第一次打开cad图形执行    之后新建图形不执行

第一次安装程序运行一次？还是今天开了CAD，只要这个CAD窗口不关，在这个窗口新建，或打开，都显示？
第二次双击CAD图标又显示？

柴月二号

feng83 发表于 2016-5-17 19:45
第一次安装程序运行一次？还是今天开了CAD，只要这个CAD窗口不关，在这个窗口新建，或打开，都显示？
第 ...

只要cad窗口不关，新建不再显示

fl202

楼主的意思是不是？：每次cad软件启动时运行一次，只要cad软件不关闭，则不再执行本程序。
弄个txt文件做判断吧。

自贡黄明儒

如果想cad启动显示一次，看看下面的代码能不能解决。
我没有试过

将下面原代码放在主程序中或者acad.lsp中，即保证执行

1. (setq Notice "阿拉欢迎你")
   
2. (vl-propagate 'HH:flag)
   
3. (cond (HH:flag nil)
   
4.       (T (setq HH:flag (not (apply 'alert (list Notice)))))
   
5. )

(setq Notice "阿拉欢迎你")<br /> (vl-propagate 'HH:flag)<br /> (cond (HH:flag nil)<br />       (T (setq HH:flag (not (apply 'alert (list Notice)))))<br /> )

nzl1116

你们搞这么复杂做什么，弄个黑板变量不就定了。

柴月二号

自贡黄明儒 发表于 2016-5-18 11:07
如果想cad启动显示一次，看看下面的代码能不能解决。
我没有试过

谢谢黄总，这个跟 alert  效果一样，但还是不行。估计要加判断