关于良好代码习惯有助于编译fas以及程序稳定的讨论

东升铮

你有种再说一遍 发表于 2024-4-15 16:42
用代码解决代码的事情,直接制作一个lisp编译器,
然后启动编译之后把函数名换成流水号...
还能直接把lisp ...

工程量很大，光一个 1to2 的解释器就够折腾的， 当年是可以编译成.arx 文件的，这样玩的话，又回到以前咯。

chslwj521

随然现在没明白，先收藏有待以后学习，向大师致敬！

dcl1214

以下良好习惯虽然不是有助于编译程序，但是有助于代码稳定性

1. (getpoint "请点击一点")

(getpoint "请点击一点")

如果用户按下了esc，那么就会导致程序退出，一旦程序退出，你还要在代码里面加上出错恢复，为了不让用户乱操作导致程序出错，请改成以下代码：

1. (while (not p)
   
2.   (setq p (vl-catch-all-apply 'getpoint (list "请点击一点\nQ  退出")))
   
3.   (if (vl-catch-all-error-p p)
   
4.     (progn(setq p nil)(alert "你想退出吗？可以叫开发人员通过initget控制您使用Q代替esc"))
   
5.   )
   
6. )

(while (not p)<br />   (setq p (vl-catch-all-apply 'getpoint (list "请点击一点\nQ  退出")))<br />   (if (vl-catch-all-error-p p)<br />     (progn(setq p nil)(alert "你想退出吗？可以叫开发人员通过initget控制您使用Q代替esc"))<br />   )<br /> )

这一段代码就可以屏蔽用户的esc的错误行为

你有种再说一遍

  2024-4-17 06:36
1to2  .arx  ...

lisp还嫌工程量大哦,那做一个lua和python不得疯了