幕墙通用工具箱1.4-源码 08.03重新上传

ㄘ丶转裑ㄧ灬 · 发表于 2017-8-3 15:55:00

1月份发了第一版，因论坛的数据只恢复到去年11月前的，所以重新发个帖子。（感慨明总的坚持）
此版修改过一些BUG，对于原来付币下载过的同学可以回复说明，将返还此次下载的乐筑天下币。
（收币只是为了给自己的劳动一个安慰，也给新手一些动力活跃在论坛，所以就不设权限了）

nzrbyulj2ir.png

sttr4csbnec.png

bmudj4lpmzo.png

lx5ztcxhzvb.png

原来发第一版的时候写了很多东西，现在没时间，以后再写吧。
请先阅读文件夹里的使用说明。
大部分源码都不是我写的，我不会写复杂的代码，只是收集和整合。
（图库在附件中先删了，完善后再上传吧）

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

xxwz · 发表于 2018-7-10 16:56:00

copy

(while 
                     (or (eq (substr (setq lin (vl-string-right-trim "" fn)" (vl-string-left-trim "(write-line "" (read-line fn)))) 1 2) "//" ) 
                               (eq (substr lin 1 (vl-string-search " " lin)) "" ) 
                               (not (eq (substr lin (+ (vl-string-search " " lin) 1) 9) " : dialog" ))
                     )
             )

楼主方不方便解释下这段代码的作用呢？截图是我把foreach生成的dcl文件保存出来了。谢谢！

nqdzteywwzi.jpg