(６.１１)[测试]：我的工具集

eachy

CAD2004下测试通过。

下载链接：
http://www.xdcad.net/forum/showt ... 1048705#post1048705

更新：
2003.12.22

1 文字工具

  随线平齐  改转倾角   匹配字高  修改字高  修改文字 宽度因子

2 组选工具

  组选开关  单选开关   组 制 作  去组定义  两组合并 组删实体  
  组移实体  组添实体

3 实用工具

  删超短线

4 查询工具

  曲线长度  曲线面积  连续测距  面积求和  数字求和

2003.12.11

1 绘图参数

2 标注工具
  
  三角标高 十字标高  圆点标高  生成坡度

3 文字工具

  连接文字  对齐文字 镜像修复

4 实用工具

  多用擦除  隐藏实体  取消隐藏  临时隐藏  局部生成

das

能做个说明吗？

eachy

最初由 das 发布
[B]能做个说明吗？ [/B]

因为升级到CAD2004，由于各API的更新速度与CAD慢，不得已自己用Vlisp/Lisp编写些自己常用的工具，目前只有以下几个功能，以后将逐步扩展：

工具条

                               
登录/注册后可看大图

                               
登录/注册后可看大图

                               
登录/注册后可看大图

1    [设置全局比例及控制字体高度]

                               
登录/注册后可看大图

2    [提供几种常用过滤设置的擦除，包括实体类型、图层、颜色、块名]

                               
登录/注册后可看大图

3    [测量连续拾取点间的长度及总长度]

4    [绘制室外标高]

5    [隐藏选择实体]

6    [将隐藏实体全部显示]

7    [只有Regen后即可显示隐藏实体]

8    [对个别实体重生成, 解决圆、弧显示不圆问题]

9    [拾取两个标高块自动生成百分计坡度]

bsq

请问如何自动加载.vlx？

along1564

最初由 bsq 发布
[B]请问如何自动加载.vlx？ [/B]

用appload命令就可以加载

倚夕扇雪

在r14下能做到自动加载吗？

七丰

我是用R14的能用吗？

longcable

下载“我的工具集”，并在CAD2004加载.vlx后，不见菜单。能否详细介绍使用步骤，谢谢。

jxsqq

请回答14能用吗？

2002zjp

//        坐标标注系统工具箱菜单
//
//  制作：Eachy       Email: eachy@21cn.com
//
//
//
***MenuGroup=EzTools
//***POP1
//ID_EzTools   [&EzTools]
//ID_EzSystem  [综合设定(&S)]^C^C^PEa_setcoordsys
//             [--]
//ID_EzZBBZ    [坐标标注(&D)]^C^C^PEa_ZBBZ
//ID_EzMZbbz   [批量标注(&M)]^C^C^PEa_mZBBZ
//             [--]
//ID_EzDZBBZ   [动态开关(&O)]^C^C^PEa_SetDrag
//             [--]
//ID_EzEdZBBZ  [->坐标编辑(&E)]
//ID_EzChkZBBZ     [检查(&C)]^C^C^PEa_ChkZb
//ID_EzScZBBZ      [缩放(&S)]^C^C^PEa_ScZB
//ID_EzMovZBBZ     [移位(&M)]^C^C^PEa_MovZB
//ID_EzMirZBBZ     [翻转(&R)]^C^C^PEa_MirZB
//                 [--]
//ID_EzJStr        [连字符(&J)]^C^C^PEa_JStr
//ID_EzPStr        [<-前缀开关(&P)]^C^CPEa_PStr
//             [--]
//ID_EzDrAxis  [绘坐标网(&X)]^C^C^PEa_DrAxis
//ID_EzDmAxis  [标注格线(&I)]^C^C^PEa_DmAxis
//ID_EzZbAxis  [坐标定网(&W)]^C^C^PEa_ZbAxis
//             [--]
//ID_EzIFile   [输入文件(&F)]^C^C^PEa_Ifile
//ID_EzEfile   [输出坐标(&E)]^C^C^PEa_Efile
//             [--]
//ID_EzHelp    [帮助(&H)]^P(startapp "eachy.chm")
//             [--]
//ID_EzAbout   [关于...]^PEa_about

