【TB原创】tbTools(AutoCAD工具箱)：包括批量打印、侧边菜单、轴网标尺等

chpmould · 发表于 2009-5-12 01:31:00

非常感谢楼主,可不知什么原因我单独加载一直会出错用不了,能否整理一下,

单独加载到可以用,因为你的程序中,所用的很多函数我看不明白,

我希望能通过调试来慢慢理解.

tengte · 发表于 2009-5-11 23:13:00

本帖最后由作者于 2009-5-11 23:55:05 编辑

已上传到7楼，包含在压缩包中。

chpmould · 发表于 2009-5-11 20:16:00

非常感谢楼注无私的奉献精神,目前我正在学习EXCEL这方面的内容,

能否将(5、AutoCAD 表格中内容导出至 EXCEL，或从 EXCEL 导入。)

发到我的邮箱:jackpchan@126.com)谢谢

ht_ryq · 发表于 2009-5-11 18:58:00

学习！！！！！！！！！！！1111

tengte · 发表于 2009-5-11 16:49:00

本帖最后由作者于 2009-5-11 23:20:14 编辑

回５楼：

你的要求可满足（包容4和5），但还有一些相关的自定义函数没有包含其中，若需要你可单独提出。

我说过会发布部分源代码，但不会整体提供。因为在与大家分享和交流时，为了促进我们学习和思考，同时还要保护我的劳动成果，故我现在还会有所保留，希望大家能够理解，谢谢！！

jxlsp · 发表于 2009-5-11 15:01:00

有时间试用一下.

chpmould · 发表于 2009-5-11 12:36:00

能否提供以下两个源?(我的邮箱:jackpchan@126.com)谢谢!

4、导出由Line组成的表格中的文字，保存到Excel文件中

5、AutoCAD 表格中内容导出至 EXCEL，或从 EXCEL 导入。

tjuzkj · 发表于 2009-5-11 12:08:00

很好用，谢谢啦！

hstea · 发表于 2009-5-11 09:29:00

下了就顶！！

tengte · 发表于 2009-5-10 20:16:00

本帖最后由 tengte 于 2016-6-6 10:16 编辑

