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

土土木木人

非常感谢楼主

土土木木人

非常感谢楼主的大作，这个先试用一下。

往事如烟

非常感谢楼主,可惜没币

往事如烟

谢谢 ㄘ丶转裑ㄧ灬 大佬送的明经币,

xiaofeifei

感谢您的更新,再下载一次!!!!

dasha321

谢谢大神，很好

onon20

非常感謝 真在遺憾數據恢復不了 你又發出來了~~感謝感謝~~

我愚故我在

非常感谢，真心想下载，就缺两个币

xxwz

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

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

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

taoyi0727

好东西  又没币了