给大家贡献一个地形剖面线绘制程序(源码公开!!)
本帖最后由 作者 于 2005-4-29 22:24:40 编辑对搞土木工程的人员很有用的哦!
下载解压后把pmx.fas和pmx.dcl两个文件复制到CAD的Support目录下,加载pmx.fas程序
运行命令:pmx
完善版见14楼
——Lsp程序源码+dcl文件 你又不提供源程序,别人用时遇到了问题,不知如何解决. 一般在CAD2002以上版本下运行应该没问题 我不是那个意思,比如运行中提示"数据输入有误",我不知道倒底要什么样的数据,是个什么格式的数据! 如果你想让大家分享,那应该把原程序拿出来,大家根据自己所需修改使用.你现在的这种不叫分享,只叫让大家试用,别告诉我们你后面会推出收费版哦~~! 很好,只是当剖面线是折线时好象有点问题,长度不够。另外想在没有等高线的地方内插一个点,不知怎么处理?在数据输入时,自动获取的对象出现顺序有点跳跃,不是连续出现,不知是什么原因? http://www.xj61.com/upload/upfile5/20047312124220.jpg
http://www.xj61.com/upload/upfile5/20047312128520.jpg
http://www.xj61.com/upload/upfile5/20047312134260.jpg
http://www.xj61.com/upload/upfile5/20047312135560.jpg
http://www.xj61.com/upload/upfile5/20047312140440.jpg
http://www.xj61.com/upload/upfile5/20047312143520.jpg
http://www.xj61.com/upload/upfile5/20047312145240.jpg 本程序完全是在工作中为了偷懒自己编的,程序从CADR14开始到现在已经多次修改功能基本上够用!但由于还有待改进,暂不会出现收费情况。
如等高线呈连续递增或递减情况,为减少键盘输入,输入第一条等高线高程后,在提示输入第二条等高线高程时,输入“+n”或“-n”,其中n表示等高距,后面的直接回车(鼠标右键)即可,遇到不需要的交点,输入“r”跳过。
关于剖切线为折线的问题:以前程序设计上失误,折线的顶点数不能超过128个,现已经过修改,已无顶点数量限制,但限用Pline线,不能有弧线,这在以后将会改进
在没有等高线的地方内插一个点:在这两条等高线之间随便加一条线,只要和剖切线相交就行,程序运行时会提示要求你输入此点的高程
自动获取的对象出现顺序有点跳跃,不是连续出现:这种情况还没遇到过,请6楼朋友把图形发个email给我,我一定改进 欢迎交流,图已发到邮箱 难道你没有自动获取等高线高程,还要手工输入吗?