dabingrain 发表于 2017-8-14 15:49:12

《大兵工具》源码大放送 2025年10月9日更新

本帖最后由 dabingrain 于 2025-10-17 14:15 编辑

业余时间学习，借鉴了论坛很多前辈高人的成果，特此奉献出来，大家看着使用，2025年10月9
日更新，下载后请拖放“拖放到CAD屏幕，配置大兵工具.lsp”使用，目前可能与部分第三方插件冲突，有的时候不能加载，请手动加载“DBTools.lsp”文件，目前只支持AUTOCAD！盛通专用部分涉及隐秘，没有提供！










发现一处问题，在文件菜单-菜单生成.lsp中，图示位置函数进行替换








ccc230 发表于 2020-8-21 22:30:59

错误: no function definition: V1-LOAD-COM
(v1-load-com)
(setvar "cmdecho "0)
(setq DBPath "D:\\大兵插件\\")
(defun DBlispPath (lispPath)
       (strcat DBPath lispPath )
)
(foreach fileoK (vl-directory-files (DBlispPath "支持库") "*.lsp" 1)
      (if fileOK
          (load (StrCat   (DBlispBath "支持库") "\\" FileOK ) )
      )
)
(foreach fileoK (vl-directory-files (DBlispPath "函数") "*.lsp" 1)
      (if fileOK
          (load (StrCat   (DBlispBath "函数") "\\" FileOK ) )
      )
)
(foreach fileoK (vl-directory-files (DBlispPath "函数") "*.fas" 1)
      (if fileOK
          (load (StrCat   (DBlispBath "函数") "\\" FileOK ) )
      )
)

freehand8008 发表于 2017-8-15 17:36:40

↘觉醒 发表于 2017-8-14 23:38
改成这样了但还是加载不说帮忙看下是不是误删了了什么

我的这样OK

(vl-load-com)
(setvar "cmdecho" 0)
(foreach fileOK (vl-directory-files "D:\\大兵插件\\支持库" "*.lsp" 1)
        (if fileOK
                (load (StrCat "D:\\大兵插件\\支持库\\" FileOK ))
        )
)
(foreach fileOK (vl-directory-files "D:\\大兵插件\\函数" "*.lsp" 1)
        (if fileOK
                (load (StrCat "D:\\大兵插件\\函数\\" FileOK ))
        )
)
(foreach fileOK (vl-directory-files "D:\\大兵插件\\函数" "*.fas" 1)
        (if fileOK
                (load (StrCat "D:\\大兵插件\\函数\\" FileOK ))
        )
)
(setvar "cmdecho" 1)
(princ)

yuan4399 发表于 2022-4-5 16:07:01

业余时间学习，借鉴了论坛很多前辈高人的成果，写出来好像只能自己使用（本人win10 X64 CAD2012 安装了ET），特此奉献出来，大家看着使用，2017年9月13日更新，修正了部分用户不能使用的问题（主要是加载过程中出错，导致后续的程序没有加载导致）！！
下载后请修改“大兵工具.lsp”中搜索路径，然后只需要加载此文件即可加载其他文件及菜单，目前只支持AUTOCAD！

sdbaijiao 发表于 2017-8-14 15:55:04

谢谢楼主分享，下来学习下。

clinber 发表于 2017-8-14 15:57:01

楼主好人啊

508000096 发表于 2017-8-14 16:21:04

看看楼主的布局功能如何。

chenmik 发表于 2017-8-14 17:03:29

感谢楼主！！！

linheyuanpcb 发表于 2017-8-14 17:29:23

没有钱的路过,捧个人场支持

dalong6371451 发表于 2017-8-14 17:52:42

没有币的捧场了

edata 发表于 2017-8-14 18:23:38

感谢楼主分享。。。

↘觉醒 发表于 2017-8-14 19:19:18

怎么用呢？加载不上工具。

liwen888888 发表于 2017-8-14 19:53:02

谢谢楼主分享，下来学习下
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 《大兵工具》源码大放送 2025年10月9日更新