最新更新12.15-测绘内业整图工具3.7[绝对原创]-断面，主要针对设计用

lichh_2003 · 发表于 2006-5-10 08:44:00

最新2007版请到这里下载
最新更新：
升级信息
* --06.8.2 在本公司调试使用
* 2006.8.2 正式完成
* 2006.8.2 下午发布
* 2006.9.4 pl注记增加里程小数位数和角度精度设置、PL线节点起始里程和起始节点号
* 2006.9.4 pl注记文字的智能对齐
* 2006.9.4 选择集操作增加移动功能
* 2006.10.12 修改了纵横比例尺错误问题
* 2006.11.20 修正了PL标注计算错误
* 2006.11.24 修正了一些错误，增加了断面绘制的间距、百米、公里桩等项
* 2006.11.29 修正了一些错误，增加了百米高程内插、自动采集数据的空高程内插
* 2006.12.02 对草图拉直操作增加了“矩形边界模型”的建立方法，以满足不同需要
* 2006.12.08 增加了文字注记的智能避让功能，可以使文字、高程智能搜索最佳的地方，避免与其他地物的交叉
* 2006.12.12 改正了使“文字正北”时的位移问题，在原地保持旋转
* 2006.12.14 修正了CAD2007不能自注册命令错误
* 2006.12.15 修正了自注册命令错误
* 2007.01.10 修改坐标注记位数为3位

（原版全免费使用，8.2以后需要需要更新的，注册用户与我联系）
支持A CAD2002以上（包括CAD2002）版本。
在本单位测试1月无错，所以共享给大家，以感谢各位朋友对我的热情的帮助和支持，特别感谢明总，总是有问必答！
整个程序如下，不过有某种原因不能将所有的源文件给大家，不过我会给大家提供向因的函数，模块什么的，望原谅！以后回陆续的介绍开发的思路及函数。
仍然有不会操作的，可以要视频QQ：10364426
?>?> 修改了一个小错误，帮助文件增加了可能出现错误的解决方法;
分卷压缩（2）注意下载2部分才能正确解压缩：
?>?>最新含帮助文件的完整版（8.02）请到下面网站下载：
（推荐下载地址）
/*******************************

llkwrhayio0.gif

rw4qbffltbx.JPG

文字智能避让功能演示：

j4i5djveusc.gif

测绘内业整图工具3.0（自己开发）

测绘内业整图工具3.0（自己开发）

测绘内业整图工具3.0（自己开发）

测绘内业整图工具3.0[绝对原创]

测绘内业整图工具3.0[绝对原创]

最新更新-测绘内业整图工具3.1[绝对原创]-断面，主要针对设计用

最新更新-测绘内业整图工具3.1[绝对原创]-断面，主要针对设计用

最新更新-测绘内业整图工具3.1[绝对原创]-断面，主要针对设计用

最新更新-测绘内业整图工具3.1[绝对原创]-断面，主要针对设计用

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

lichh_2003 · 发表于 2006-5-10 10:25:00

自动采集数据绘制总断面：

fzv1voezjbu.gif

纵断面、横断面图如下：

2eunqlmigeb.gif

obckq3fycmq.gif

lichh_2003 · 发表于 2006-5-10 16:40:00

横端面

1xxel31ywq5.gif

如果有那位朋友需要做个局部的修改的，我可以给你修改

lichh_2003 · 发表于 2006-5-11 08:16:00

数据高级编辑

d2cb5hkpwcj.gif

pm5doo13c2t.gif

下面我逐渐的介绍一些函数：
1、判断点在直线上还是下
2、角度、弧度互换
3、根据距离判断并求直线上的点的坐标
...........................................

nxy_918 · 发表于 2006-5-11 11:34:00

能不能介绍一下封闭区域裁切的思路

lichh_2003 · 发表于 2006-5-12 20:24:00

今天给大家介绍一种判断点位的函数：
'*************************** made by fei guo hai ******** 发布于2006，5，12**为测绘整图工具中一函数
'**************************************** 判断点的线的上边还是下边*

Public Function Point_Line_insect(LinePoint1() As Double, LinePoint2() As Double, Point() As Double) As String

Dim Dety As Double, Detx As Double, Point_intersectY As Double
Detx = LinePoint1(0) - LinePoint2(0)
Dety = LinePoint1(1) - LinePoint2(1)

If Detx  0 Then
   Point_intersectY = (Point(0) - LinePoint2(0)) * Dety / Detx + LinePoint2(1)
   If Point_intersectY > Point(1) Then Point_Line_insect = "Down"
   If Point_intersectY  Point(0) Then Point_Line_insect = "Up"
   If LinePoint1(0)

lichh_2003 · 发表于 2006-5-13 17:31:00

大家置顶啊，别让落下啊

ivyej · 发表于 2006-5-14 23:26:00

我想请楼住帮忙写段程序，测绘方面的，就是做DEM的时候内插点的程序。
我的邮箱ivyej@163.com qq 9533373 MSN:ivyej11@hotmail.com
谢谢啦。

xujian8498 · 发表于 2006-5-15 11:15:00

能帮忙解决一个问题吗？我是新手，请给我编码。xujian8498@yahoo.com.cn
例如选用《VBA程序开发技术》p327中的数据，(0,0,0) (2,0,1) (4,0,0) (6,0,1) (0,2,0)(2,2,1)(4,2,0)(6,2,0) (0,4,0)(2,4,1)(4,4,0)(6,4,0) (0,6,0)(2,6,1)(4,6,0)(6,6,0) msize=4 nsize=4
我的设想是由所给的点构成曲面，再根据z坐标的高度控制曲面的渐进颜色。其工程问题是，房屋每根梁变形大小和转角已经知道，能够根据图示提示用户哪个区域超过警戒线。曲面表示壳变形，曲线表示梁变形，如曲面不好做，用spline构成曲线表示也可。此例中可设定z>0.8以上为警戒线，用红色表示；z

lichh_2003 · 发表于 2006-5-15 11:27:00

你这个不是那么容易做的，不要到处求别人，都有自己的事忙。如果简单几行可以解决的就帮你了

最新更新12.15-测绘内业整图工具3.7[绝对原创]-断面，主要针对设计用

发表回复

精选推荐