 - ;;;=============================================
- ;;; 通用函数 写字符串表到文件
- ;;;参数:filename----文件名
- ;;; strlst------需写入文件字符串表
- ;;;返回值:文件名
- (defun xty-sys-makeFbylst (filename strlst / f n)
- (setq f (open filename "w"))
- (foreach n strlst
- (if (eq (type n) 'STR)
- (write-line n f)
- (write-line (vl-princ-to-string n) f)
- )
- )
- (close f)
- filename
- )
|