zhong879 发表于 2013-12-26 21:53:44

批量LSP转FAS

用系统自带的编译工具，经常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
)
)

自贡黄明儒 发表于 2014-2-13 16:35:03

LZ，有没有FAS2LSP呀

yanshengjiang 发表于 2021-12-1 22:26:53

KO你 发表于 2020-3-17 00:14
什么方法，能分享下吗，感谢




@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:14:16

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

baitang36 发表于 2020-3-16 06:33
当然有，试验过150个合并成一个，能用。
什么方法，能分享下吗，感谢


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

yoyoho 发表于 2013-12-26 22:40:57

感谢 zhong879 分享源码程序!

xiabin68 发表于 2013-12-27 00:08:58

好东西，一定要顶一下。

峰峰兒 发表于 2013-12-27 11:17:43

【KAIXIN】 发表于 2014-2-12 17:06:23

支持

















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

香田里浪人 发表于 2014-2-13 15:57:55

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

springwillow 发表于 2014-2-13 17:21:27

能修改成lsp转成VLX吗？

世界一角的你 发表于 2014-3-23 12:01:03

给力啊，先定下再说

enn09 发表于 2014-4-1 16:30:56

给力啊，先顶下再说
页: [1] 2 3 4 5
查看完整版本: 批量LSP转FAS