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

lichh_2003

最新2007版请到这里下载

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=58544

最新更新：

升级信息
* --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）请到下面网站下载：

http://www.celiang.net/celiang/down_view.asp?id=405&author=lichh_2003  （推荐下载地址）

http://lichh.51aj.com

   /*******************************

 

 文字智能避让功能演示：

lichh_2003

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

 

纵断面、横断面图如下：

lichh_2003

横端面

 

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

lichh_2003

数据高级编辑

 

 

下面我逐渐的介绍一些函数：

1、判断点在直线 上 还是 下

2、角度、弧度互换

3、根据距离判断并求直线上的点的坐标

...........................................

nxy_918

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

lichh_2003

今天给大家介绍一种判断点位的函数：

'*************************** 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(1) Then Point_Line_insect = "Up"
     End If
  
   If Detx = 0 Then
       If LinePoint1(0) > Point(0) Then Point_Line_insect = "Up"
       If LinePoint1(0) < Point(0) Then Point_Line_insect = "Down"
    End If
  
End Function

lichh_2003

大家置顶啊，别让落下啊

ivyej

我想请楼住帮忙写段程序，测绘方面的，就是做DEM的时候内插点的程序。

我的邮箱ivyej@163.com  qq  9533373  MSN:ivyej11@hotmail.com  

谢谢啦。

xujian8498

能帮忙解决一个问题吗？我是新手，请给我编码。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<0.2为安全,用绿色表示，其0.2-0.8中间值由绿色向红色过渡，z大于0.8 为红色.拜托各位了，衷心感谢！

lichh_2003

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