AutoLISP将外部文件中的文字写入图形

AutoLISP将外部文件中的文字写入图形，代码如下。

(defun c:test()
  (setvar "cmdecho" 0)
  (setq ffn (getfiled "选择文件" "" "txt" 2))
  (setq pt (getpoint "\n选取文字插入点："))
  (setq hh (getdist pt "\n字高："))
  (setq ff (open ffn "r"))
  (setq data (read-line ff))
  (command "text" pt hh 0 data)
  (setq data (read-line ff))
  (while data
    (command "text" "" data)
    (setq data (read-line ff))
    )
  (close ff)
  (prin1)
  )

代码完。