[原创]：我送程序你送分,大家过年都兴奋！！

akang

今天是大年初一，和家人逛完街吃完饭回家进入“晓东”，发现有悄悄话，心里不禁一乐——莫非斑竹加分了。点击链接一看，呵呵，原来是半年前写的一个小程序，现在才加分。要么怎么说过年好呢！！！
趁着这股乐劲，决定把除夕夜才写好的一个标注面积的小程序也与大家分享了，祝各位给排水同僚新年快乐、身体健康、工作愉快。
先介绍一个这个程序吧，它采用两种方法进行面积计算，一种是在屏幕上绘制多义线，然后闭合计算面积；另外一种方法是采用拾取已有闭合区域的内部点，然后再计算面积。不管那种方法，都可以在屏幕上把面积绘制出来，绘制出来的面积可以是当前图形单位，也可以是公顷单位(即把面积除以10000)。最后要告诉大家的是，用这个程序时，当前字体的字高要设为“0”。
大家先看看以下各种动画演示吧。

akang

是用lisp编写，并加了对话框进行控制

akcad

多谢提供，谢谢！