(XD::Dcl:Make)DCL字串表写出临时DCL文件

Free-Lancer

1. ;;将DCL表写出文件
   
2. (defun XD::DCL:Make (lst / flname ofile)
   
3.   (setq        FlName (vl-filename-mktemp (strcat "FYDCL" ".dcl"))
   
4.         oFile  (open FlName "w")
   
5.   )
   
6.   (foreach fStream lst (write-line fStream oFile)) ;写入文件
   
7.   (close oFile) ;_关闭文档
   
8.   flname
   
9. )

;;将DCL表写出文件<br /> (defun XD::DCL:Make (lst / flname ofile)<br />   (setq        FlName (vl-filename-mktemp (strcat "FYDCL" ".dcl"))<br />         oFile  (open FlName "w")<br />   )<br />   (foreach fStream lst (write-line fStream oFile)) ;写入文件<br />   (close oFile) ;_关闭文档<br />   flname<br /> )