[原创]EF_Tools工具箱 [最后更新 2009.08.07]

elitefish

[最后更新：2009.08.07]

EF_CMDManage.vlx   EF_CMDManage.ini －命令管理器，可将自定义命令增加到菜单中，并增加屏幕菜单，该管理器可单独运行

EF_Tools 工具箱(必须和上面命令行管理器一起使用)

EF_Loader.lsp：EF_Tools工具箱启动文件

EF_Command.lsp：定义EF_Tools中各种命令行命令名

EF_Tools.ini：EF_Tools 工具箱配置文件

EF_Tools.VLX：EF_Tools 工具箱主程序

Initial.LSP：初始化一些变量

[更新 090806]
1.新增 图库管理 EF_Libaray
2.新增 坐标标注
3.新增 文字炸开
4.新增 文字合并
5.新增 自身镜像
6.新增 沿轴核线 ：以轴线为基准 将轴线两侧一定范围类 Line PLine线端点移到符合一定模数的位置上
比如 线A 平行与轴线B  线A到B的距离为 124.12 通过设置模数为5  则 A将自动平移到距离B 125 位置处
 7.新增 绘制箭头

8.改进 绘制标高 将自动记录上次坐标处标高 再次运行时 将根据上次标高 自动填写本次默认标高 当然你也可以手工改变
9.文字输入 清除一些bug 不会将字写反了 可以允许选择字体样式

10. 新增自定义字体 以配合使用
TXT1_ENG.shx －单线英文字体
TXT1_CHN.shx－单线汉字字体
TXT2_ENG.shx－双线英文字体
TXT2_CHN.shx－双线汉字字体
该字体该自 探索者字体，新字体高度为实际高度，原探索者字体高度较实际高度低20%，探索者特殊符号同样支持

 

字体文件过大 请上我 网盘下载 elitefish.ys168.com

以下为旧版内容

[2009.07.23]更新 EF_CMDManage  修正了一个最后一个子菜单刚好为分页界限时仍显示前一个子菜单的问题

 

下面为  EF_Tools.vlx  EF_CMDManage.vlx  源程序

 

zxc710370969

谢谢楼主分享，对我帮助太大了

不想多说

谢谢楼主分享，对我帮助太大了

mokson

不知道能不能用在2018上？

elitefish

用法：
1.将 EF_Tools 目录 增加到AutoCad搜寻目录
2.运行EF_Loader.lsp

功能简介及 命令如下

[菜单切换]
EF工具箱 = (menucmd "S=EF_Tools.Screen")
AutoCAD = (menucmd "S=Acad.Screen")
清空菜单 = C:EF_ClearScreenMenu

[视图转换]
视图变换 = C:EF_ObjectPlan

;仅用于图纸空间
视口锁定 = C:EF_VportsLock
视口解锁 = C:EF_VportsUnLock

[图层工具]
选层显示 = C:EF_LayerON
选层隐藏 = C:EF_LayerOFF
选层锁定 = C:EF_LayerLock
选层冻结 = C:EF_LayerFreeze
置当前层 = C:EF_ItemToClayer
设当前层 = C:ai_molc
按色分层 = C:EF_LayerCutByColor

[标注工具]
线性标注 = C:EF_DimLinear
对齐标注 = C:EF_DimAligned
弧长标注 = C:EF_DimArc
标注合并 = C:EF_DimJoin
标注断开 = C:EF_DimBreak
标注避让 = C:EF_DimTextAutoMove
转角→对齐 = C:EF_DIM-Linear->Aligned
对齐→转角 = C:EF_DIM-Aligned->Linear
位置取齐 = C:EF_DimPosAlign
基点取齐 =  C:EF_DimBaseAlign

[文字工具]
沿线输入 = C:EF_TEXTByLine
文本对齐 = C:EF_TEXTAlign
万能编辑 = C:EF_TextEdit
转多行文本 = C:EF_TextToMText
文字加框 = C:EF_TextBox

[符号工具]
剖面符号 = C:EF_Profiles
图名标题  = C:EF_Title
单剖断线 = C:EF_Post-Break1
双剖断线 = C:EF_Post-Break2
绘制标高 = C:EF_Elevation
引线标注 = C:EF_LeadLine

[钢筋工具]
钢筋设置 = C:EF_ReinConfig
线变钢筋 = C:EF_ToRein
绘制板筋 = C:EF_ReinDraw
手工钢筋 = C:EF_ReinAny
绘点钢筋 = C:EF_DrawReinPoint
单段多点 = C:EF_ReinPointAtPLine
钢筋加钩 = C:EF_ReinAddHook
弯钩删除 = C:EF_ReinDelHook
钢筋反向 = C:EF_ReinSelfMirror

[轴线编辑]
绘制轴线 = C:EF_AXIS

[实体工具]
双线节点 = C:EF_Object_Trim#NodeCon
双线修剪 = C:EF_Object_Trim#
双线修剪2 = C:EF_Object_Trim#ByMaxDist
多义线闭合 = C:EF_Object_PLClose
块色随层 = C:EF_BlockByLayer
区间裁剪 = C:EF_TrimByCurve
区间编号 = C:EF_Object_CloseAreaNum

[其他命令]
制图比例 = C:EF_Config_Scale
常用捕捉 = C:EF_OSNAP_Normal
ｚ轴归零 = C:EF_Z0

[配置文件]
默认设置 = C:EF_Config_Reset
重新加载 = C:EF_ReLoad
EF_Tools = (startapp (ef-info-dwggetkey "PARAMETER" "EDITAPP") (findfile "EF_Tools.ini"))
命令管理 = (startapp (ef-info-dwggetkey "PARAMETER" "EDITAPP")  (findfile "EF_CMDManage.ini"))

liao1968

下载，试一试,谢谢

carrot1983

之前有发过。

这次发布的看起来好像丰富了不少。。。

谢谢楼主分享源码。

学习。

carrot1983

看来楼主也是做结构的？

希望能有机会一起切蹉：

cad_lisp_结构群欢迎你：82109567

haipingtao

谢谢你的源码，下载回去作参考、学习

chtd

下载了，谢谢分享！

elitefish

asdfxx发表于2009-7-25 15:45:00那个几个文件是制作屏幕菜单的呀，兄弟，

EF_CMDManage.vlx   EF_CMDManage.ini