最新更新12.15-测绘内业整图工具3.7[绝对原创]-断面，主要针对设计用
最新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）请到下面网站下载：
（推荐下载地址）
/*******************************
文字智能避让功能演示：
测绘内业整图工具3.0（自己开发）
测绘内业整图工具3.0（自己开发）
测绘内业整图工具3.0（自己开发）
测绘内业整图工具3.0[绝对原创]
测绘内业整图工具3.0[绝对原创]
最新更新-测绘内业整图工具3.1[绝对原创]-断面，主要针对设计用
最新更新-测绘内业整图工具3.1[绝对原创]-断面，主要针对设计用
最新更新-测绘内业整图工具3.1[绝对原创]-断面，主要针对设计用
最新更新-测绘内业整图工具3.1[绝对原创]-断面，主要针对设计用
**** Hidden Message *****
自动采集数据绘制总断面：
纵断面、横断面图如下：
横端面
如果有那位朋友需要做个局部的修改的，我可以给你修改
数据高级编辑
下面我逐渐的介绍一些函数：
1、判断点在直线 上 还是 下
2、角度、弧度互换
3、根据距离判断并求直线上的点的坐标
...........................................
能不能介绍一下封闭区域裁切的思路
今天给大家介绍一种判断点位的函数：
'*************************** 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 Detx0 Then
Point_intersectY = (Point(0) - LinePoint2(0)) * Dety / Detx + LinePoint2(1)
If Point_intersectY > Point(1) Then Point_Line_insect = "Down"
If Point_intersectYPoint(0) Then Point_Line_insect = "Up"
If LinePoint1(0)
大家置顶啊，别让落下啊 我想请楼住帮忙写段程序，测绘方面的，就是做DEM的时候内插点的程序。
我的邮箱ivyej@163.comqq9533373MSN:ivyej11@hotmail.com
谢谢啦。
能帮忙解决一个问题吗？我是新手，请给我编码。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=4nsize=4
我的设想是由所给的点构成曲面，再根据z坐标的高度控制曲面的渐进颜色。其工程问题是，房屋每根梁变形大小和转角已经知道，能够根据图示提示用户哪个区域超过警戒线。曲面表示壳变形，曲线表示梁变形，如曲面不好做，用spline构成曲线表示也可。此例中可设定z>0.8以上为警戒线，用红色表示；z
你这个不是那么容易做的，不要到处求别人，都有自己的事忙。如果简单几行可以解决的就帮你了
页:
[1]