[原创]EF_Tools工具箱 [最后更新 2009.08.07]
本帖最后由 作者 于 2009-8-7 0:58:41 编辑 <br /><br /> <p><font color="#ff0000" size="6">[最后更新：2009.08.07]</font></p><p></p><p>EF_CMDManage.vlx EF_CMDManage.ini －命令管理器，可将自定义命令增加到菜单中，并增加屏幕菜单，该<font color="#ff0000">管理器可单独运行</font></p><p>EF_Tools 工具箱(必须和上面命令行管理器一起使用)</p><p>EF_Loader.lsp：EF_Tools工具箱启动文件</p><p>EF_Command.lsp：定义EF_Tools中各种命令行命令名</p><p>EF_Tools.ini：EF_Tools 工具箱配置文件</p><p>EF_Tools.VLX：EF_Tools 工具箱主程序</p><p>Initial.LSP：初始化一些变量</p><p><font color="#ff0000" size="4">[更新 090806]</font><br/>1.新增 图库管理 EF_Libaray<br/>2.新增 坐标标注<br/>3.新增 文字炸开<br/>4.新增 文字合并<br/>5.新增 自身镜像<br/>6.新增 沿轴核线 ：以轴线为基准 将轴线两侧一定范围类 Line PLine线端点移到符合一定模数的位置上<br/>比如 线A 平行与轴线B 线A到B的距离为 124.12 通过设置模数为5 则 A将自动平移到距离B 125 位置处<br/> 7.新增 绘制箭头</p><p>8.改进 绘制标高 将自动记录上次坐标处标高 再次运行时 将根据上次标高 自动填写本次默认标高 当然你也可以手工改变<br/>9.文字输入 清除一些bug 不会将字写反了 可以允许选择字体样式</p><p>10. 新增自定义字体 以配合使用<br/>TXT1_ENG.shx －单线英文字体<br/>TXT1_CHN.shx－单线汉字字体<br/>TXT2_ENG.shx－双线英文字体<br/>TXT2_CHN.shx－双线汉字字体<br/>该字体该自 探索者字体，新字体高度为实际高度，原探索者字体高度较实际高度低20%，探索者特殊符号同样支持</p><p> </p><p>字体文件过大 请上我 网盘下载 <a href="http://elitefish.ys168.com">elitefish.ys168.com</a></p><p><font color="#ff0000" size="6">以下为旧版内容</font></p><p></p><p><font color="#ff0000">更新 EF_CMDManage <font size="2" face="Tahoma">修正了一个最后一个子菜单刚好为分页界限时仍显示前一个子菜单的问题</font></font></p><p></p><p> </p><p></p><p>下面为 EF_Tools.vlx EF_CMDManage.vlx 源程序</p><p> </p><p></p>谢谢楼主分享，对我帮助太大了 谢谢楼主分享，对我帮助太大了 本帖最后由 mokson 于 2018-5-27 14:29 编辑
不知道能不能用在2018上？
<p>用法：<br/>1.将 EF_Tools 目录 增加到AutoCad搜寻目录<br/>2.运行EF_Loader.lsp</p><p>功能简介及 命令如下 </p><p><br/>[菜单切换]<br/>EF工具箱 = (menucmd "S=EF_Tools.Screen")<br/>AutoCAD = (menucmd "S=Acad.Screen")<br/>清空菜单 = C:EF_ClearScreenMenu</p><p>[视图转换]<br/>视图变换 = C:EF_ObjectPlan</p><p>;仅用于图纸空间<br/>视口锁定 = C:EF_VportsLock<br/>视口解锁 = C:EF_VportsUnLock</p><p>[图层工具]<br/>选层显示 = C:EF_LayerON<br/>选层隐藏 = C:EF_LayerOFF<br/>选层锁定 = C:EF_LayerLock<br/>选层冻结 = C:EF_LayerFreeze<br/>置当前层 = C:EF_ItemToClayer<br/>设当前层 = C:ai_molc<br/>按色分层 = C:EF_LayerCutByColor</p><p>[标注工具]<br/>线性标注 = C:EF_DimLinear<br/>对齐标注 = C:EF_DimAligned<br/>弧长标注 = C:EF_DimArc<br/>标注合并 = C:EF_DimJoin<br/>标注断开 = C:EF_DimBreak<br/>标注避让 = C:EF_DimTextAutoMove<br/>转角→对齐 = C:EF_DIM-Linear->Aligned<br/>对齐→转角 = C:EF_DIM-Aligned->Linear<br/>位置取齐 = C:EF_DimPosAlign<br/>基点取齐 = C:EF_DimBaseAlign</p><p>[文字工具]<br/>沿线输入 = C:EF_TEXTByLine<br/>文本对齐 = C:EF_TEXTAlign<br/>万能编辑 = C:EF_TextEdit<br/>转多行文本 = C:EF_TextToMText<br/>文字加框 = C:EF_TextBox</p><p>[符号工具]<br/>剖面符号 = C:EF_Profiles<br/>图名标题 = C:EF_Title<br/>单剖断线 = C:EF_Post-Break1<br/>双剖断线 = C:EF_Post-Break2<br/>绘制标高 = C:EF_Elevation<br/>引线标注 = C:EF_LeadLine</p><p>[钢筋工具]<br/>钢筋设置 = C:EF_ReinConfig<br/>线变钢筋 = C:EF_ToRein<br/>绘制板筋 = C:EF_ReinDraw<br/>手工钢筋 = C:EF_ReinAny<br/>绘点钢筋 = C:EF_DrawReinPoint<br/>单段多点 = C:EF_ReinPointAtPLine<br/>钢筋加钩 = C:EF_ReinAddHook<br/>弯钩删除 = C:EF_ReinDelHook<br/>钢筋反向 = C:EF_ReinSelfMirror</p><p>[轴线编辑]<br/>绘制轴线 = C:EF_AXIS</p><p>[实体工具]<br/>双线节点 = C:EF_Object_Trim#NodeCon<br/>双线修剪 = C:EF_Object_Trim#<br/>双线修剪2 = C:EF_Object_Trim#ByMaxDist<br/>多义线闭合 = C:EF_Object_PLClose<br/>块色随层 = C:EF_BlockByLayer<br/>区间裁剪 = C:EF_TrimByCurve<br/>区间编号 = C:EF_Object_CloseAreaNum</p><p>[其他命令]<br/>制图比例 = C:EF_Config_Scale<br/>常用捕捉 = C:EF_OSNAP_Normal<br/>ｚ轴归零 = C:EF_Z0</p><p>[配置文件]<br/>默认设置 = C:EF_Config_Reset<br/>重新加载 = C:EF_ReLoad<br/>EF_Tools = (startapp (ef-info-dwggetkey "PARAMETER" "EDITAPP") (findfile "EF_Tools.ini"))<br/>命令管理 = (startapp (ef-info-dwggetkey "PARAMETER" "EDITAPP") (findfile "EF_CMDManage.ini"))</p> 下载，试一试,谢谢 <p>之前有发过。</p><p>这次发布的看起来好像丰富了不少。。。</p><p>谢谢楼主分享源码。</p><p>学习。</p> <p>看来楼主也是做结构的？</p><p>希望能有机会一起切蹉：</p><p>cad_lisp_结构群欢迎你：82109567</p> 谢谢你的源码，下载回去作参考、学习 <p>下载了，谢谢分享！</p> asdfxx发表于2009-7-25 15:45:00static/image/common/back.gif那个几个文件是制作屏幕菜单的呀，兄弟，
<p>EF_CMDManage.vlx EF_CMDManage.ini </p>