[编程交流] （读取行）

(defun c:Try (/ fname tx pt)
 (if (findfile "c:/try.txt")
   (setq fname (open "c:/try.txt" "r"))
    (alert [color="Red"]"FILE NOT FOUND!"[/color]));;[color="red"] This alert is suppressed to command line[/color]
(repeat 16 (setq tx (read-line fname)));;; [color="Red"]Text is not avaliable in reallity[/color]
 (if ([color="Red"]eq  tx nil[/color]);;; [color="Red"]What's the right action in here[/color]
           (progn
              (alert "TEXT NOT EXISTED")[color="red"] This alert is suppressed to command line[/color]
              (princ))
          (setq pt (getpoint "\nText location : "))
                                   )
                  (entmakex (list '(0 . "TEXT")
                            (cons 40 (getvar 'textsize))
                            (cons 1 tx)
                            (cons 10 (trans pt 1 0))))     
 (princ)
)

(defun c:Try (/ fo tx pt)
 (if (findfile "c:/try.txt")
   (progn
     (setq fo (open "c:/try.txt" "r"))
     (repeat 5 (setq tx (read-line fo)))
     (close fo)
     (if (eq (type tx) 'STR)
       (if (setq pt (getpoint "\nText location : "))
         (entmakex (list '(0 . "TEXT")
                         (cons 40 (getvar 'textsize))
                         (cons 1 tx)
                         (cons 10 (trans pt 1 0))
                   )
         )
       )
       (alert "Text line empty.")
     )
   )
   (alert "File not found.")
 )
 (princ)
)