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

dcl1214

2015年我开始对cad的【链接】【优化】【内部】【独立空间】【本地】感兴趣（持续几年时间），发现要想全部支持这些编译选项，必须有良好的代码习惯，如果没有良好的代码习惯，所编译出来的fas反编译后直接就是源码，如果养成了良好的代码习惯，编译出来的fas不仅【执行速度快】【函数变成了流水码】【体积缩小到三分之一】（setq后面的变量名字也变成了流水码）（cad自己的很多函数也会改成流水码），而且不容易反编译，即便是反编译出来，代码也失去了可读性了，本帖子重点是讨论良好代码习惯便于编译，大家遇一起讨论

你有种再说一遍

用代码解决代码的事情,直接制作一个lisp编译器,
然后启动编译之后把函数名换成流水号...
还能直接把lisp编译成c++或者c#的dll....

dcl1214

mapcar 后面的 lambda之前必须添加function
例如：

1. (mapcar        '(lambda (a)
   
2.            (tt a);tt是自定义函数
   
3.          )
   
4.         (list 1 2 3 4 5)
   
5. )
   
6. ;以上的tt编译后就是源码，因为一撇是解析执行，所以，cad编译的时候不做流水码处理
   
7. 
   
8. ;以下的tt编译后不是源码了，因为去掉了一撇，变成了【优化链接】，其函数被cad改成了流水码
   
9. (mapcar        (function (lambda (a)
   
10.                     (tt a)                ;tt是自定义函数
    
11.                   )
    
12.         )
    
13.         (list 1 2 3 4 5)
    
14. )

(mapcar        '(lambda (a)<br />            (tt a);tt是自定义函数<br />          )<br />         (list 1 2 3 4 5)<br /> )<br /> ;以上的tt编译后就是源码，因为一撇是解析执行，所以，cad编译的时候不做流水码处理<br /> <br /> ;以下的tt编译后不是源码了，因为去掉了一撇，变成了【优化链接】，其函数被cad改成了流水码<br /> (mapcar        (function (lambda (a)<br />                     (tt a)                ;tt是自定义函数<br />                   )<br />         )<br />         (list 1 2 3 4 5)<br /> )

dcl1214

全局变量慎用

1. (SETQ *ACAD* (vlax-get-acad-object)
   
2.       *DOC*  (vla-get-ActiveDocument *ACAD*)
   
3.       *MS*   (vla-get-modelSpace *DOC*)
   
4.       *PS*   (vla-get-paperSpace *DOC*)
   
5. )
   
6. ;改成以下写法：
   
7. 
   
8. (SETQ ACAD (vlax-get-acad-object))
   
9. (SETQ DOC (vla-get-ActiveDocument (vlax-get-acad-object)))
   
10. (SETQ MS (vla-get-modelSpace
    
11.            (vla-get-ActiveDocument (vlax-get-acad-object))
    
12.          )
    
13. )
    
14. (SETQ PS (vla-get-paperSpace
    
15.            (vla-get-modelSpace
    
16.              (vla-get-ActiveDocument (vlax-get-acad-object))
    
17.            )
    
18.          )
    
19. )
    
20. ;如果以上全局变量被很多地方引用，建议在每一个defun函数内部单独输入，且添加到  /  后面做成局部变量，编译后，cad可能会改成流水码，连cad自己的函数都可能变成流水码
    

(SETQ *ACAD* (vlax-get-acad-object)<br />       *DOC*  (vla-get-ActiveDocument *ACAD*)<br />       *MS*   (vla-get-modelSpace *DOC*)<br />       *PS*   (vla-get-paperSpace *DOC*)<br /> )<br /> ;改成以下写法：<br /> <br /> (SETQ ACAD (vlax-get-acad-object))<br /> (SETQ DOC (vla-get-ActiveDocument (vlax-get-acad-object)))<br /> (SETQ MS (vla-get-modelSpace<br />            (vla-get-ActiveDocument (vlax-get-acad-object))<br />          )<br /> )<br /> (SETQ PS (vla-get-paperSpace<br />            (vla-get-modelSpace<br />              (vla-get-ActiveDocument (vlax-get-acad-object))<br />            )<br />          )<br /> )<br /> ;如果以上全局变量被很多地方引用，建议在每一个defun函数内部单独输入，且添加到  /  后面做成局部变量，编译后，cad可能会改成流水码，连cad自己的函数都可能变成流水码<br />

Bao_lai

dcl1214 发表于 2024-4-15 09:25
mapcar 后面的 lambda之前必须添加function

杜老板举个具体的例子么？

dcl1214

set  尽可能改成setq  
例如：

1. (mapcar 'set(list 'a 'b)(tt (list (cons "名称" "玉玺")(cons "颜色" ""))))
   
2. ;改成以下写法
   
3. (setq s(tt (list (cons "名称" "玉玺")(cons "颜色" ""))));编译后变量s可能会被改成流水码
   
4. (setq a(car s));编译后变量a可能会被改成流水码
   
5. (setq b(cadr s));编译后变量b可能会被改成流水码
   

(mapcar 'set(list 'a 'b)(tt (list (cons "名称" "玉玺")(cons "颜色" ""))))<br /> ;改成以下写法<br /> (setq s(tt (list (cons "名称" "玉玺")(cons "颜色" ""))));编译后变量s可能会被改成流水码<br /> (setq a(car s));编译后变量a可能会被改成流水码<br /> (setq b(cadr s));编译后变量b可能会被改成流水码<br />

叮咚

dcl1214 发表于 2024-4-15 09:28
以下写法不可取，尽可能不要用
(SETQ *ACAD* (vlax-get-acad-object)
      *DOC*  (vla-get-ActiveDocum ...

那写成什么样好呢？

丶吟游诗人灬

感觉能跑就行  不追求这些

baitang36

很值得学习。

ssyfeng

dcl1214 发表于 2024-4-15 09:28
全局变量慎用

我也不喜欢用全局变量，不过很多用户喜欢记住上次操作的一些值，为下次命令启动时减少输入。所以有时也没办法

ssyfeng

baitang36 发表于 2024-4-15 09:51
很值得学习。

大侠，你对fas了解的这么深入，也分享下心得呀