快速的将*.lisp转为*.FAS

flyfox1047

1. ;;  LSP2FAS.lsp                                    ; Scot Harris  11-29-2012
   
2. ;;   Minimizes the sequence needed to create FAS files.
   
3. ;;   Help facility added.
   
4. ;;   Streamlined from original program provided by aqdam1978.
   
5. 
   
6. (defun c:LSP2FAS-Help (/)
   
7. (alert (strcat
   
8.   "\tLisp (LSP) to Fast and Secure (FAS) Help"
   
9.   "\n "
   
10.   "\nFile dialog begins in the current directory.   "
    
11.   "\nIt is suggested to place and open a drawing (DWG)   "
    
12.   "\ninside the input folder you wish to batch process.   "
    
13.   "\n "
    
14.   "\nOutput file will be in the same folder as the file selected.   "
    
15.   "\n "
    
16.   "\nThere is no provisional check for an existing FAS file of the same name.   "
    
17. ))
    
18. );end LSP2FAS-Help
    
19. 
    
20. (defun c:LSP2FAS ( / a )
    
21. (vl-load-com)
    
22. (prompt " Lisp to Fast and Secure (FAS). LSP2FAS-Help available. ")
    
23. (if (wcmatch (strcase (setq a (getfiled "Convert LSP File to FAS" (getvar "DWGPREFIX") "" 16))) "*.LSP")
    
24.   (progn
    
25.    (c:vlide)(vlisp-compile 'st a)
    
26.    (princ (strcat "\n File " (vl-string-subst ".fas" ".lsp" a) " created. "))
    
27.   );progn
    
28.   (alert "File extension must be \".LSP\"   ")
    
29. );if
    
30. (princ)
    
31. );end LSP2FAS

;;  LSP2FAS.lsp                                    ; Scot Harris  11-29-2012<br /> ;;   Minimizes the sequence needed to create FAS files.<br /> ;;   Help facility added.<br /> ;;   Streamlined from original program provided by aqdam1978.<br /> <br /> (defun c:LSP2FAS-Help (/)<br /> (alert (strcat<br />   "\tLisp (LSP) to Fast and Secure (FAS) Help"<br />   "\n "<br />   "\nFile dialog begins in the current directory.   "<br />   "\nIt is suggested to place and open a drawing (DWG)   "<br />   "\ninside the input folder you wish to batch process.   "<br />   "\n "<br />   "\nOutput file will be in the same folder as the file selected.   "<br />   "\n "<br />   "\nThere is no provisional check for an existing FAS file of the same name.   "<br /> ))<br /> );end LSP2FAS-Help<br /> <br /> (defun c:LSP2FAS ( / a )<br /> (vl-load-com)<br /> (prompt " Lisp to Fast and Secure (FAS). LSP2FAS-Help available. ")<br /> (if (wcmatch (strcase (setq a (getfiled "Convert LSP File to FAS" (getvar "DWGPREFIX") "" 16))) "*.LSP")<br />   (progn<br />    (c:vlide)(vlisp-compile 'st a)<br />    (princ (strcat "\n File " (vl-string-subst ".fas" ".lsp" a) " created. "))<br />   );progn<br />   (alert "File extension must be \".LSP\"   ")<br /> );if<br /> (princ)<br /> );end LSP2FAS

429014673

好像论坛有一个，不知一样不。支持一下，发贴也辛苦

spp_wall

既然能快速转成fas

那是不是说fas和VLX 能快速转成 lsp？

hao3ren

想得美啊，哪有那么容易

混沌初开

楼主辛苦了!

liuwei-1035

楼主辛苦了，在这学习了

fl202

现在fas还有什么存在意义？我每次都是转VLX的。

alan0019hk

好東西, 謝謝無私奉獻

ymcui

能不能快速转成VLX?

aicr317

fl202 发表于 2013-12-18 17:44
现在fas还有什么存在意义？我每次都是转VLX的。

转VLX就有意义了？？？？？