caowenjian 发表于 2004-3-17 22:31:00

[原创]测量 测绘 CAD_VBA展点+等高线+断面生成程式包

<FONT face=宋体 size=2>CAD_VBA展点+等高线+断面生成程式包<BR><BR>下载地址2：<BR></FONT><FONT face=宋体 size=2>http://www.celiang.net/celiang/down_view.asp?id=7        <BR><BR>这个是我编的欢迎指点。</FONT><BR>

myfreemind 发表于 2004-3-17 22:47:00

楼主再接再厉！

yu-gn 发表于 2004-3-17 23:11:00

厉害！！！！！厉害！！！！！！！！！！

yu-gn 发表于 2004-3-17 23:12:00

鲜花一朵

yfy2003 发表于 2004-3-18 09:06:00

不错！

caowenjian 发表于 2004-3-18 19:25:00

<FONT face=宋体 size=2>使用说明：</FONT>


<FONT face=宋体 size=2>“ 昨忘记发了：）”<BR><BR><BR><BR>CAD_VBA展点+等高线+断面生成程式包由VBA编成。2004年1月始共用时二个月。<BR><BR>用法：<BR>1：启动AUTO_CAD；<BR>2：在Command中输入vbaload命令，装载需要运行扩展名为dvb文件（本程式名为：“Celiang_Project.dvb”）。<BR>3：在Command中输入vbarun命令（快捷键Alt+F8），选取需要运行的功能。<BR><BR>其中:<BR>CeliangToolbar功能为增加一个本程式包的工具条；<BR>celiang1为展点程式；<BR>celiang2为等高线生成程式；<BR>celiang3为断面图生成程式。<BR><BR>查看原代码：<BR>在Command中输入vbaide命令（快捷键Alt+F11）。<BR><BR><BR><BR>celiang1是展点程式，暂只能展Cass扩展名为dat文件格式。<BR><BR>Cass格式：<BR>1,name1,2904.500,2637.800,-4.500<BR>2,,2910.900,2644.700,-5.000<BR>... ...<BR><BR>其中：1为点序号；name1为点名；2904.500为X坐标；2637.800为Y坐标；-4.500为高程。<BR><BR>功能：生成层指定名；<BR>可选择展出三维坐标点、点名、序号、坐标；<BR>坐标X、Y轴对换；<BR><BR><BR>使用方法：<BR>1：在CAD用vbaload命令装载Celiang_Project.dvb程序；<BR>2：后运行-vbarun命令，输入celiang1,回车；<BR>3：按开始键，装入需要展点的原始dat文件。<BR><BR>速度如下表：(CPU：1.8G 内存：256M 测试)<BR><BR>展点数； 商业测量软件； 未打开过程显示的本程式式；<BR>65000个点； 1.5分钟； 1分钟；<BR><BR><BR><BR>celiang2是生成三角网和等高线程式。<BR><BR>只能由图面点生成，暂无边界选取功能。（偶尔有边角部分三角网生成不合理，有三角网交叉。原因是取点距离判<BR><BR>断太短，修改“三角网边长”项数值可减少这钟情况。三角网边长值越大用时越长。）<BR><BR>所以在点分布有凹形明显地方生成等高线会有许多不合理的小短线。 <BR><BR>功能：可选择生成三角网或等高线；<BR>等高线按部分标高值生成； <BR><BR><BR>使用方法：<BR>1：在CAD用vbaload命令装载Celiang_Project.dvb程序;(已装载无须装载）<BR>2：后运行-vbarun命令，输入celiang2,回车；<BR>3：按开始键，在CAD选取图面点，回车；<BR>4：等候结果。<BR><BR>由于是用VBA编写的，加上算法不够优化，所以速度奇慢。<BR>速度如下表：(CPU：1.8G 内存：256M 测试)<BR><BR>处理点数； 商业测量软件； 本程式； 打开过程显示的本程式；<BR>5000个点； 小于1分钟； 1分钟； 1*2分钟<BR>10000个点； 1分钟； 4分钟； 4*2分钟 <BR>30000个点； 6分钟； 18分钟； 18*2分钟<BR>100000个点； 200分钟； 200*2分钟<BR>X个点； 18*（X/30000）^2 <BR><BR><BR>celiang3是生成断面图的程式。<BR><BR>只能由图面点生成，无中间文件存取功能。（所以一定先要生成三至五个断面看看效果，调整参数以能达到好一点<BR><BR>效果。）<BR>功能：<BR>根据图面点和中线，加n条剖面线，就可自动生成n个断面图；<BR>选取的点是飞行属于不同层的话，则可生成多条断面线；<BR>根据地范围线对断面线进行分开计算面积。<BR><BR>使用方法：<BR>1：在CAD用vbaload命令装载Celiang_Project.dvb程序;(已装载无须装载）<BR>2：后运行-vbarun命令，输入celiang3,回车；<BR>3：按开始键，在CAD选取图面点和n条剖面线，回车；<BR>4：图面选取中心线（一定要和剖线有个交点）。<BR>5：图面选取计量范围线（可不选），（要和剖线有相交）。回车；<BR>6：等候结果。</FONT>


       


欢迎测量人土与我交流

zzz8662 发表于 2004-3-23 19:28:00

好厉害 能把celiang2的算法介绍一下吗？

caowenjian 发表于 2004-4-3 15:40:00

zzz8662发表于2004-3-23 19:28:00static/image/common/back.gif好厉害 能把celiang2的算法介绍一下吗？


<BR>       


http://www.celiang.net/celiang/forum_list.asp?forum_id=9

zjdsx 发表于 2004-4-6 02:42:00

好厉害

anital 发表于 2004-5-24 12:39:00

顶,狂顶,美中不足的地方好像是展出的点没有点号,不知楼主能不能把展点号这一步也加进去.
页: [1] 2
查看完整版本: [原创]测量 测绘 CAD_VBA展点+等高线+断面生成程式包