找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 13470|回复: 96

(6.11)[测试]:我的工具集

[复制链接]

已领礼包: 593个

财富等级: 财运亨通

发表于 2003-12-7 02:41:26 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
CAD2004下测试通过。

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

更新:
2003.12.22

1 文字工具

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

2 组选工具

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

3 实用工具

  删超短线

4 查询工具

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

2003.12.11

1 绘图参数

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

3 文字工具

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

4 实用工具

  多用擦除  隐藏实体  取消隐藏  临时隐藏  局部生成
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2003-12-7 03:03:22 | 显示全部楼层
能做个说明吗?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 593个

财富等级: 财运亨通

 楼主| 发表于 2003-12-7 08:53:34 | 显示全部楼层
最初由 das 发布
[B]能做个说明吗? [/B]

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

工具条

                               
登录/注册后可看大图


                               
登录/注册后可看大图


                               
登录/注册后可看大图


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

                               
登录/注册后可看大图


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

                               
登录/注册后可看大图


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

4    [绘制室外标高]

5    [隐藏选择实体]

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

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

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

9    [拾取两个标高块自动生成百分计坡度]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-12-8 09:19:02 | 显示全部楼层
请问如何自动加载.vlx?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-12-8 10:38:28 | 显示全部楼层
最初由 bsq 发布
[B]请问如何自动加载.vlx? [/B]


用appload命令就可以加载
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-12-8 11:13:00 | 显示全部楼层
在r14下能做到自动加载吗?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-12-8 13:32:11 | 显示全部楼层
我是用R14的能用吗?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-12-10 16:57:01 | 显示全部楼层
下载“我的工具集”,并在CAD2004加载.vlx后,不见菜单。能否详细介绍使用步骤,谢谢。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-12-10 17:53:16 | 显示全部楼层
请回答14能用吗?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-12-10 18:09:05 | 显示全部楼层
//        坐标标注系统工具箱菜单
//
//  制作: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            [帮助]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-12-11 08:49:09 | 显示全部楼层
最初由 2002zjp 发布
[B]//        坐标标注系统工具箱菜单
//
//  制作:Eachy       Email: eachy@21cn.com
//
//
//
***MenuGroup=EzTools
//***POP1
//ID_EzTools   [&EzTools]
//ID_EzSystem  [综合设定(&S)]^... [/B]


2002zip真热心,提供菜单,谢谢!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-12-11 11:40:47 | 显示全部楼层
斑竹能告诉我那个临时隐藏的源代码吗
还有您的图标是如何嵌入程序的呢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 593个

财富等级: 财运亨通

 楼主| 发表于 2003-12-11 12:15:09 | 显示全部楼层
最初由 playboy 发布
[B]斑竹能告诉我那个临时隐藏的源代码吗
还有您的图标是如何嵌入程序的呢 [/B]

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

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

回 7 9 12 楼:

R14下不能使用。

回 13 楼:

原来只想修改坐标标注程序在2004下使用,写着写着有了把自己的一些程序集合起来的想法,用Lisp的好处是可以随着CAD同步升级,ARX就不行了,以前用API写的东西只好割爱了。
本工具集中一般不会写和其他工具集重复的功能,当然你有专业要求时可以跟贴或到编程申请论坛发贴,当你提的功能要求有相对普遍应用时我可以加入到工具集合中。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 593个

财富等级: 财运亨通

 楼主| 发表于 2003-12-11 12:24:46 | 显示全部楼层
最初由 万里 发布
[B]14可不可能用??? [/B]


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

在2002下用XD工具箱,现在升级2004不得已才自己写了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-12-11 14:27:09 | 显示全部楼层
(redraw (car(entsel)) 3)只是亮显呀。临时隐藏是几呀。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-28 21:55 , Processed in 0.453070 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表