　　下载软件：
　　〖更新时间：2014.04.22〗有时AutoCAD打开某些DWG文件时，会出现若干“** 符号未定义: \U+00XX。”（英文版中为“** Glyph not defined at: \U+00XX.”）。用Regen刷新、文字编辑、文字样式修改、块编辑等操作都会反复出现这些错误信息，严重影响速度和心情！经过我的研究，发现这个问题是由字体文件与文字对象不匹配造成的。当文字样式较多时，要直接查找哪些字体文件不匹配也比较麻烦。为了解决这个问题，编写了这个独立的小程序（执行命令为：CTS）。
　　下载程序：
　　〖更新时间：2014.04.29〗对于一些配套专业（如建筑结构、建筑机电等专业），时常会遇到其它专业频繁提图的问题。有时前后两版图只有少量的改动，但如果绘图的人没有好的习惯或没有经验，没有把修改的地方标识出来，这时可能需要进行对比，找出修改的地方。如果图纸中图元非常多，这将是一项困难的工作。为了解决这个问题，编写了这个的小程序。程序调用了一些《TB Tools》中的通用函数，需要加载《TB Tools》或其中的Common.fas，才能正常执行。本程序包含两个命令：CDwg和RCD。
　　下载程序：
　　〖更新时间：2014.06.22〗本程序是对《TB Tools》中原有选择集功能的升级。保留了原有功能：记录选择操作，并可对选择集求并集、交集、差集。同时，增加了自动记录满足指定条件的选择集的功能。
　　自动选择集是利用AutoCAD的命令反应器，记录AutoCAD内部命令执行时选择的对象集合，需选择完成才有效（若选择过程中取消命令，则本次已选择的对象集合不会被记录）。另外，对自定义命令（如LISP程序中用ssget函数）的选择集不会记录。详见附件中说明。
　　下载程序：
下载后请先看《帮助文档.chm》，其中有详细的使用说明和功能介绍。

 
〖更新时间：2011.09.09〗现将前一段时间的更新，重新打包，方便支持的朋友下载。
同时新增两个功能：1、将绘图命令与图层关联，自动切换命令的当前图层，命令结束或取消后自动恢复以前的图层。2、按Excell表格内容，插入图块并填写属性。

 
〖更新时间：2011.09.04〗这几天写了一个AutoCAD小程序，用于将绘图命令与图层关联。先放一个预览出来(若在线观看有重影，请下载到本地后观看）：

 
〖更新时间：2011.08.01〗INIT.FAS，解决出现“9999: UNKNOWN ERROR!”的错误！有效期延长至2012.06.30。

替换该文件后，重新打开CAD，然后在命令行执行：
　　(vl-registry-write "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD" "" "")
即可。
 
〖更新时间：2011.01.06〗公布本工具的菜单项和工具按钮的接口函数
　　自从2009年5月《TB tools》首发后，由于众多网友喜欢和支持，让我有动力去多次更新和完善。由于工作的关系，我以后可能没有太多的时间去更新它，望各位网友谅解！ 　　我本想把TB tools设计为一个插件平台，成集众多的功能，也能让大家向其中添砖加瓦。 　　不知道有没有网友喜欢它的菜单和工具栏？其实你的LISP程序也能加到这里边来，按我下面的说明，很简单就能实现。 　　首先说说添加菜单项和工具按钮的接口函数（在Init.fas中定义），函数定义如下： 　　(defun TB:MTAddItem(parent caption macro HelpString icon fence dock) ... ) 　　参数说明： 　　parent──上级菜单（字符串）。为空或空串时，菜单项caption添加到一级子菜单中；否则parent为一级子菜单，caption添加到其下的二级子菜单中。 　　caption──菜单项名（字符串）。 　　macro──菜单宏（字符串）。选中菜单或按钮时，执行的命令。一般为与该菜单和按钮关联的函数名。若为tb为前缀时，还会将其加入到AutoCAD内置命令集中。 　　HelpString──菜单项帮助信息（字符串）。鼠标或光标停留在菜单项时，在状态栏显示的提示信息。 　　icon──工具按钮的位图名（字符串）。目前系统只支持位图(.bmp)，需要将其放到ICO目录下。调用时，参数只要位图名，不需要后缀(.bmp)。 　　fence──菜单项或按钮位于菜单或工具栏某区域内的位置（整数）。可为负数，意为倒数第几个。 　　dock──菜单项或按钮位于菜单或工具栏的哪个区域（整数）。菜单和工具栏被分隔为若干个区域，用于分类放置。可为负数，意为倒数第几个。 　　例1、为"打断交叉线"的函数（C:tbBL）添加到一级子菜单中的用法： 　　(TB:MTAddItem nil "打断交叉线" "tbBL" "按指定距离断开交叉的图线" "090301" 2 3) 　　例2、为"管理选择集"的函数（C:tbSSM）添加到二级子菜单中的用法： 　　(TB:MTAddItem "选择集" "管理" "tbSSM" "管理选择集:新建、浏览(删除和更改)、计算并集、交集、差集" "090202" 2 1) 　　例3、为"帮助信息"的函数（C:tbHelp）添加到位于最后一个区域的一级子菜单中的用法： 　　(TB:MTAddItem nil "&Help" "tbHelp" "帮助信息" "Help" 1 -1)
 
〖更新时间：2010.10.28〗更新为简体中文菜单，以及前期更新整体打包。

 
〖更新时间：2010.10.19〗INIT.FAS，解决出现“9999: UNKNOWN ERROR!”的错误！有效期延长至2011.06.30。

替换该文件后，重新打开CAD，然后在命令行执行：
(vl-registry-write "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD" "" "")
即可。
 
〖编辑时间：2010.07.15〗更新INIT.FAS，加入Toolbar.mnu，增加对AutoCAD2004的支持！
用法：将两文件解压到 BIN 文件夹下即可！

 
〖编辑时间：2010.07.02〗更新LOAD.FAS和INIT.FAS，解决出现“9999: UNKNOWN ERROR!”的错误！
 
 
〖编辑时间：2010.05.05〗现将前一段时间的更新，重新打包，方便支持的朋友下载。
 
 
〖编辑时间：2010.01.26〗更新[批量修改块属性]的功能，增加对真彩色和配色系统的支持（旧程序对这两种颜色无效）。

 
〖编辑时间：2009.10.27〗更正加载LOAD.FAS出现：“no function definition: VLAX-PRODUCT-KEY”的BUG。

 
〖编辑时间：2009.10.18〗由于有朋友受“acad.lsp病毒”的困扰，最近新制作了一个AutoCAD系统变量检测的功能。
CAD的系统变量有好几百个，不同版本之间也有差异。系统变量的用途和类型也各不相同，有只读型的，有时时变化的，有保存于注册表中的，有保存于DWG文件中的，也有不保存的。因此，对所有的系统变量进行保存和恢复的意义不大。现在，有些所谓的CAD病毒，主要是修改了部分“控制型”的系统变量，实现其“破坏作用”。所谓“控制型”，是指控制某动作是否执行，或按某种形式执行，该系统变量的值一般为整数型（还有“位码”，其实也是整数）。据此，只需对部分的控制型系统变量进行监测和恢复，就可发现CAD病毒，并修复被破坏的功能。
下载链接：

 
〖编辑时间：2009.10.09〗批量去除或添加[教育版打印戳記]的功能，增加对AutoCAD 2004和2010的支持，其中2010的测试过的版本为XP，Beta4。只需替换2009.09版中DLL文件夹下的tbACAD.dll文件即可：

 
〖编辑时间：2009.09.27〗帮助文档已更新：
 
 
〖编辑时间：2009.09.21〗对不起，还有一个文件有更新，忘了打包进去，请替换该文件：

 
〖编辑时间：2009.09.21〗新版本2009.09发布(还是没有时间更新帮助文档)：
　　新增批量去除或添加[教育版打印戳記]的功能。
　　特点：1、处理过程中，不会弹出教育版确认和继续对话框；
　　　　　2、没有转换到DXF文件的中间过程，也就不存在修复的问题，当然速度应该会快一些；
　　　　　3、可包含子文件夹，转换后目录结构不变。可覆盖原文件，会自动生成.bak备份文件；
　　　　　4、处理文件比较多时，会花较长的时间，因此加了一个进度的显示，以便了解执行的情况。
　　目前此功能只支持AutoCAD 2006-2009，在AutoCAD 2007下测试通过，由于没有安装AutoCAD其它版本，所以没有经过完全的测试，但理论应该没什么问题。欢迎有兴趣的朋友帮我测试一下，谢谢！
另：我还有一个与此功能相关的工具软件《EPS(去除或添加AutoCAD教育版打印戳记)》，请参见：<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=78256">http://bbs.mjtd.com/forum.php?mod=viewthread&tid=78256</A>

 
〖编辑时间：2009.05.13〗新版本发布(没有时间更新帮助文档，以后完成再单独上传)：
    1、增加修改编号、修改标高、对数字文本进行四则运算的功能；
    2、增加根据图案填充绘制其边界的功能。

〖编辑时间：2009.05.10〗
　　本工具是我在学习、工作之余，加上对编程的爱好，用纯LISP编写而成。 　　编写这个工具的目的：解决当前 AutoCAD 绘图中的一些不足或不便，提高绘图的效率，并将日常积累的一些小程序整理成集，以方便使用。 　　为方便操作，主要的命令都添加了菜单和工具按钮，相关的参数也具有记忆功能（与AutoCAD类似）。 主要包括以下功能： 　　1、记录选择操作，并可对选择集求并集、交集、差集。 　　2、<批量>按原型修改块属性文字的对齐方式，以及在块中的相对位置。原型是指已修改好的块，与其同名的块把它作为模板来进行修改；块中的相对位置是指属性对齐点与块的插入点的相对位置。 　　3、<批量>修改块属性文字的高度、颜色号、旋转角度、样式、图层。 　　4、导出由Line组成的表格中的文字，保存到Excel文件中。 　　5、AutoCAD 表格中内容导出至 EXCEL，或从 EXCEL 导入。 　　6、按指定的距离断开交叉的图线，并可多次修改断开的距离(兼有Trim和Extend的部分功能)。 　　详细内容请参见附件压缩包中的《帮助文档.chm》。 　　本工具尚在不断完善之中，没有经过严格的测试，可能存在一些 BUG。欢迎使用者反馈相关信息，并提出您宝贵的意见和建议，谢谢！

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

[资源] 【TB原创】tbTools(AutoCAD工具箱)：包括批量打印、侧边菜单、轴网标尺等

本帖子中包含更多资源

点评

2011.09.09 更新

本帖子中包含更多资源

浏览过的版块