批量LSP转FAS

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

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

LZ，有没有FAS2LSP呀

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

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

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

baitang36 发表于 2020-3-16 06:33
当然有，试验过150个合并成一个，能用。

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

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

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

感谢 zhong879 分享源码程序!

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

好东西，一定要顶一下。

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

提示: 作者被禁止或删除内容自动屏蔽

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

支持

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

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

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

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

能修改成lsp转成VLX吗？

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

给力啊，先定下再说

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

给力啊，先顶下再说

账号		自动登录	找回密码
密码			注册

[源码] 批量LSP转FAS

本帖被以下淘专辑推荐:

相关帖子

峰峰兒峰峰兒当前离线积分 10947 明经币个注册时间 2010-8-7 在线时间小时威望金钱个贡献激情	发表于 2013-12-27 11:17 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