[分享]：【实用程序汇总】test000系列！
本帖最后由 xyp1964 于 2014-4-14 21:40 编辑下载TEST系列程序打包文件
所有文件均需放到CAD搜索路径下。
版本：
e派工具箱(XCAD)：http://yunpan.cn/QXQKsW9gAPmpF
所有内容整合到test000.lsp中。
带★的可能用途较大或思路较新！
程序命令及功能：
test001：线段总长 ★
test002：打碎黄色多义线
test003：改字母大小写
test004：炸碎文字 ★
test005：字按线对齐
test006：面积求和 ★
test007：打断插文字
test008：改多圆半径 ★
test009：剖切号 ★
test010：多义线顶点坐标 ★
test011：反BREAK ★
test012：圆心坐标到定线垂长
test013：标注加前置词
test014：Pline圆弧标注
test015：批量删除短线 ★
test016：圆环数量及选集
test017：图纸信息
test018：后缀值累加
test019：三边长求面积
test020：文本加括号
test021：连续图号
test022：加边框
test023：横线切竖线 ★
test024：定线长中点
test025：多义线长度逐段累加赋值 ★
test026：反圆角
test027：转转转
test028：多圆内外偏移 ★
test029：连接多线
test030：显示A～Z
test031：块替换 ★
test032：线起点、终点 ★
test033：边画矩形边显示面积（grread应用实例） ★
test034：两线端点连线的中心线
test035：同图层物体合并成匿名组（group） ★
test036：缺口线－虚线
test037：分割线
test038：连续序号球 ★
test039：打碎物体之选集
test040：线开口 ★
test041：设置路径 ★
test042：单线改双线 ★
test043：惯性矩
test044：标注精度和比例
test045：门窗数量统计 ★
test046：显示日期
test047：块统计并制表标注 ★
test048：高程增减 ★
test049：点坐标输出 ★
test050：粗糙度符号
test051：改字高和倾斜角 ★
test052：线改圆柱体
test053：方管、圆管 ★
test054：插入时间和日期 ★
test055：极坐标 ★
test056：方块修剪 ★
test057：新年大吉动画 ★
test058：短线集
test059：立剖面标高 ★
test060：铁路线 ★
test061：坐标写出文件
test062：下划线
test063：删除括号
test064：旧表数字排序，求间距
test065：多义线顶点序号及坐标 ★
test066：自动平移视图
test067：桩号点排序 ★
test068：两圆交点 ★
test069：批量修改图层名
test070：改图块比例
test071：修改多义线中指定线段的宽度 ★
test072：窗口输出PDF格式文件，只需点两点就搞定，前提必须安装ACROBATE软件。 ★
test073：在图纸中查找不存在的数字
test074：三点画斜向长方形：1、2点确定方向，3点确定对角线长度
test075：旧文字完全匹配修改为新文字 ★
test076：将所选择的多个文字改为另外同一个文字
test077：将选择的图层显示后置★
test078：将选择的图层显示前置★
test079：复制+旋转
test080：统计图块数量并绘制表格★
test081：批量LINE线等分成n份并删除原线
test082：删除文本中特定字符前或后的内容★
test083：文字加任意前缀,并变颜色以示标记
test084：线画车位
test085：线改车位
test086：以圆为边界剪切内或外实体 ★
test087：一级方程动画 ★
test088：屏幕转转转
test089：将距离值输入剪贴板 ★
test090：保存Area命令中的每个面积及最后值 ★
test091：保存pline命令中的每段距离及最后值 ★
test092：一次点击保留中段（剪去两端）线
test093：随机云图线 ★
test094：变形阴阳图
test095：(a/b)^1/2*1000
test096：在数字的基准点产生边长为该数字值的正方形
test097：在数字的基准点产生一个直径为比该数字值大300的圆
test098：画定圆直径加300的正方形
test099：将圆环donut转成圆
test100：直线两端缩短定距离
^C^C^Ptest101
^C^C^Ptest102
C^C^Ptest103 ★
^C^C^Ptest104
^C^C^Ptest105
^C^C^Ptest106
^C^C^Ptest107
^C^C^Ptest108
^C^C^Ptest109
^C^C^Ptest110
^C^C^Ptest111
^C^C^Ptest112
^C^C^Ptest113 ★
^C^C^Ptest114
^C^C^Ptest115 ★
^C^C^Ptest116
^C^C^Ptest117 ★
^C^C^Ptest118
^C^C^Ptest119
^C^C^Ptest120
^C^C^Ptest121
^C^C^Ptest122
^C^C^Ptest123
^C^C^Ptest124 ★
^C^C^Ptest125
^C^C^Ptest126
^C^C^Ptest127
^C^C^Ptest128
^C^C^Ptest129
^C^C^Ptest130
^C^C^Ptest131
^C^C^Ptest132 ★
^C^C^Ptest133
^C^C^Ptest134
^C^C^Ptest135
^C^C^Ptest136 ★
^C^C^Ptest137 ★
^C^C^Ptest138 ★
^C^C^Ptest139
^C^C^Ptest140
^C^C^Ptest141 ★
★ 2005年01月27日版
★ 2005年2月10日, 21:52:24 T070版
免币下载180次后收币！大家要破费了，呵呵……
为感谢大家的支持，收币140后彻底免币。
基本按每增加10个程序换一次版！
★ 2005年2月26日, 9:00:50 T082版 附加菜单文件
★ 2005年3月12日, 13:21:44 T090版
★ 2005年3月16日, 14:56:08 T090A版
★ 2005年4月2日, 22:45:22 T100版
★ 2005年4月20日,T110版
★ 2005年4月28日,T110A版
★ 2005年5月7日,T120版
★ 2005年5月26日,T132版
★ 2005年6月12日,T141版
将文件放到搜索路径下，用menu加载test000.mns菜单即可。
非“test系列程序”需到签名栏下载。
下面的附件内包括3个文件：test000.lsp、test000.mns、test000.mnl
好是好，但是R14加不了啊!
test000菜单：by xyp1964
Re: [LISP程序]：实用程序汇总（不断添加，原创！）
最初由 xyp1964 发布近期讨论了几个lisp程序，受益非浅，觉得有必要整理，也许对大家有点用途。
为简化后面的程序将通用子程序首先上载，如果使用后面的程序，必须将本程序放到CAD搜索路径下。
本程序会不断更新，目前加密、免币！待?..
各函数需要的参数没有说明 LISP程序怎么加载啊？是用menu命令吗？ 支持一下楼主。只是这样一个一个的你上传不也麻烦吗？何不做成一个文件？
好主意！By xyp1964 采纳楼上意见，多余帖子全部删除。
程序名称改为test000.lsp，在2楼，会不定期更新。 这种无私奉献和为大家服务的精神真是太值得表扬和学习。
xyp1964辛苦了！！！ 支持楼主的奉献精神。以后要向你好好学习。
支持斑主加分加币。 加载不了的? 建议加积分，非常感激无私行为！ 明白 支持xyp1964！贴一个我自己写的entsel格式化函数，返回值与entsel相同。
函数调用示例：
(@entsel "*line,text" "\n请选择物体（文本或线）：")
函数代码：
(defun @entsel (dxf0 hint / obj tmp)
(if (setq obj (entsel hint))
(if (wcmatch (setq tmp (cdr (assoc 0 (entget (car obj))))) (strcase dxf0))
(progn
(redraw (car obj) 3)
(princ (strcat "已选一个" tmp "物体！"))
)
(progn
(princ (strcat "\n所选物体非" dxf0 "，请重新选取！"))
(setq obj (@entsel dxf0 hint))
)
)
(progn
(princ (strcat "\n未选到物体，请重新选取！"))
(setq obj (@entsel dxf0 hint))
)
)
obj
)
的确是好东东！！！！ 加载不了的?