[求助]请教高手，这段程序能否简化一下呢？
 

[求助]请教高手，这段程序能否简化一下呢？
www.dimcax.com
(setq fn1 (open tempfile "w"))
(write-line qpan1 fn1)
(write-line qpan2 fn1)
(write-line qpan3 fn1)
(write-line qpan4 fn1)
(write-line qpan5 fn1)
(write-line qpan6 fn1)
(write-line qpan7 fn1)
(write-line qpan8 fn1)
(write-line qpan9 fn1)
(write-line qpan10 fn1)
(write-line qpan11 fn1)
(write-line qpan12 fn1)
(write-line qpan13 fn1)
(write-line qpan14 fn1)
(write-line qpan15 fn1)
(write-line qpan16 fn1)
(write-line qpan17 fn1)
(write-line qpan18 fn1)
(write-line qpan19 fn1)
(write-line qpan20 fn1)
(write-line qpan21 fn1)
(write-line qpan22 fn1)
(write-line qpan23 fn1)
(write-line qpan24 fn1)
(write-line qpan25 fn1)
(write-line qpan26 fn1)
(write-line qpan27 fn1)
(write-line qpan28 fn1)
(write-line qpan29 fn1)
(write-line qpan30 fn1)
(write-line qpan31 fn1)
(write-line qpan32 fn1)
(write-line qpan33 fn1)
(write-line qpan34 fn1)
(write-line qpan35 fn1)
(write-line qpan36 fn1)
(write-line qpan37 fn1)
(write-line qpan38 fn1)
(write-line qpan39 fn1)
(write-line qpan40 fn1)
(write-line qpan41 fn1)
(write-line qpan42 fn1)
(write-line qpan43 fn1)
(write-line qpan44 fn1)
(write-line qpan45 fn1)
(write-line qpan46 fn1)
(write-line qpan47 fn1)
(write-line qpan48 fn1)
(write-line qpan49 fn1)
(write-line qpan50 fn1)
(write-line qpan51 fn1)
(write-line qpan52 fn1)
(write-line qpan53 fn1)
(write-line qpan54 fn1)
(write-line qpan55 fn1)
(write-line qpan56 fn1)
(write-line qpan57 fn1)
(write-line qpan58 fn1)
(write-line qpan59 fn1)
(write-line qpan60 fn1)
(write-line qpan61 fn1)
(write-line qpan62 fn1)
(write-line qpan63 fn1)
(write-line qpan64 fn1)
(write-line qpan65 fn1)
(write-line qpan66 fn1)
(write-line qpan67 fn1)
(write-line qpan68 fn1)
(write-line qpan69 fn1)
(write-line qpan70 fn1)
(write-line qpan71 fn1)
(write-line qpan72 fn1)
(write-line qpan73 fn1)
(write-line qpan74 fn1)
(write-line qpan75 fn1)
(write-line qpan76 fn1)
(write-line qpan77 fn1)
(write-line qpan78 fn1)
(write-line qpan79 fn1)
(write-line qpan80 fn1)
(write-line qpan66 fn1)
(write-line qpan67 fn1)
(write-line qpan68 fn1)
(write-line qpan69 fn1)
(write-line qpan70 fn1)
(write-line qpan71 fn1)
(write-line qpan72 fn1)
(write-line qpan73 fn1)
(write-line qpan74 fn1)
(write-line qpan75 fn1)
(write-line qpan76 fn1)
(write-line qpan77 fn1)
(write-line qpan78 fn1)
(write-line qpan79 fn1)
(write-line qpan80 fn1)
(write-line qpan81 fn1)
(write-line qpan82 fn1)
(write-line qpan83 fn1)
(write-line qpan84 fn1)
(write-line qpan85 fn1)
(write-line qpan86 fn1)
(write-line qpan87 fn1)
(write-line qpan88 fn1)
(write-line qpan89 fn1)
(write-line qpan90 fn1)
(write-line qpan91 fn1)
(write-line qpan92 fn1)
(write-line qpan93 fn1)
(write-line qpan94 fn1)
(write-line qpan95 fn1)
(write-line qpan96 fn1)
(write-line qpan97 fn1)
(write-line qpan98 fn1)
(write-line qpan999 fn1)
(write-line qpan99 fn1)
(write-line qpan100 fn1)
(write-line qpan101 fn1)
(write-line qpan102 fn1)
(write-line qpan103 fn1)
(write-line qpan104 fn1)
(write-line qpan105 fn1)
(write-line qpan106 fn1)
(write-line qpan107 fn1)
(write-line qpan108 fn1)
(write-line qpan109 fn1)
(write-line qpan110 fn1)
(write-line qpan111 fn1)
(write-line qpan112 fn1)
(write-line qpan113 fn1)
(write-line qpan114 fn1)
(write-line qpan115 fn1)
(write-line qpan116 fn1)
(write-line qpan117 fn1)
(write-line qpan118 fn1)
(write-line qpan119 fn1)
(write-line qpan120 fn1)
(write-line qpan121 fn1)
(write-line qpan122 fn1)
(write-line qpan123 fn1)
(write-line qpan124 fn1)
(write-line qpan125 fn1)
(write-line qpan126 fn1)
(write-line qpan127 fn1)
(write-line qpan128 fn1)
(write-line qpan129 fn1)
(write-line qpan130 fn1)
(write-line qpan131 fn1)
(write-line qpan132 fn1)
(write-line qpan133 fn1)
(write-line qpan134 fn1)
(write-line qpan135 fn1)
(write-line qpan136 fn1)
(write-line qpan137 fn1)
(write-line qpan138 fn1)
(write-line qpan139 fn1)
(write-line qpan140 fn1)
(write-line qpan141 fn1)
(write-line qpan142 fn1)
(write-line qpan143 fn1)
(write-line qpan144 fn1)
(write-line qpan145 fn1)
(write-line qpan146 fn1)
(write-line qpan147 fn1)
(write-line qpan148 fn1)
(write-line qpan149 fn1)
(write-line qpan150 fn1)
(write-line qpan151 fn1)
(write-line qpan152 fn1)
(write-line qpan153 fn1)
(write-line qpan154 fn1)
(write-line qpan155 fn1)
(write-line qpan156 fn1)
(write-line qpan157 fn1)
(write-line qpan158 fn1)
(write-line qpan159 fn1)
(write-line qpan160 fn1)
(write-line qpan161 fn1)
(write-line qpan162 fn1)
(write-line qpan163 fn1)
(write-line qpan164 fn1)
(write-line qpan165 fn1)
(write-line qpan166 fn1)
(write-line qpan167 fn1)
(write-line qpan168 fn1)
(write-line qpan169 fn1)
(write-line qpan170 fn1)
(write-line qpan171 fn1)
(write-line qpan172 fn1)
(write-line qpan173 fn1)
(write-line qpan174 fn1)
(write-line qpan175 fn1)
(write-line qpan176 fn1)
(write-line qpan177 fn1)
(write-line qpan178 fn1)
(write-line qpan179 fn1)
(write-line qpan180 fn1)
(write-line qpan181 fn1)
(write-line qpan182 fn1)
(write-line qpan183 fn1)
(write-line qpan184 fn1)
(write-line qpan185 fn1)
(write-line qpan186 fn1)
(write-line qpan187 fn1)
(write-line qpan188 fn1)
(write-line qpan189 fn1)
(write-line qpan190 fn1)
(write-line qpan191 fn1)
(write-line qpan192 fn1)
(write-line qpan193 fn1)
(write-line qpan194 fn1)
(write-line qpan195 fn1)
(write-line qpan196 fn1)
(write-line qpan197 fn1)
(write-line qpan198 fn1)
(write-line qpan199 fn1)
(write-line qpan
d
没有必要赋值
直接 write-line 将数据写入即可
(setq qpan1 "1`, *zhl_1` ")
(write-line qpan1 fn1)
简化成
(write-line "1`, *zhl_1` " fn1)
d
所有的write-line也可以这样代替
(setq i 0)
(repeat 331
(write-line (eval (read (strcat "qpan" (itoa (setq i (1+ i)))))) fn1)
)
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
谢谢caoyin版主和nonsmall大侠
d
(foreach str
'("1`, *zhl_1` " "az, *zhl_az " "aa, *zhl_aa"
);;将所有要写入文件的字串组成一个表
(write-line str fn1)
)
d