[下载]：lisp代码(附说明)

xxming

CDIST.LSP：本程序连续测量两点之间的距离，每选取一个新点，程序都会计算出最后两点之间的距离，并计算出所有点的距离累加和；
XBLOCK.LSP：本程序的作用是按原始的X、Y比例系数返回块，再分解出原形这样就可以对其进行编辑了；
SAVETIME.LSP：按预先设置的时间间隔定期保存图形，AUTOCAD自动保存缺省值为120分钟，该程序可以修改为任意时间量；
EDMENU.LSP：本程序提供一种在AUTOCAD环境内部，无需经过文本编辑器就可以自动修改TABLET菜单中的TABLET AREA1（1号区）的办法；
ZE.LSP：该程序可划分成两部分，运行第一个程序zes，设置放大模式，再运行ZE做无再生成放大；
MMCONV.LSP：本程序实现整个图形单位从英尺、英寸到毫米的转换；
FTCONV.LSP：本程序实现整个图形单位从毫米到英尺和英寸的转换；
PSCOPY.LSP：本程序实现两个图形之间的目标传递拷贝；
3DDIM.LSP：测量三维目标尺寸，从UCS转换到UCS Entity，然后再旋转UCS，使X轴的方向与目标横坐标方向一致；
CHANGE.LSP：本程序使快速修改目标特性；
PERSPV.LSP：通过选取目标和相机，并都提高到一定高度，立刻可以看到正确的透视图；
BRKTXT.LSP：本程序在一文本行中查找一个字符串，找到之后将文本在此处切分，余下的部分可以根据需要存放在任何位置（本程序只适用于标准的文本目标；
MERGTXT.LSP：将文本中的两行合并成一行；
BOLDTXT.LSP：通过重复显示并稍作偏移，使所选取的文本行轮廓清晰；
CHCASEU.LSP：将一文本行转换成大写字母格式（只适用于标准文本目标）；
CHCASEL.LSP：将一文本行转换成小写字母格式（只适用于标准文本目标）；
CENPT.LSP：从圆点到圆外一点画条中心线；
ATTBLD.LSP：建立属性，通过回答问题或执行ATTDEF命令等手工方式来建立目标属性；
UCSX.LSP：该程序可以纠正X轴的方向，并保持平面位置相同；
UCSOR.LSP：该程序可以选取目标上的一点，使UCS图表捕捉该点，就像执行UCSICON命令设置原点一样；
REDR.LSP：有选择地重画可以节省许多时间；
PERMSP.LSP：本程序通过拾取将渐进线或固定弯曲度的多义线转换成连接的多义线段，来保持其永久不变（只适用于多义线目标，不适用于渐进线目标）；
LARC.LSP：可以快速计算出弧的长度；
EXPOLY.LSP：可以帮助你分解出图中所有的多义线；
LCOPY.LSP：AUTOCAD没有提供将一个目标从一层拷贝到另一层的层拷贝命令，但有时为了填充阴影图或测量区域大小经常需要在另一层上重制目标，本程序不仅可以实现层拷贝，而且如果另一层不存在还可以创建它；
STCIRC.LSP：将圆的半径延伸到哟后果胡指定点处，圆心不变，要使圆与某一目标相切，可以使用该程序；
LSTEXT.LSP：能自己选择行连续的位置输入文本；
SAVXBAK.LSP：用本程序保存图形，可以不创建备份文件，还可以清除所有无参考价值的块、线形和层等；
WRITENT.LSP：提供一种快速向文件中写目标的方法———主要用于块生成或将块写到磁盘上的图形段，如果你不希望在当前图形中创建块，而是希望它回显在屏幕上，可以在执行完该程序后再执行UNDO1命令，尽管块定义的创建可以被取消，但目标仍然很安全地保存在磁盘上；
BALLOON.LSP：该程序可以快速产生一个气球（圆中输入文本）和一条引线；

zzyxhqplay

生财有道，不过是些好东东

hgqhq

嗯，好东西，收一个爱心币不多吗！

tuger

这个好像有人提供过的