***TOOLBARS
**TB_EzZBBZ
**EA:坐标标注系统
ID_EzBZ             [_Toolbar("EA:坐标标注系统", _Floating, _hide, 110, 120, 1)]
ID_EzSystem         [_Button("综合设置", "E_SETCRD", "E_SETCRD")]^C^C
ID_EzZBBZ           [_Button("坐标标注", "E_ZBBZ", "E_ZBBZ")]^C^C^PEa_ZBBZ
ID_EZMZBBZ          [_Button("批量标注", "E_MZBBZ", "E_MZBBZ")]^C^C^PEa_MZBBZ
ID_EZDZBBZ          [_Button("动态开关", "E_DZBBZ", "E_DZBBZ")]^C^C^PEa_SetDrag
                    [--]
ID_EZCHKZBBZ        [_Button("坐标检查", "E_CHKZB", "E_CHKZB")]^C^C^PEa_chkzb
ID_EZSCZBBZ         [_Button("坐标缩放", "E_SCLZB", "E_SCLZB")]^C^C^PEa_SClZB
ID_EZMOVZBBZ        [_Button("坐标移位", "E_MOVZB", "E_MOVZB")]^C^C^PEa_MOVZB
ID_EZMIRZBBZ        [_Button("坐标翻转", "E_MIRZB", "E_MIRZB")]^C^C^PEa_MIRZB
                    [--]
ID_EZJSTR           [_Button("连字符", "E_JSTRZB", "E_JSTRZB")]^C
ID_EZPSTR           [_Button("前缀开关", "E_PSTRZB", "E_PSTRZB")]^C
                    [--]
ID_EzDrAxis         [_Button("绘坐标网", "E_DZAXIS", "E_DZAXIS")]^C^C^PEa_DrAxis
ID_EzDmAxis         [_Button("标注格线", "E_DMZAXIS", "E_DMZAXIS")]^C^C^PEa_DmAxis
ID_EzZbAxis         [_Button("坐标定网", "E_ZBAXIS", "E_ZBAXIS")]^C^C^PEa_ZbAxis
                    [--]
ID_EzIFile          [_Button("输入文件", "E_ZIFILE", "E_ZIFILE")]^C^C^PEa_Ifile
ID_EzEfile          [_Button("输出坐标", "E_ZEFILE", "E_ZEFILE")]^C^C^PEa_Efile
                    [--]
ID_EzHelp           [_Button("帮助", "E_zHELP", "E_zHelp")]^P(startapp "eachy.chm")

**TB_EzTools
**EA:工具
ID_EzTool           [_Toolbar("EA:工具集", _Floating, _show, 110, 120, 1)]
ID_EzSetScl         [_Button("绘图参数", "E_SYS", "E_SYS")]^C^C^PEA:SETSCAL
ID_EzStyle          [_Flyout("当前字体", E_STYLE1, X_STYLE1, _OtherIcon, Eztools.TB_EzTXT)]
ID_EzErase          [_Button("多用擦除", "E_ERASE", "E_ERASE")]^C^C^PEA:ERASE0
ID_EzDist           [_Button("连续测距", "E_DIST", "E_DIST")]^C^C^PEA:DIST
ID_EzBiaoG          [_Button("绘制标高", "E_DRBG", "E_DRBG")]^C^C^PEA:BG
ID_EzHideOBJ        [_Button("隐藏实体", "E_HIDE", "E_HIDE")]^C^C^PEA:HIDEOBJ
ID_EzShowALL        [_Button("取消隐藏", "E_SHOWA", "E_SHOWA")]^C^C^PEA:SHOWALL
ID_EzTmpHide        [_Button("临时隐藏", "E_HIDE0", "E_HIDE0")]^C^C^PEA:TMPHIDE
ID_EzRegen          [_Button("局部生成", "E_REGEN", "E_REGEN")]^C^C^PEA:REGEN


