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

userzhl

(defun wrACADPGP ( / fn fn1 line1 pgpfile pgppath qpan1 qpan10 qpan100 qpan101 qpan102 qpan103 qpan104 qpan105 qpan106 qpan107 qpan108 qpan109 qpan11 qpan110 qpan111 qpan112 qpan113 qpan114 qpan115 qpan116 qpan117 qpan118 qpan119 qpan12 qpan120 qpan121 qpan122 qpan123 qpan124 qpan125 qpan126 qpan127 qpan128 qpan129 qpan13 qpan130 qpan131 qpan132 qpan133 qpan134 qpan135 qpan136 qpan137 qpan138 qpan139 qpan14 qpan140 qpan141 qpan142 qpan143 qpan144 qpan145 qpan146 qpan147 qpan148 qpan149 qpan15 qpan150 qpan151 qpan152 qpan153 qpan154 qpan155 qpan156 qpan157 qpan158 qpan159 qpan16 qpan160 qpan161 qpan162 qpan163 qpan164 qpan165 qpan166 qpan167 qpan168 qpan169 qpan17 qpan170 qpan171 qpan172 qpan173 qpan174 qpan175 qpan176 qpan177 qpan178 qpan179 qpan18 qpan180 qpan181 qpan182 qpan183 qpan184 qpan185 qpan186 qpan187 qpan188 qpan189 qpan19 qpan190 qpan191 qpan192 qpan193 qpan194 qpan195 qpan196 qpan197 qpan198 qpan199 qpan2 qpan20 qpan200 qpan201 qpan202 qpan203 qpan204 qpan205 qpan206 qpan207 qpan208 qpan209 qpan21 qpan210 qpan211 qpan212 qpan213 qpan214 qpan215 qpan216 qpan217 qpan218 qpan219 qpan22 qpan220 qpan221 qpan222 qpan223 qpan224 qpan225 qpan226 qpan227 qpan228 qpan229 qpan23 qpan230 qpan231 qpan232 qpan233 qpan234 qpan235 qpan236 qpan237 qpan238 qpan239 qpan24 qpan240 qpan241 qpan242 qpan243 qpan244 qpan245 qpan246 qpan247 qpan248 qpan249 qpan25 qpan250 qpan251 qpan252 qpan253 qpan254 qpan255 qpan256 qpan257 qpan258 qpan259 qpan26 qpan260 qpan261 qpan262 qpan263 qpan264 qpan265 qpan266 qpan267 qpan268 qpan269 qpan27 qpan270 qpan271 qpan272 qpan273 qpan274 qpan275 qpan276 qpan277 qpan278 qpan279 qpan28 qpan280 qpan281 qpan282 qpan283 qpan284 qpan285 qpan286 qpan287 qpan288 qpan289 qpan29 qpan290 qpan291 qpan292 qpan293 qpan294 qpan295 qpan296 qpan297 qpan298 qpan299 qpan3 qpan30 qpan300 qpan301 qpan302 qpan303 qpan304 qpan305 qpan306 qpan307 qpan308 qpan309 qpan31 qpan310 qpan311 qpan312 qpan313 qpan314 qpan315 qpan316 qpan317 qpan318 qpan319 qpan32 qpan320 qpan321 qpan322 qpan323 qpan324 qpan325 qpan326 qpan327 qpan328 qpan329 qpan33 qpan330 qpan34 qpan35 qpan36 qpan37 qpan38 qpan39 qpan4 qpan40 qpan41 qpan42 qpan43 qpan44 qpan45 qpan46 qpan47 qpan48 qpan49 qpan5 qpan50 qpan51 qpan52 qpan53 qpan54 qpan55 qpan56 qpan57 qpan58 qpan59 qpan6 qpan60 qpan61 qpan62 qpan63 qpan64 qpan65 qpan66 qpan67 qpan68 qpan69 qpan7 qpan70 qpan71 qpan72 qpan73 qpan74 qpan75 qpan76 qpan77 qpan78 qpan79 qpan8 qpan80 qpan81 qpan82 qpan83 qpan84 qpan85 qpan86 qpan87 qpan88 qpan89 qpan9 qpan90 qpan91 qpan92 qpan93 qpan94 qpan95 qpan96 qpan97 qpan98 qpan99 qpan999 tempfile)
  (if (setq pgpfile (findfile "acad.pgp"))
    (progn
(setq pgppath (vl-filename-directory pgpfile))
(setq fn (open pgpfile "r"))
(setq line1 (read-line fn))
(close fn)
(setq qpan1 "1`, *zhl_1` ")
(setq qpan2 "az, *zhl_az ")
(setq qpan3 "aa, *zhl_aa ")
(setq qpan4 "y, *zhl_y ")
(setq qpan5 "yy, *zhl_yy")
(setq qpan6 "tg, *draw_line")
(setq qpan7 "SS, *zhl_SS")
(setq qpan8 "xx, *zhl_xx")
(setq qpan9 "bg, *zhl_bg")
(setq qpan10 "bc, *zhl_bc")
(setq qpan11 "dx, *zhl_dx")
(setq qpan12 "Gra, *zhl_grass")
(setq qpan13 "jt, *zhl_jt")
(setq qpan14 "jtt, *zhl_jtt")
(setq qpan15 "BX, *zhl_BX")
(setq qpan16 "fd, *zhl_fd")
(setq qpan17 "spi, *zhl_spiral")
(setq qpan18 "stpo, *zhl_stpo")
(setq qpan19 "zdz, *zhl_grids")
(setq qpan20 "bz, *zhl_bz")
(setq qpan21 "tm, *zhl_tm")
(setq qpan22 "hh, *zhl_hh")
(setq qpan23 "qqq, *zhl_qqq")
(setq qpan24 "ol, *zhl_col")
(setq qpan25 "zj, *zhl_cp")
(setq qpan26 "ttt, *zhl_ttt")
(setq qpan27 "txt, *zhl_txt")
(setq qpan28 "ft, *zhl_ft")
(setq qpan29 "gl, *zhl_gl")
(setq qpan30 "fi, *zhl_fi")
(setq qpan31 "Thh, *zhl_thh")
(setq qpan32 "ad, *zhl_ad")
(setq qpan33 "tta, *zhl_tta")
(setq qpan34 "add, *zhl_add")
(setq qpan35 "ddx, *zhl_ddx")
(setq qpan36 "jk, *zhl_jk")
(setq qpan37 "kh, *zhl_kh")
(setq qpan38 "pz, *zhl_pz")
(setq qpan39 "tv, *zhl_tv")
(setq qpan40 "SXX, *zhl_SXX")
(setq qpan41 "TA, *zhl_TA")
(setq qpan42 "ao, *zhl_ao")
(setq qpan43 "eo, *zhl_eo")
(setq qpan44 "tp, *zhl_tp")
(setq qpan45 "at, *zhl_at")
(setq qpan46 "xz, *zhl_xz")
(setq qpan47 "mit, *textmirrorfix")
(setq qpan48 "Ed, *zhl_ed")
(setq qpan49 "b, *zhl_b")
(setq qpan50 "bs, *zhl_bs")
(setq qpan51 "xs, *zhl_xs")
(setq qpan52 "xa, *zhl_x")
(setq qpan53 "EF, *zhl_EF")
(setq qpan54 "zx, *zhl_zx")
(setq qpan55 "nm, *zhl_nm")
(setq qpan56 "sj, *zhl_sj")
(setq qpan57 "bl, *zhl_bl")
(setq qpan58 "bn, *zhl_bn")
(setq qpan59 "ab, *zhl_ab")
(setq qpan60 "ef, *ZHL_ef")
(setq qpan61 "gt, *zhl_gt")
(setq qpan62 "gA, *zhl_gA")
(setq qpan63 "gc, *zhl_gc")
(setq qpan64 "ge, *zhl_ge")
(setq qpan65 "gd, *zhl_gd")
(setq qpan66 "gF, *zhl_gF")
(setq qpan67 "vC, *zhl_vC")
(setq qpan68 "vvv, *zhl_vvv")
(setq qpan69 "vw, *zhl_vw")
(setq qpan70 "sw, *zhl_sw")
(setq qpan71 "fw, *zhl_fw")
(setq qpan72 "rw, *zhl_rw")
(setq qpan73 "Qw, *zhl_dw")
(setq qpan74 "xw, *zhl_xw")
(setq qpan75 "CW, *zhl_Cw")
(setq qpan76 "JD, *zhl_JD")
(setq qpan77 "SJD, *zhl_SJD")
(setq qpan78 "jda, *zhl_jda")
(setq qpan79 "dja, *zhl_dja")
(setq qpan80 "k, *zhl_k")
(setq qpan81 "aaa, *zhl_aaa")
(setq qpan82 "cC, *zhl_c")
(setq qpan83 "d, *zhl_d")
(setq qpan84 "dd, *zhl_dd")
(setq qpan85 "ff, *zhl_ff")
(setq qpan86 "fff, *zhl_fff")
(setq qpan87 "ffff, *zhl_ffff")
(setq qpan88 "zz, *zhl_zz")
(setq qpan89 "Ms, *zhl_ms")
(setq qpan90 "mst, *zhl_mst")
(setq qpan91 "1, *zhl_c1")
(setq qpan92 "2, *zhl_c2")
(setq qpan93 "3, *zhl_c3")
(setq qpan94 "4, *zhl_c4")
(setq qpan95 "5, *zhl_c5")
(setq qpan96 "6, *zhl_c6")
(setq qpan97 "7, *zhl_c7")
(setq qpan98 "8, *zhl_c8")
(setq qpan999 "9, *zhl_c9")
(setq qpan99 "cb, *zhl_cb")
(setq qpan100 "sl, *zhl_sl")
(setq qpan101 "ssl, *zhl_ssl")
(setq qpan102 "EEE, *zhl_EEE")
(setq qpan103 "sz, *zhl_sz")
(setq qpan104 "sld, *zhl_sld")
(setq qpan105 "cr, *zhl_cr")
(setq qpan106 "-, *zhl_-")
(setq qpan107 "rv, *zhl_rv")
(setq qpan108 "sh, *zhl_sh")
(setq qpan109 "bb, *SSBrk")
(setq qpan110 "br, *zhl_br")
(setq qpan111 "dm, *zhl_dm")
(setq qpan112 "xy, *zhl_xy")
(setq qpan113 "xd, *zhl_xd")
(setq qpan114 "cv, *zhl_cv")
(setq qpan115 "t, *zhl_t")
(setq qpan116 "tt, *zhl_tt")
(setq qpan117 "tEE, *zhl_tEE")
(setq qpan118 "qa, *zhl_qa")
(setq qpan119 "qq, *zhl_qq")
(setq qpan120 "sb, *zhl_sb")
(setq qpan121 "wb, *zhl_wb")
(setq qpan122 "exd, *export_dwg")
(setq qpan123 "er, *zhl_er")
(setq qpan124 "lo, *zhl_lo")
(setq qpan125 "，, *zhl_，")
(setq qpan126 "z0, *zhl_z0")
(setq qpan127 "cf, *zhl_cf")
(setq qpan128 "```, *zhl_```")
(setq qpan129 "``, *zhl_``")
(setq qpan130 "`, *zhl_`")
(setq qpan131 "`1, *zhl_`1")
(setq qpan132 "hr, *zhl_hr")
(setq qpan133 "xo, *zhl_xo")
(setq qpan134 "fg, *zhl_fg")
(setq qpan135 "j, *zhl_j")
(setq qpan136 "JJ, *zhl_jj")
(setq qpan137 "xg, *zhl_xg")
(setq qpan138 "CHS, *ZHL_CHS")
(setq qpan139 "pn,     *zhl_pn")
(setq qpan140 "a2c,    *zhl_a2c")
(setq qpan141 "tw, *zhl_tw")
(setq qpan142 "rrr, *zhl_rrr")
(setq qpan143 "hi, *zhl_hi")
(setq qpan144 "yt, *zhl_yt")
(setq qpan145 "ty, *zhl_ty")
(setq qpan146 "tyy, *zhl_tyy")
(setq qpan147 "tya, *zhl_tya")
(setq qpan148 "mn, *zhl_mn")
(setq qpan149 "SL,     *ZHL_SL")
(setq qpan150 "SSL,    *ZHL_SSL")
(setq qpan151 "0,      *ZHL_0 ")
(setq qpan152 "SST,    *ZHL_SST ")
(setq qpan153 "SSC,    *ZHL_SSC ")
(setq qpan154 "SZ,     *ZHL_SZ ")
(setq qpan155 "-, *zhl_-")
(setq qpan156 "uo, *zhl_uo")
(setq qpan157 "an, *zhl_an")
(setq qpan158 "ob, *zhl_ob")
(setq qpan159 "un, *zhl_un")
(setq qpan160 "setup, *zhl_setup")
(setq qpan161 "aq, *zhl_aq")
(setq qpan162 "qqq, *zhl_qqq")
(setq qpan163 "zzz, *zhl_zzz")
(setq qpan164 "vz, *zhl_vz")
(setq qpan165 "Car, *zHL_CAR")
(setq qpan166 "are, *ZHL_ARE")
(setq qpan167 "cd, *zhl_cd")
(setq qpan168 "btj, *zhl_btj")
(setq qpan169 "sa, *zhl_sa")
(setq qpan170 "su, *zhl_su")
(setq qpan171 "tt, *zhl_tt")
(setq qpan172 "10, *zhl_c10")
(setq qpan173 "pm, *zhl_pm")
(setq qpan174 "DXFIN, *OPEN")
(setq qpan175 "DBT, *zhl_Dbt")
(setq qpan176 "CHT, *zhl_CHT")
(setq qpan177 "JB, *ZHL_jb")
(setq qpan178 "DQQ, *ZHL_DQQ")
(setq qpan179 "TST, *zhl_TST")
(setq qpan180 "bat, *zhl_bat")
(setq qpan181 "QC, *zhl_QC")
(setq qpan182 "11, *zhl_11")
(setq qpan183 "22, *zhl_22")
(setq qpan184 "33, *zhl_33")
(setq qpan185 "44, *zhl_44")
(setq qpan186 "55, *zhl_55")
(setq qpan187 "66, *zhl_66")
(setq qpan188 "77, *zhl_77")
(setq qpan189 "88, *zhl_88")
(setq qpan190 "99, *zhl_99")
(setq qpan191 "t1, *zhl_t1")
(setq qpan192 "T2, *zhl_t2")
(setq qpan193 "t3, *zhl_t3")
(setq qpan194 "t4, *zhl_t4")
(setq qpan195 "T5, *zhl_t5")
(setq qpan196 "t7, *zhl_t7")
(setq qpan197 "t8, *zhl_t8")
(setq qpan198 "t9, *zhl_t9")
(setq qpan199 "ll, *zhl_ll")
(setq qpan200 "lay, *zhl_lay")
(setq qpan201 "000, *zhl_0")
(setq qpan202 "00, *zhl_00")
(setq qpan203 "pu, *zhl_pu")
(setq qpan204 "12, *zhl_12")
(setq qpan205 "123, *zhl_123")
(setq qpan206 "1234, *zhl_1234")
(setq qpan207 "vb, *zhl_vb")
(setq qpan208 "ew, *zhl_ew")
(setq qpan209 "EC, *zhl_EC")
(setq qpan210 "se, *zhl_se")
(setq qpan211 "sea, *zhl_sea")
(setq qpan212 "sx, *zhl_sx")
(setq qpan213 "df, *zhl_df")
(setq qpan214 "dff, *zhl_dff")
(setq qpan215 "da, *zhl_da")
(setq qpan216 "de, *zhl_de")
(setq qpan217 "dq, *zhl_dq")
(setq qpan218 "dl, *zhl_dl")
(setq qpan219 "gw, *zhl_gw")
(setq qpan220 "sd, *zhl_sd")
(setq qpan221 "sf, *zhl_sf")
(setq qpan222 "zs, *zhl_zs")
(setq qpan223 "db, *zhl_db")
(setq qpan224 "dv, *zhl_dv")
(setq qpan225 "dg, *zhl_dg")
(setq qpan226 "ddd, *zhl_ddd")
(setq qpan227 "dt, *zhl_dt")
(setq qpan228 "dh, *zhl_dh")
(setq qpan229 "dhr, *zhl_dhr")
(setq qpan230 "DIMR, *dimradius")
(setq qpan231 "Yd, *zhl_yd")
(setq qpan232 "lm, *zhl_lm")
(setq qpan233 "kk1, *zhl_kk1")
(setq qpan234 "kk, *zhl_kk")
(setq qpan235 "mm, *zhl_mm")
(setq qpan236 "pk, *zhl_pk")
(setq qpan237 "epk, *zhl_epk")
(setq qpan238 "tl, *zhl_tl")
(setq qpan239 "tl2, *zhl_tl2")
(setq qpan240 "tl4, *zhl_tl4")
(setq qpan241 "lmm, *zhl_lmm")
(setq qpan242 "pc, *zhl_pc")
(setq qpan243 "tc, *zhl_tc")
(setq qpan244 "lmc, *zhl_lmc")
(setq qpan245 "hm, *zhl_hm")
(setq qpan246 "pk1, *zhl_pk1")
(setq qpan247 "tl21, *zhl_tl21")
(setq qpan248 "tl41, *zhl_tl41")
(setq qpan249 "hc, *zhl_hc")
(setq qpan250 "pc1, *zhl_pc1")
(setq qpan251 "tc1, *zhl_tc1")
(setq qpan252 "Dc, *zhl_dc")
(setq qpan253 "ecd, *zhl_ecd")
(setq qpan254 "mf, *zhl_mf")
(setq qpan255 "pp, *zhl_pp")
(setq qpan256 "ct, *zhl_ct")
(setq qpan257 "gz, *zhl_gz")
(setq qpan258 "tx, *properties")
(setq qpan259 "ccc, *revcloud")
(setq qpan260 "dvw, *dview")
(setq qpan261 "dz, *justifytext")
(setq qpan262 "ggg, *ellipse")
(setq qpan263 "ee, *extend")
(setq qpan264 "```, *find")
(setq qpan265 "hd, *hide")
(setq qpan266 "g, *line")
(setq qpan267 "QL, *qleader")
(setq qpan268 "v, *move")
(setq qpan269 "vv, *matchprop")
(setq qpan270 "ww, *mirror")
(setq qpan271 "mea, *measure")
(setq qpan272 "oo, *oops")
(setq qpan273 "q, *offset")
(setq qpan274 "gg, *pline")
(setq qpan275 "rec, *rectangle")
(setq qpan276 "rr, *rotate")
(setq qpan277 "xxx, *sketch")
(setq qpan278 "xxxx, *skpoly")
(setq qpan279 "sss, *spline")
(setq qpan280 "ttt, *txt2mtxt")
(setq qpan281 "tttt, *arctext")
(setq qpan282 "r, *zhl_r")
(setq qpan283 "rf, *zhl_rf")
(setq qpan284 "js, *zhl_js")
(setq qpan285 "dk, *zhl_dk")
(setq qpan286 "hb, *zhl_hb")
(setq qpan287 "fxx, *zhl_fxx")
(setq qpan288 "rb, *zhl_rb")
(setq qpan289 "qz, *zhl_qz")
(setq qpan290 "RT, *zhl_RT")
(setq qpan291 "cs, *zhl_cs")
(setq qpan292 "RD, *zhl_RD")
(setq qpan293 "BGT, *zhl_BGT")
(setq qpan294 "PF, *ZHL_PF")
(setq qpan295 "BT, *ZHL_BT")
(setq qpan296 "BP, *ZHL_BP")
(setq qpan297 "KG, *ZHL_KG")
(setq qpan298 "STM, *StripMtext")
(setq qpan299 "A,     *ZHL_A")
(setq qpan300 "SY,    *ZHL_SY")
(setq qpan301 "DY,    *ZHL_DY")
(setq qpan302 "STR,    *ZHL_STR")
(setq qpan303 "VF,    *ZHL_VF")
(setq qpan304 "GB,     *ZHL_GB")
(setq qpan305 "GF,     *ZHL_GF")
(setq qpan306 "FS,     *ZHL_FS")
(setq qpan307 "ZBZ,    *ZHL_ZBZ")
(setq qpan308 "ET,     *ZHL_ET")
(setq qpan309 "WZ,     *ZHL_WZ")
(setq qpan310 "DR,    *ZHL_DR")
(setq qpan311 "DWZ, *ZHL_DWZ")
(setq qpan312 "TH,     *ZHL_TH")
(setq qpan313 "TK,     *ZHL_TK")
(setq qpan314 "DDC, *ZHL_DDC")
(setq qpan315 "DAR, *ZHL_DAR")
(setq qpan316 "QD,     *ZHL_QD")
(setq qpan317 "AD,     *ZHL_AD")
(setq qpan318 "HG,     *ZHL_HG")
(setq qpan319 "TS,     *ZHL_TS")
(setq qpan320 "DX2,    *ZHL_DX2")
(setq qpan321 "AS,     *ZHL_AS")
(setq qpan322 "ZXX,    *ZHL_ZXX")
(setq qpan323 "EA,     *ZHL_EA")
(setq qpan324 "HJ,     *ZHL_HJ")
(setq qpan325 "DDF,    *ZHL_DDF")
(setq qpan326 "FR,     *ZHL_FR")
(setq qpan327 "FV,     *ZHL_FV")
(setq qpan328 "FS,     *ZHL_FS")
(setq qpan329 "GV,     *ZHL_GV")
(setq qpan330 "EV,     *ZHL_EV")
(setq qpan331 "II,     *ZHL_II")
(progn
(setq tempfile (strcat pgppath "\\t-pgp.txt"))
(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 qpan200 fn1)
(write-line qpan201 fn1)
(write-line qpan202 fn1)
(write-line qpan203 fn1)
(write-line qpan204 fn1)
(write-line qpan205 fn1)
(write-line qpan206 fn1)
(write-line qpan207 fn1)
(write-line qpan208 fn1)
(write-line qpan209 fn1)
(write-line qpan210 fn1)
(write-line qpan211 fn1)
(write-line qpan212 fn1)
(write-line qpan213 fn1)
(write-line qpan214 fn1)
(write-line qpan215 fn1)
(write-line qpan216 fn1)
(write-line qpan217 fn1)
(write-line qpan218 fn1)
(write-line qpan219 fn1)
(write-line qpan220 fn1)
(write-line qpan221 fn1)
(write-line qpan222 fn1)
(write-line qpan223 fn1)
(write-line qpan224 fn1)
(write-line qpan225 fn1)
(write-line qpan226 fn1)
(write-line qpan227 fn1)
(write-line qpan228 fn1)
(write-line qpan229 fn1)
(write-line qpan230 fn1)
(write-line qpan231 fn1)
(write-line qpan232 fn1)
(write-line qpan233 fn1)
(write-line qpan234 fn1)
(write-line qpan235 fn1)
(write-line qpan236 fn1)
(write-line qpan237 fn1)
(write-line qpan238 fn1)
(write-line qpan239 fn1)
(write-line qpan240 fn1)
(write-line qpan241 fn1)
(write-line qpan242 fn1)
(write-line qpan243 fn1)
(write-line qpan244 fn1)
(write-line qpan245 fn1)
(write-line qpan246 fn1)
(write-line qpan247 fn1)
(write-line qpan248 fn1)
(write-line qpan249 fn1)
(write-line qpan250 fn1)
(write-line qpan251 fn1)
(write-line qpan252 fn1)
(write-line qpan253 fn1)
(write-line qpan254 fn1)
(write-line qpan255 fn1)
(write-line qpan256 fn1)
(write-line qpan257 fn1)
(write-line qpan258 fn1)
(write-line qpan259 fn1)
(write-line qpan260 fn1)
(write-line qpan261 fn1)
(write-line qpan262 fn1)
(write-line qpan263 fn1)
(write-line qpan264 fn1)
(write-line qpan265 fn1)
(write-line qpan266 fn1)
(write-line qpan267 fn1)
(write-line qpan268 fn1)
(write-line qpan269 fn1)
(write-line qpan270 fn1)
(write-line qpan271 fn1)
(write-line qpan272 fn1)
(write-line qpan273 fn1)
(write-line qpan274 fn1)
(write-line qpan275 fn1)
(write-line qpan276 fn1)
(write-line qpan277 fn1)
(write-line qpan278 fn1)
(write-line qpan279 fn1)
(write-line qpan280 fn1)
(write-line qpan281 fn1)
(write-line qpan282 fn1)
(write-line qpan283 fn1)
(write-line qpan284 fn1)
(write-line qpan285 fn1)
(write-line qpan286 fn1)
(write-line qpan287 fn1)
(write-line qpan288 fn1)
(write-line qpan289 fn1)
(write-line qpan290 fn1)
(write-line qpan291 fn1)
(write-line qpan292 fn1)
(write-line qpan293 fn1)
(write-line qpan294 fn1)
(write-line qpan295 fn1)
(write-line qpan296 fn1)
(write-line qpan297 fn1)
(write-line qpan298 fn1)
(write-line qpan299 fn1)
(write-line qpan300 fn1)
(write-line qpan301 fn1)
(write-line qpan302 fn1)
(write-line qpan303 fn1)
(write-line qpan304 fn1)
(write-line qpan305 fn1)
(write-line qpan306 fn1)
(write-line qpan307 fn1)
(write-line qpan308 fn1)
(write-line qpan309 fn1)
(write-line qpan310 fn1)
(write-line qpan311 fn1)
(write-line qpan312 fn1)
(write-line qpan313 fn1)
(write-line qpan314 fn1)
(write-line qpan315 fn1)
(write-line qpan316 fn1)
(write-line qpan317 fn1)
(write-line qpan318 fn1)
(write-line qpan319 fn1)
(write-line qpan320 fn1)
(write-line qpan321 fn1)
(write-line qpan322 fn1)
(write-line qpan323 fn1)
(write-line qpan324 fn1)
(write-line qpan325 fn1)
(write-line qpan326 fn1)
(write-line qpan327 fn1)
(write-line qpan328 fn1)
(write-line qpan329 fn1)
(write-line qpan330 fn1)
(write-line qpan331 fn1)
(close fn1)
(vl-file-copy pgpfile tempfile t)
(vl-file-delete pgpfile)
(vl-file-rename tempfile pgpfile)
(vl-cmdf "re-init" "16")
      )
    )
  )
)
(defun c:add_ACADPGP ()
  (copypgp)
  (wrACADPGP)
)

caoyin

没有必要赋值

直接 write-line 将数据写入即可

(setq qpan1 "1`, *zhl_1` ")

(write-line qpan1 fn1)

简化成

(write-line "1`, *zhl_1` " fn1)

nonsmall

所有的write-line也可以这样代替

(setq i 0)
(repeat 331
 (write-line (eval (read (strcat "qpan" (itoa (setq i (1+ i)))))) fn1)
)

userzhl

谢谢caoyin版主和nonsmall大侠

liu_kunlun

(foreach str
   '("1`, *zhl_1` "  "az, *zhl_az "  "aa, *zhl_aa"

   );;将所有要写入文件的字串组成一个表
   (write-line str fn1)
)