路桥视频| 路桥隧交流论坛| 站点地图|
首页| 文库| 博客| 图库| 视频| 网摘| 路桥隧交流|
  • 行业资讯
  • 路基路面
  • 桥梁涵洞
  • 隧道工程
  • 测量绘图
  • 学术论文
  • 施组方案
  • 试验质检
  • 内业资料
  • 安全环保
网站公告: 网站新建QQ交流群 路桥吾爱第五版更新. 把QQ空间或其他博客.

您的位置: 路桥吾爱 >> 文库 >> 测量绘图 >> 查看资讯

推荐给好友 上一篇 | 下一篇

判断点xpt是否在多边形内

字体:  小  中  大  | 打印 发布:  作者: lq52搜集  来源: 不详  查看: 839次 评论: 0条 好评: 0分

;判断点xpt是否在多边形内
;所选射线xpt(x0 y0)--pxy(x0+max|x0-xi| y0+min|y0-yi|) [i=1,2 3,.......,n]不与多边形任何一点相交
;入口参数多边形:xdb((x1 y1) (x2 y2) (x3 y3)……(xn yn))及待判断点xpt(x0 y0)
;返回值0(在多边形外)、1(在多边形上)、2(在多边形内)
(defun dzdbxn(xdb xpt / fhz mxb myb n i mx my nn p1 p2 p12 pxy)
    (vl-load-com)
    (setq fhz 0 mxb nil myb nil n (length xdb) i 0
          xdb (append xdb (list (car xdb)))
)
; 判断点xpt是否在多边形上
    (while(< i n)
        (setq p1 (nth i xdb) p2 (nth (1+ i) xdb))
        (command "line" p1 p2 "" "chprop" (entlast) "" "c" 9 "")
        (setq p12 (vlax-curve-getclosestpointto (vlax-ename->vla-object (entlast)) xpt))
        (entdel (entlast))
        若xpt至某一边的距离为零,则xpt在多边形上,因计算误差,设10的-6次方为与零的比较误差
        (if (equal (distance xpt p12) 0.0 1e-6) (setq fhz 1 i n))
        (setq i (1+ i))
    )
(if (/= fhz 1)
     判断点xpt是否在多边形内
        (progn
        (foreach p12 xdb
           (setq mxb (append mxb (list (abs (- (car xpt) (car p12)))))
               myb (append myb (list (abs (- (cadr xpt) (cadr p12)))))
           )
        )
           (setq pxy (mapcar '+ xpt (list (* 2.0 (apply 'max mxb)) (apply 'min myb)))
          i 0   nn 0
           )
           (repeat n
           (if (inters xpt pxy (nth i xdb) (nth (1+ i) xdb)) (setq nn (1+ nn)))
           (setq i (1+ i))
           )
           (if (and (> nn 0) (/= nn (* (fix (/ nn 2.0)) 2.0))) (setq fhz 2))
        )
    )
    (setq fhz fhz)
)

Google

 
-5 -3 -1 - +1 +3 +5

评分:0

发表评论

【声明】 路桥吾爱刊载的资讯及其他内容均由网友提供分享 并且纯属作者个人观点,不表示路桥吾爱同意其说法或描述,仅为提供更多信息,也不构成任何建议。网友转载请注明原作者姓名及出处。如有侵犯到您的版权,请与我们联系,我们会马上进行重新整理!

信息搜索 便民服务

  • 标题:
  • 分类:

最近更新

  • CASIO fx-5800P放样程序(优化)
  • CASIO-fx5800程序源(任意平曲线极坐标与直角坐标放样,求里程及边距)
  • 5800道路三维坐标计算
  • 试验结论标准用语
  • 测绘仪器新格局
  • 激光的安全等级是如何规定的
  • GPS接收机电源使用指南
  • 外业测绘的一点经验和提示
  • 水准仪维修小知识
  • 全站仪使用误区(图)

本月热点

相关阅读

  • 住房城乡建设部关于简化建筑业企业资质标准部分指标的通知
  • 港珠澳大桥主体工程今日全线贯通 能抗16级台风(图)
  • 中铁建老总向总理倒苦水:有国企200多空壳公司就为1事
  • 厘清竞争性谈判与竞争性磋商之差异(图)
  • 橡胶粉改性沥青SMA混合料性能研究(图)
  • 李克强主持召开国务院常务会议部署推进城市地下综合管廊建设 扩大公共产品供给提高…
  • 李克强剑指中国“地下”问题 力推综合管廊
  • 国务院关于取消和调整一批行政审批项目等事项的决定
  • 粤赣高速河源段匝道断裂 多辆大卡车坠落(图)
  • 城市地下综合管廊工程规划编制指引
  • 25号联合令:基础设施和公用事业特许经营管理办法.doc
  • 管清友:PPP模式的五大关键
  • 在城市地下综合管廊规划建设培训班座谈会上的讲话
  • 关于推广运用政府和社会资本合作模式有关问题的通知
  • 国务院关于创新重点领域投融资机制 鼓励社会投资的指导意见
  • 国务院办公厅关于加强城市地下管线建设管理的指导意见
  • 2014年某道路工程二监办监理工作总结
  • 庆镇二级路汇报材料
  • 成都隧道发生疑似瓦斯爆炸 致22人受伤 一人死亡(图)
  • 【重磅】2014年度一级建造师资格考试合格标准-市政合格标准降为88

赞 助 商

点击这里给我发消息 加入【路桥吾爱-lq52.com】QQ群 | 交流论坛 | 站点地图 | 友情链接 | 空间列表 | 站点存档 | 手机访问 |

路桥吾爱 2001-2012 湘ICP备14001154号