为庆祝论坛重新开张，《大兵工具》源码大放送 2017年9月13日更新

dabingrain

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

ccc230

错误: 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-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

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

sdbaijiao

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

clinber

楼主好人啊

508000096

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

chenmik

感谢楼主！！！

linheyuanpcb

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

dalong6371451

没有币的捧场了

edata

感谢楼主分享。。。

↘觉醒

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

liwen888888

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