为庆祝论坛重新开张，《大兵工具》源码大放送 2017年9月13日更新
本帖最后由 dabingrain 于 2018-5-11 08:14 编辑业余时间学习，借鉴了论坛很多前辈高人的成果，写出来好像只能自己使用（本人win10 X64 CAD2012 安装了ET），特此奉献出来，大家看着使用，2017年9月13日更新，修正了部分用户不能使用的问题（主要是加载过程中出错，导致后续的程序没有加载导致）！！
下载后请修改“大兵工具.lsp”中搜索路径，然后只需要加载此文件即可加载其他文件及菜单，目前只支持AUTOCAD！
错误: 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 ) )
)
) ↘觉醒 发表于 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) 业余时间学习，借鉴了论坛很多前辈高人的成果，写出来好像只能自己使用（本人win10 X64 CAD2012 安装了ET），特此奉献出来，大家看着使用，2017年9月13日更新，修正了部分用户不能使用的问题（主要是加载过程中出错，导致后续的程序没有加载导致）！！
下载后请修改“大兵工具.lsp”中搜索路径，然后只需要加载此文件即可加载其他文件及菜单，目前只支持AUTOCAD！ 谢谢楼主分享，下来学习下。 楼主好人啊 看看楼主的布局功能如何。 感谢楼主！！！ 没有钱的路过,捧个人场支持 没有币的捧场了 感谢楼主分享。。。 怎么用呢？加载不上工具。 谢谢楼主分享，下来学习下