用系统自带的编译工具，经常CAD卡死，就参考前人的写了这个批量转换的，需要的朋友拿去

(defun c:LSP2FAS ( / a)
  ;;;  (setq lspfold "C:/Users/ZYX/Desktop/Coffee/我的程序")
  (vl-load-com)
  (if (= lsp_shell nil) (setq lsp_shell (cfe_getFolder "选择文件夹:")))
  (setq lst (vl-directory-files lsp_shell "*.lsp"))
  (c:vlide)
  (foreach n lst
    (vlisp-compile 'st (strcat lsp_shell "/" n))
    (princ
      (strcat "\n" (vl-string-subst ".fas" ".lsp" (strcat lsp_shell "/" n))
                " 已创建. ")
        ))
  (princ)
  )

;打开文件夹
(defun cfe_getFolder (msg / WinShell shFolder path catchit)
  (vl-load-com)
  (setq winshell (vlax-create-object "Shell.Application"))
  (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
  (setq
    catchit (vl-catch-all-apply
              '(lambda ()
                 (setq shFolder (vlax-get-property shFolder 'self))
                 (setq path (vlax-get-property shFolder 'path))
               )
            )
  )
  (if (vl-catch-all-error-p catchit)
    nil
    path
  )
)

网友答: LZ，有没有FAS2LSP呀

网友答:
@echo off
(for %%a in (*.lsp) do (
rem 我去掉了这句.是添加文件名进文件的echo %%~na&echo.
more /e "%%a" & echo.
))>c:\total.lsp



我一直用这个，批处理。bat格式，放在源码堆里面，合并到C盘。
其他文本文件应该都支持。

网友答: 本帖最后由 KO你 于 2020-3-17 00:17 编辑

什么方法，能分享下吗，感谢


我之前有好几个程序用源码经常会失灵，用楼主的方法转成FAS格式之后就正常了，是否FAS比源码在CAD上更稳定。

网友答: 感谢 zhong879 分享源码程序!


网友答: 好东西，一定要顶一下。

网友答: 支持

















承接CAD二次开发项目(价格实惠)
QQ:2363673534

网友答: 确实是好东西，不顶一下也说不过去。

网友答: 能修改成lsp转成VLX吗？

网友答: 给力啊，先定下再说

网友答: 给力啊，先顶下再说