lisp语言怎么将文件写到CAD中

visual lisp.从autocad中启动。

问题有点含糊，不过大致知道你的意思，就是想知道怎么将txt类的文件的内容写到屏幕上吧，下面这个是我写过的，可以参考一下，lisp语言很灵活，希望对你有所帮助。
(defun c:lrg_xwj(/ data_list dat_file pt cenpt hh ff data mm )
(setq data_list '())
(setq dat_file (getfiled "写文件练习" "c:\\LSPTOOLS\\note1" "txt" 2));指定目录
(setq pt (getpoint"\n请选择输入点:"));制定屏幕上的输入起点
(setq hh (getdist pt "\n请输入字体高度:"));文字高度
(setq ff (open dat_file "r"));打开文件
(setq data (read-line ff));读取文件一行内容
(setq cenpt pt)
(while data
(setq data_list (cons data data_list))
(command "text" "m" cenpt hh 0 (foreach mm data_list (command mm))) ;写文件内容
(setq data (read-line ff))
(setq cenpt (polar cenpt (* pi 1.5) (* hh 2)))
)
;(setq data_list (reverse data_list)) ;可以尝试将字符串顺序