帮忙注记一段代码

sunqv

帮忙注记下面一段代码，谢谢！
***************************************************分割线***************************************************
(defun LPOUT ()
  (setq NOPRN 1)
  (setq PIPELS0 "continuous")
  (setq PIPELS1 "2_1")
  (setq PIPELS2 "0_1")
  (setq PIPELS3 "3_1.5")
  (setq LNA2_1 "continuous")
  (setq GKMAX 1.0)
  (setq BXLAY "ANNEXE")
  (SETVAR "SNAPMODE" 0)
  (SETVAR "OSMODE" 0)
  (setq LSTCOLOR (READTYPF))
  (setq PTEXT 1)
  (setq F (OPEN FNTX "r"))
  (if (NOT F)
    (progn (ALERT (STRCAT FNTX " 文件未找到!")) (EXIT))
  )
  (SETVAR "SNAPMODE" 0)
  (CRELA)
  (setq SXY (READ-LINE F))
  (setq PSAQ (LN_LST SXY))
  (setq PSAQ (NTH 4 PSAQ))
  (setq NS 1)
  (while (= NS 1)
    (setq TYP_A (READ-LINE F))
    (setq LENTYP (STRLEN TYP_A))
    (if (= TYP_A "ENDLINE")
      (setq NS 0)
      (if (= TYP_A "ZZ")
(ZLINE)
(progn (setq LSTTYPE (LN_LST TYP_A))
        (setq TYP (NTH 0 LSTTYPE))
        (setq TYP1 (NTH 1 LSTTYPE))
        (setq LN (NTH 2 LSTTYPE))
        (setq CV (NTH 3 LSTTYPE))
        (CLONE TYP LN CV)
        (setq NE 1)
        (while (= NE 1)
   (setq TT (READ-LINE F))
   (if (= TT "END")
     (setq NE 0)
     (progn (ONELN TT TYP LN PSAQ BXLAY)
     (setq ENT (ENTLAST))
     (SAVXD ENT TT)
     )
   )
        )
)
      )
    )
  )
  (command "ZOOM" "E")
  (while (setq TYP_A (READ-LINE F))
    (setq LSTTYPE (LN_LST TYP_A))
    (setq TYP (NTH 0 LSTTYPE))
    (setq TYP1 (NTH 1 LSTTYPE))
    (setq LN (NTH 2 LSTTYPE))
    (setq CV (NTH 3 LSTTYPE))
    (CLONE TYP LN CV)
    (setq LAP (STRCAT LN "POINT"))
    (setq LAT (STRCAT LN "TEXT"))
    (setq NE 1)
    (while (= NE 1)
      (setq TT (READ-LINE F))
      (if (= TT "END")
(setq NE 0)
(progn (setq LST (LN_LST TT))
        (setq DF (NTH 9 LST))
        (setq SANGLE (NTH 10 LST))
        (if (or (= SANGLE nil) (= SANGLE "") (= SANGLE " "))
   (setq SANGLE "0")
   (setq SANGLE (ANGTOS (ATOF SANGLE)))
        )
        (setq S (NTH 0 LST))
        (setq Y (ATOF (NTH 4 LST)))
        (setq X (ATOF (NTH 5 LST)))
        (setq Z (ATOF (NTH 6 LST)))
        (setq PT (LIST X Y Z))
        (if (or (= DF nil) (= DF "0") (= DF ""))
   (PRINC (STRCAT "N" S "点符号DWG文件未找到" " " DF))
   (progn (setq FN (STRCAT "D:/东莞/符号/" DF ".DWG"))
   (command "_.LAYER" "S" LAP "")
   (command "_.INSERT" FN PT "0.5" "0.5" SANGLE)
   )
        )
        (setq ENT (ENTLAST))
        (SAVXDP ENT TT)
)
      )
    )
  )
  (CLOSE F)
  (command "_.LAYER" "S" "0" "")
)

lostbalance

手机看的帖子，水平也较低，随便说说。1. 大小写近乎混乱，看着比较麻烦。
2. 大部分都是最基本的函数，setq if while 以及command，就是赋值、判断、判断循环以及调用cad命令。
3. 另外有部分函数，应该是自定义函数，但相关代码，就不好说了。4. 通篇下来，大概是查找某个配置文件，然后按某种规则读取该文件的内容，最后根据内容插入对应的块？自定义函数有点多，好多地方看不明白…