[教学]：提供文本输出和输入程序供大家一起学习

xxming

;文本输出程序
(DEFUN C:TEXT-OUT() (SETQ OBJ (ENTSEL "\N选择文字"))
                    (setq file_id (getfiled "\n选择文件" "c:/" "txt" 1))  
                    (SETQ FILE_D (OPEN file_id "W"))
                    (while (/= obj nil)
                      (SETQ ENT (ENTGET (CAR OBJ)))
                      (IF (/= (CDR(ASSOC 0 ENT)) "TEXT")
                        (PRINC "\N选择的不是文字")
                        (write-line (cdr(assoc 1 ent)) file_d))
                    (SETQ OBJ (ENTSEL "\N选择文字"))
                    )
                    (close file_d))
(prompt "\n文本输出程序,键入:text-out执行程序.-----程序设计:小谢")
(princ)

;文本输入程序
(defun c:text-in() (setq pt_base (getpoint "\n文字插入点 :")
                         file_id (getfiled "\n选择文本文件" "c:/" "txt" 8)
                         file_id (open  file_id "r")
                         txt_size (getvar "textsize"))
                   (if (= file_id nil) (princ "\n没有选择文件")
                     (progn
                       (setq temp_s (read-line file_id))
                       (while (/= temp_s nil)
                       (command "text" pt_base "" "" temp_s "")
                       (setq pt_base (polar pt_base (* pi 1.5) (* 1.7 txt_size))
                             temp_s  (read-line file_id)))
                       (close file_id)
                    ))
                  (princ))
(prompt "\n文本输出程序,键入:text-out执行程序.-----程序设计:小谢")
(princ)