柴月二号 发表于 2016-5-17 17:21:12

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

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

feng83 发表于 2016-5-17 18:44:12

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

柴月二号 发表于 2016-5-17 19:02:00

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

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

柴月二号 发表于 2016-5-17 19:13:21

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

feng83 发表于 2016-5-17 19:45:24

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

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

柴月二号 发表于 2016-5-17 21:04:09

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

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

fl202 发表于 2016-5-18 10:35:25

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

自贡黄明儒 发表于 2016-5-18 11:07:07

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

将下面原代码放在主程序中或者acad.lsp中,即保证执行
(setq Notice "阿拉欢迎你")
(vl-propagate 'HH:flag)
(cond (HH:flag nil)
      (T (setq HH:flag (not (apply 'alert (list Notice)))))
)

nzl1116 发表于 2016-5-18 13:19:09

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

柴月二号 发表于 2016-5-18 17:33:49

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



谢谢黄总,这个跟 alert效果一样,但还是不行。估计要加判断
页: [1] 2
查看完整版本: 请教老师如何让 自动执行的程序 仅执行一次