本代码系visual lisp编写，前已将编译成的模块上传，鉴于本人工作影响，原要经过重新修改却没有时间，特将源码上传，也好与大家共同分享交流。 注：未经作者同意，不可用于商业模式。