请教高手们，怎么用LISP计算文本中有多少行，

xubin9705

请教高手们，怎么用LISP计算文本中有多少行，多谢了

ZZXXQQ

什么文本？是在ACAD图中写的文本还是保存的.TXT文件？

xubin9705

是保存的.TXT文件,知道怎么计算吗,版主

caoyin

(defun NumberOfRows (file / n)
  (if (setq file (findfile file))
    (progn
      (setq file (open file "r") n 0)
      (while (read-line file) (setq n (1+ n)))
      (close file)
      n
    )
  )
)

;; test (NumberOfRows "acad.pgp")