flyfox1047 发表于 2013-12-14 15:31:02

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

;;LSP2FAS.lsp                                    ; Scot Harris11-29-2012
;;   Minimizes the sequence needed to create FAS files.
;;   Help facility added.
;;   Streamlined from original program provided by aqdam1978.

(defun c:LSP2FAS-Help (/)
(alert (strcat
"\tLisp (LSP) to Fast and Secure (FAS) Help"
"\n "
"\nFile dialog begins in the current directory.   "
"\nIt is suggested to place and open a drawing (DWG)   "
"\ninside the input folder you wish to batch process.   "
"\n "
"\nOutput file will be in the same folder as the file selected.   "
"\n "
"\nThere is no provisional check for an existing FAS file of the same name.   "
))
);end LSP2FAS-Help

(defun c:LSP2FAS ( / a )
(vl-load-com)
(prompt " Lisp to Fast and Secure (FAS). LSP2FAS-Help available. ")
(if (wcmatch (strcase (setq a (getfiled "Convert LSP File to FAS" (getvar "DWGPREFIX") "" 16))) "*.LSP")
(progn
   (c:vlide)(vlisp-compile 'st a)
   (princ (strcat "\n File " (vl-string-subst ".fas" ".lsp" a) " created. "))
);progn
(alert "File extension must be \".LSP\"   ")
);if
(princ)
);end LSP2FAS

429014673 发表于 2013-12-14 16:30:29

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

spp_wall 发表于 2013-12-15 09:40:46

既然能快速转成fas

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

hao3ren 发表于 2013-12-15 20:01:24

想得美啊，哪有那么容易

混沌初开 发表于 2013-12-15 21:59:03

楼主辛苦了!

liuwei-1035 发表于 2013-12-18 13:55:38

楼主辛苦了，在这学习了

fl202 发表于 2013-12-18 17:44:43

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

alan0019hk 发表于 2013-12-19 14:47:36

好東西, 謝謝無私奉獻

ymcui 发表于 2013-12-19 15:05:03

能不能快速转成VLX?

aicr317 发表于 2013-12-19 16:27:42

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

转VLX就有意义了？？？？？
页: [1] 2
查看完整版本: 快速的将*.lisp转为*.FAS