发个预算人员用的lisp文件——开水lisp V5

yangcongwen

本人初学lisp，水平有限，部分代码来自网络。
鉴于网上太多工具箱都是偏设计的，而预算造价人员往往只需要用到其中很少一些统计功能，现在将这部分重写后，未加密分享给大家，请大家多多指教。
几个主要功能介绍一下：
CD——统计线条长度，支持各种线条，支持多选，输出每段线条的长度到命令行，并输出文本L=123.45m这样的文本到图形指定位置。
MJ——统计面积，支持各种多义线、面域、圆等（不支持填充面积和块），支持多选，输出每个图元的面积、长度到命令行，并输出S=456.789㎡  L=123.456m 这样的文本到图形指定位置。
unlk——解锁多重引用，取自网络
jqz——文本加前缀，取自网络
py——批量内/外偏移，取自网络
jd——交点画圆，用于统计交点数量。
XYZ——用于坐标标注
BC——统计块
z0——Z轴归零，取自网络

其他功能有待更新，想来论坛学习一下可惜没有币，只好附件收点币了。

yangcongwen

不小心发错了板块，麻烦版主移动一下

atiamd

工具很不错~