[分享]：【实用程序汇总】test000系列！

xyp1964

下载TEST系列程序打包文件
所有文件均需放到CAD搜索路径下。
版本：
e派工具箱(XCAD)：http://yunpan.cn/QXQKsW9gAPmpF

xyp1964

所有内容整合到test000.lsp中。
带★的可能用途较大或思路较新！
程序命令及功能：[/COLOR]
[php]
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：直线两端缩短定距离
[100-画箭头]^C^C^Ptest101
[102-多义线逐段长度计数并显示和标注最长线段两端的坐标]^C^C^Ptest102
[103-在图中生成单位网格线并在网格四周标注绝对坐标] C^C^Ptest103 ★
[104-角平分线]^C^C^Ptest104
[105-数据画线]^C^C^Ptest105
[106-随机圆（退韵）]^C^C^Ptest106
[107-两数字替换及删除]^C^C^Ptest107
[108-删除文字中特定的字符]^C^C^Ptest108
[109-批量标注线的尺寸]^C^C^Ptest109
[110-线连续多次分段]^C^C^Ptest110
[111-图块三轴等比例修改]^C^C^Ptest111
[112-矩形绘制]^C^C^Ptest112
[113-弧长标注]^C^C^Ptest113 ★
[114-框选修改多义线某段线的线宽]^C^C^Ptest114
[115-图块替换]^C^C^Ptest115 ★
[116-两线夹角]^C^C^Ptest116
[117-数字递增复制]^C^C^Ptest117 ★
[118-文字改序列]^C^C^Ptest118
[119-标注、文本、剖面线统一改层]^C^C^Ptest119
[120-屏幕点坐标输出到文本]^C^C^Ptest120
[121-三角形内切圆]^C^C^Ptest121
[122-正弦曲线]^C^C^Ptest122
[123-多义线顶点坐标连线和最小包围外框]^C^C^Ptest123
[124-多义线顶点坐标集(支持框选)]^C^C^Ptest124 ★
[125-刷线宽]^C^C^Ptest125
[126-改线宽]^C^C^Ptest126
[127-水平方向定距移动]^C^C^Ptest127
[128-删除同名图块]^C^C^Ptest128
[129-圆、椭圆内接多边形]^C^C^Ptest129
[130-标注文本归位]^C^C^Ptest130
[131-校正水平、垂直直线]^C^C^Ptest131
[132-改换字宽]^C^C^Ptest132 ★
[133-打断线并画半弧连上]^C^C^Ptest133
[134-两弧交点切线角度标注]^C^C^Ptest134
[135-改变标注文本颜色]^C^C^Ptest135
[136-spline线控制点或拟合点坐标标注]^C^C^Ptest136 ★
[137-多义线顶点坐标集]^C^C^Ptest137 ★
[138-文本加外框]^C^C^Ptest138 ★
[139-固定字高字宽外圆]^C^C^Ptest139
[140-文字扶正]^C^C^Ptest140
[141-数据画线]^C^C^Ptest141 ★
[/php]

★ 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版

[B]将文件放到搜索路径下，用menu加载test000.mns菜单即可。
非“test系列程序”需到签名栏下载。[/B]
[B]
下面的附件内包括3个文件：test000.lsp、test000.mns、test000.mnl
[/COLOR]

82406515

好是好，但是R14加不了啊!

test000菜单：[I]by xyp1964[/I][/COLOR]

eachy

最初由 xyp1964 发布
[B]近期讨论了几个lisp程序，受益非浅，觉得有必要整理，也许对大家有点用途。
为简化后面的程序将通用子程序首先上载，如果使用后面的程序，必须将本程序放到CAD搜索路径下。
本程序会不断更新，目前加密、免币！待?.. [/B]

各函数需要的参数没有说明

yaochaoliang

LISP程序怎么加载啊？是用menu命令吗？

它山之石

支持一下楼主。只是这样一个一个的你上传不也麻烦吗？何不做成一个文件？

好主意！By xyp1964[/COLOR]

xyp1964

采纳楼上意见，多余帖子全部删除。
程序名称改为test000.lsp，在2楼，会不定期更新。

fools

这种无私奉献和为大家服务的精神真是太值得表扬和学习。
xyp1964辛苦了！！！

它山之石

支持楼主的奉献精神。以后要向你好好学习。
支持斑主加分加币。

lmf97231

加载不了的?

china848

建议加积分，非常感激无私行为！

dingyi1123

明白

fools

支持xyp1964！贴一个我自己写的entsel格式化函数，返回值与entsel相同。
函数调用示例：
(@entsel "*line,text" "\n请选择物体（文本或线）：")
函数代码：
[PHP]
(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
)
[/PHP]

xuwenzhong

的确是好东东！！！！

我是风啊

加载不了的?