实用LISP程序，欢迎试用！
本帖最后由 作者 于 2006-7-17 21:42:06 编辑 <br /><br /> <P>自己做的很辛苦但也很快乐，专业测绘<BR>自己因工作需要做了一些程序，感觉可以拿来与大家共享，用秋枫大哥做的安装程序，含有<BR> 自动画表格 画台阶 [画任意矩形 [大比例尺图廓生成<BR> [--]<BR> 拷贝至当前层 检查与修改 接边检查 检查悬挂 过短线删除<BR> 删线上重迭节点 去线上节点(单) 面封闭检查 高程点与注记检查<BR> 线上角度过小检查 转换 三维线变多线段 块(形)转为点 块(形)转为有方向线<BR> 点转CASS文本(DAT)格式 等高线 查改等高线高程 等高线层、值错误检查<BR> 等高线赋高程 正弦曲线演示 走动的时钟<BR> [--]<BR> 查找字符串 脚本生成器 显示物体隐藏 隐藏物体显示 删除重复物体<BR> 国标码线、块转为CASS图层 分层查图 <BR> 拼图 批处理打印 批处理打印配置 查目录DWG文件名 文件拷贝<BR> 展点(文本坐标格式) 图幅信息 <BR>等自己看吧！<BR>我的邮箱<BR>jdhszh@163.com<BR>没办法文件有点大，告诉我你的邮箱，最好发邮件过来，我给你发过去。<BR><BR><BR></P><P></P>
<P></P>
<P> </P>
<P> 解决时限问题,延长至2007年元月,下载该FAS文件加载执行C:QKJS 若想更多延时请给我发EMAIL，我将感谢你的支持和帮助。</P> 这么多人都想要 源码，版主就直接发到论坛上吧，万众期盼！ 感谢楼主分享 把功能都说出来倍！看看有没有可以互相学习的地方，探讨探讨！ 告诉我怎么把压缩文件放到上面呢，我还真没试过！ <P>在回复留言时，有上传位置。注意限制</P>
<P></P> 本帖最后由 作者 于 2006-2-12 9:44:57 编辑 <br /><br /> 还船上来了吗?我的e-mail: chang<A href="mailto:changwei209@hotmail.com" target="_blank" >wei209@hotmail.com</A> <P>和贺！不错，copy文件是怎么实现的？完全lisp吗？</P> <P>我的email ：<A href="mailto:bingyan15@sohu.com" target="_blank" >bingyan15@sohu.com</A></P>
<P>我对里面的批处理打印 批处理打印配置比较感兴趣。<BR></P>
给我一份
<P>给我一份<A href="mailto:xshrimp@21cn.com" target="_blank" >xshrimp@21cn.com</A></P> <P>我也要一份,谢谢!</P><P>lwhcommon@126.com</P> 还是传上来吧,我的信箱好几个月没续费了,再换个信箱,麻烦再发一次,谢谢<A href="mailto:!changwei209@163.com" target="_blank" >!changwei209@163.com</A>