**TB_EzTXT
**EA:文字工具      
ID_EzTXT            [_Toolbar("EA:文字工具", _Floating, _hide, 120, 130, 1)]
ID_EzStyle          [_Button("当前字体", "E_STYLE1", "E_STYLE1")]^C^C^PEA:Style
ID_EzSty            [_Button("字体样式", "E_STYLE0", "E_STYLE0")]^C^C^P_.Style

***HELPSTRINGS
ID_EzStyle           [拾取样板字体或者从列表中指定当前字体]
ID_EzSty             [CAD标准字体样式设置]
ID_EzSetScl          [设置全局比例及控制字体高度]
ID_EzErase           [提供几种常用过滤设置的擦除，包括实体类型、图层、颜色、块名]
ID_EzDist            [测量连续拾取点的长度]
ID_EzBiaoG           [绘制室外标高]
ID_EzHideOBJ         [隐藏选择实体]
ID_EzShowALL         [将隐藏实体全部显示]
ID_EzTmpHide         [只有Regen后即可显示隐藏实体]
ID_EzRegen           [对个别实体重生成, 解决圆、弧显示不圆问题]
ID_EzSystem          [设置坐标的各种参数]
ID_EzZBBZ            [标注拾取点的当前标注系统下的坐标值]
ID_EZMZBBZ           [自动标注选择集内所有交点的当前标注坐标系的坐标]
ID_EZDZBBZ           [动态坐标开关或坐标块实体动态开关]
ID_EZCHKZBBZ         [检查坐标块在当前坐标系的正确性并自动更正]
ID_EZSCZBBZ          [不改变系统设置的情况下缩放标注块]
ID_EZMOVZBBZ         [移动坐标块的标注位置]
ID_EZMIRZBBZ         [沿X/Y轴镜像坐标块]
ID_EZJSTR            [切换标注块内连字符]
ID_EZPSTR            [开关标注块内连字符, 包括连字符, 重新打开时连字符为当前设置]
ID_EzDrAxis          [绘制制定范围内坐标网格]
ID_EzDmAxis          [标注制定直线的单项坐标]
ID_EzZbAxis          [通过拾取两个系统生成的标注块自动生成坐标网]
ID_EzIFile           [依据坐标文件生成红线图, 文件格式包括TXT和Excel]
ID_EzEfile           [将标注块坐标输出表格或者生成坐标文件(TXT & XLS)]
ID_EzHelp            [帮助]

coolzhb

最初由 2002zjp 发布
[B]//        坐标标注系统工具箱菜单
//
//  制作：Eachy       Email: eachy@21cn.com
//
//
//
***MenuGroup=EzTools
//***POP1
//ID_EzTools   [&EzTools]
//ID_EzSystem  [综合设定(&S)]^... [/B]

2002zip真热心，提供菜单，谢谢！

playboy

斑竹能告诉我那个临时隐藏的源代码吗
还有您的图标是如何嵌入程序的呢

eachy

最初由 playboy 发布
[B]斑竹能告诉我那个临时隐藏的源代码吗
还有您的图标是如何嵌入程序的呢 [/B]

1 临时隐藏用的是 redraw 函数，可以透明使用

2 建立一个和菜单文件名称一样的DLL文件就可以使用图标菜单，建立DLL的方法在Lisp论坛置顶帖子找。

回 7 9 12 楼：

R14下不能使用。

回 13 楼：

原来只想修改坐标标注程序在2004下使用，写着写着有了把自己的一些程序集合起来的想法，用Lisp的好处是可以随着CAD同步升级，ARX就不行了，以前用API写的东西只好割爱了。
本工具集中一般不会写和其他工具集重复的功能，当然你有专业要求时可以跟贴或到编程申请论坛发贴，当你提的功能要求有相对普遍应用时我可以加入到工具集合中。

eachy

最初由 万里 发布
[B]14可不可能用？？？ [/B]

你还在用R14？其实现在2004下可选择的工具集已经很多。

在2002下用XD工具箱，现在升级2004不得已才自己写了。

playboy

(redraw (car(entsel)) 3)只是亮显呀。临时隐藏是几呀。