最新更新12.15-测绘内业整图工具3.7[绝对原创]-断面，主要针对设计用
本帖最后由 作者 于 2007-3-13 9:59:29 编辑 <br /><br /> <p>最新2007版请到这里下载</p><p><a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=58544">http://bbs.mjtd.com/forum.php?mod=viewthread&tid=58544</a></p><p></p><p>最新更新：</p><p><font color="#000000">升级信息<br/>* --06.8.2 在本公司调试使用<br/>* 2006.8.2 正式完成<br/>* 2006.8.2 下午发布<br/>* 2006.9.4 pl注记增加里程小数位数和角度精度设置、PL线节点起始里程和起始节点号<br/>* 2006.9.4 pl注记文字的智能对齐<br/>* 2006.9.4 选择集操作增加移动功能<br/>* 2006.10.12 修改了纵横比例尺错误问题<br/>* 2006.11.20 修正了PL标注计算错误<br/>* 2006.11.24 修正了一些错误，增加了断面绘制的间距、百米、公里桩等项<br/>* 2006.11.29 修正了一些错误，增加了百米高程内插、自动采集数据的空高程内插<br/>* 2006.12.02 对草图拉直操作增加了“矩形边界模型”的建立方法，以满足不同需要<br/>* 2006.12.08 增加了文字注记的<font color="#ff3300">智能避让</font>功能，可以使文字、高程智能搜索最佳的地方，避免与其他地物的交叉<br/>* 2006.12.12 改正了使“文字正北”时的位移问题，在原地保持旋转<br/>* 2006.12.14 修正了CAD2007不能自注册命令错误<br/>* 2006.12.15 修正了自注册命令错误<br/>* 2007.01.10 修改坐标注记位数为3位</font></p><p><font color="#0000ff"></font><font color="#ff0000"><br/></font></p><p align="center"><u>（原版全免费使用，8.2以后需要需要更新的，注册用户与我联系）</u></p><p><font face="宋体">支持A CAD2002以上（包括CAD2002）版本。</font></p><p><font face="宋体">在本单位测试1月无错，所以共享给大家，以感谢各位朋友对我的热情的帮助和支持，特别感谢明总，总是有问必答！</font></p><p><font face="宋体">整个程序如下，不过有某种原因不能将所有的源文件给大家，不过我会给大家提供向因的函数，模块什么的，望原谅！以后回陆续的介绍开发的思路及函数。</font></p><p></p><p><font face="宋体"></font></p><font face="宋体">仍然有不会操作的，可以要视频QQ：10364426</font><br/> <p></p><p><!--Element not supported - Type: 8 Name: #comment-->?>?><shapetype id="_x0000_t75" path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f" coordsize="21600,21600" opreferrelative="t" ospt="75"></shapetype><shapetype></shapetype><shapetype></shapetype><shapetype></shapetype> <shapetype></shapetype><shapetype></shapetype><shapetype></shapetype><shapetype></shapetype>修改了一个小错误，帮助文件增加了可能出现错误的解决方法;</p><p><font face="宋体">分卷压缩（2）<font color="#ff1111"><u>注意下载2部分才能正确解压缩</u></font>：</font></p><p class="MsoNormal"><shapetype id="_x0000_t75" path=" m@4@5 l@4@11@9@11@9@5 xe" filled="f" stroked="f" coordsize="21600,21600" opreferrelative="t" ospt="75"></shapetype><shapetype></shapetype><shapetype></shapetype><shapetype></shapetype><stroke joinstyle="miter"></stroke><stroke></stroke><stroke></stroke><stroke></stroke><stroke></stroke><stroke></stroke><stroke></stroke><stroke></stroke><formulas></formulas><formulas></formulas><formulas></formulas><formulas></formulas><f eqn="if lineDrawn pixelLineWidth 0 "></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="sum @0 1 0 "></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="sum 0 0 @1 "></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="prod @2 1 2 "></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="prod @3 21600 pixelWidth "></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="prod @3 21600 pixelHeight "></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="sum @0 0 1 "></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="prod @6 1 2 "></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="prod @7 21600 pixelWidth "></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="sum @8 21600 0 "></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="prod @7 21600 pixelHeight "></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="sum @10 21600 0 "></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><formulas></formulas><formulas></formulas><formulas></formulas><formulas></formulas><path gradientshapeok="t" oconnecttype="rect" oextrusionok="f"></path><path></path><path></path><path></path><path></path><path></path><path></path><path></path><!--Element not supported - Type: 8 Name: #comment-->?>?><lock aspectratio="t" vext="edit"></lock><lock></lock><lock></lock><lock></lock><font size="3"><font face="宋体, MS Song" color="#ff0000"><strong>最新含帮助文件的完整版（8.02）请到下面网站下载：</strong></font></font><lock></lock><lock></lock><lock></lock><lock></lock><shapetype></shapetype><shapetype></shapetype><shapetype></shapetype><shapetype></shapetype></p><p class="MsoNormal"><shapetype path=" m@4@5 l@4@11@9@11@9@5 xe" filled="f" stroked="f" coordsize="21600,21600" opreferrelative="t" ospt="75"></shapetype><shapetype></shapetype><shapetype></shapetype><shapetype></shapetype><lock aspectratio="t" vext="edit"></lock><lock></lock><lock></lock><lock></lock><a href="http://www.celiang.net/celiang/down_view.asp?id=405&author=lichh_2003" target="_blank"><font color="#ff00ff">http://www.celiang.net/celiang/down_view.asp?id=405&author=lichh_2003</font></a> （推荐下载地址）<lock></lock><lock></lock><lock></lock><lock></lock><shapetype></shapetype><shapetype></shapetype><shapetype></shapetype><shapetype></shapetype></p><p class="MsoNormal"><shapetype path=" m@4@5 l@4@11@9@11@9@5 xe" filled="f" stroked="f" coordsize="21600,21600" opreferrelative="t" ospt="75"></shapetype><shapetype></shapetype><shapetype></shapetype><shapetype></shapetype><lock aspectratio="t" vext="edit"></lock><lock></lock><lock></lock><lock></lock><u><font color="#0000ff"><a href="http://lichh.51aj.com/" target="_blank">http://lichh.51aj.com</a></font></u><a href="http://www.mjtd.com/BBS/UploadFile/2006-8/2006811111624607.gif" target="_blank"></a><lock></lock><lock></lock><lock></lock><lock></lock><shapetype></shapetype><shapetype></shapetype><shapetype></shapetype><shapetype></shapetype></p><p class="MsoNormal"><shapetype path=" m@4@5 l@4@11@9@11@9@5 xe" filled="f" stroked="f" coordsize="21600,21600" opreferrelative="t" ospt="75"></shapetype><shapetype></shapetype><shapetype></shapetype><shapetype></shapetype><lock aspectratio="t" vext="edit"></lock><lock></lock><lock></lock><lock></lock><font size="3"><font face="宋体, MS Song"> <font face="宋体, MS Song"> <font face="宋体, MS Song"> /*******************************<stroke joinstyle="miter"></stroke><stroke></stroke><stroke></stroke><stroke></stroke><stroke></stroke><stroke></stroke><stroke></stroke><stroke></stroke></font><formulas></formulas><formulas></formulas><formulas></formulas><formulas></formulas><f eqn="if lineDrawn pixelLineWidth 0"></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="sum @0 1 0"></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="sum 0 0 @1"></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="prod @2 1 2"></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="prod @3 21600 pixelWidth"></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="prod @3 21600 pixelHeight"></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="sum @0 0 1"></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="prod @6 1 2"></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="prod @7 21600 pixelWidth"></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="sum @8 21600 0"></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="prod @7 21600 pixelHeight"></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><f eqn="sum @10 21600 0"></f><f></f><f></f><f></f><f></f><f></f><f></f><f></f><formulas></formulas><formulas></formulas><formulas></formulas><formulas></formulas><path gradientshapeok="t" oconnecttype="rect" oextrusionok="f"></path><path></path><path></path><path></path><path></path><path></path><path></path><path></path><lock aspectratio="t" vext="edit"></lock><lock></lock><lock></lock><lock></lock><lock></lock><lock></lock><lock></lock><lock></lock></font></font></font><lock aspectratio="t" vext="edit"></lock><lock></lock><lock></lock><lock></lock><lock></lock><lock></lock><lock></lock><lock></lock><lock></lock><lock></lock><lock></lock><lock></lock><shapetype></shapetype><shapetype></shapetype><shapetype></shapetype><shapetype></shapetype></p><p></p><p></p><p><font color="#c43c3c"></font></p> <p></p><p> 文字智能避让功能演示：</p> 本帖最后由 作者 于 2006-8-11 11:28:31 编辑 <br /><br /> <P> 自动采集数据绘制总断面：</P><P> </P>
<P>纵断面、横断面图如下：</P> 本帖最后由 作者 于 2006-8-11 11:23:54 编辑 <br /><br /> <P>横端面</P>
<P> </P>
<P>如果有那位朋友需要做个局部的修改的，我可以给你修改</P> 本帖最后由 作者 于 2006-8-11 11:21:29 编辑 <br /><br /> <P>数据高级编辑</P>
<P> </P>
<P> </P>
<P>下面我逐渐的介绍一些函数：</P>
<P>1、判断点在直线 上 还是 下</P>
<P>2、角度、弧度互换</P>
<P>3、根据距离判断并求直线上的点的坐标</P>
<P>...........................................</P> <P>能不能介绍一下封闭区域裁切的思路</P> 本帖最后由 作者 于 2006-8-11 11:17:05 编辑 <br /><br />
<P>今天给大家介绍一种判断点位的函数：</P>
<P>'*************************** made by fei guo hai ******** 发布于2006，5，12**为测绘整图工具中一函数</P>
<P>'**************************************** 判断点的线的上边还是下边*</P>
<P><BR>Public Function Point_Line_insect(LinePoint1() As Double, LinePoint2() As Double, Point() As Double) As String<BR> <BR> Dim Dety As Double, Detx As Double, Point_intersectY As Double<BR> Detx = LinePoint1(0) - LinePoint2(0)<BR> Dety = LinePoint1(1) - LinePoint2(1)<BR> <BR> If Detx <> 0 Then<BR> Point_intersectY = (Point(0) - LinePoint2(0)) * Dety / Detx + LinePoint2(1)<BR> If Point_intersectY > Point(1) Then Point_Line_insect = "Down"<BR> If Point_intersectY < Point(1) Then Point_Line_insect = "Up"<BR> End If<BR> <BR> If Detx = 0 Then<BR> If LinePoint1(0) > Point(0) Then Point_Line_insect = "Up"<BR> If LinePoint1(0) < Point(0) Then Point_Line_insect = "Down"<BR> End If<BR> <BR>End Function<BR></P> 大家置顶啊，别让落下啊 <P>我想请楼住帮忙写段程序，测绘方面的，就是做DEM的时候内插点的程序。</P>
<P>我的邮箱<A href="mailto:ivyej@163.com" target="_blank" >ivyej@163.com</A> qq 9533373 MSN:ivyej11@hotmail.com </P>
<P>谢谢啦。</P> <P>能帮忙解决一个问题吗？我是新手，请给我编码。<A href="mailto:xujian8498@yahoo.com.cn" target="_blank" >xujian8498@yahoo.com.cn</A></P>
<P>例如选用《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</P>
<P>我的设想是由所给的点构成曲面，再根据z坐标的高度控制曲面的渐进颜色。其工程问题是，房屋每根梁变形大小和转角已经知道，能够根据图示提示用户哪个区域超过警戒线。曲面表示壳变形，曲线表示梁变形，如曲面不好做，用spline构成曲线表示也可。此例中可设定z>0.8以上为警戒线，用红色表示；z<0.2为安全,用绿色表示，其0.2-0.8中间值由绿色向红色过渡，z大于0.8 为红色.拜托各位了，衷心感谢！</P> <P>你这个不是那么容易做的，不要到处求别人，都有自己的事忙。如果简单几行可以解决的就帮你了</P>