[求助]：如何判断一个点再一个封闭的区域内？

longyancwl

如何判断一个点再一个封闭的区域内？

陌生人

自己搜索一下，已经有过讨论的帖子

zhanzujie

我这里提供一个新思路,
1在多边形上寻找距给定点pt1最近的点(vlax-curve-getclosedpointto ......)->pt2 ,取得它们之间的距离d.
2,以pt1为圆心略小于d的半径画一圆
3.把二维多边形和圆分别转换为面域REG1和REG2
4.求这两个面域的交集(VLA-BOOLEAN VLA_REG1 INTERSECT VLA_REG2),
5.最后REG1的面积值若与所画的圆的面积相同,
则点在多边形内部,否则在外部.

雪山飞狐(lzh)

这不算什么新思路，以前的帖子里有

陌生人

lzh在明经也提出过（我没认错人吧？哈哈）
现在在晓东cad做哪个版块的斑竹？vba的？

雪山飞狐(lzh)

没认错，在晓东还是老本行vba

zhanzujie

这确实是我自己想出来的,以前的贴子我没看仔细

附上程序代码
;;测试点与区域的关系，用命令行的方法创建面域


(defun c:pct
             (/  POG POIO POI closedptO closedpt DIS pog1 CIR AREA AREAN)
     
     (setvar "cmdecho" 0)
     (SETQ   pog  (SSE '((0 . "*YLINE,SPLINE,CIRCLE,ELLIPSE"))
                       "\n请选择测试区域边界线(平面曲线):"
                       )
           )
     (if (and (WCMATCH (cdr (assoc 0 (entget pog))) "*YLINE,SPLINE")
              (= (REM (cdr (assoc 70 (entget pog))) 2) 0)
              )
          (alert "所选曲线不闭合!")
          (progn
               (setq poiO (GETPOINT "\n请选择测试点:"))
               (COND
                    ((WCMATCH (cdr (assoc 0 (entget pog))) "LWPOLYLINE")
                     (SETQ POI (LIST (CAR POIO)
                                     (CADR POIO)
                                     (VLA-GET-ELEVATION
                                          (vlax-ename->vla-object POG)
                                          )
                                     )
                           )
                     )
                    (T
                     (SETQ POI (LIST (CAR POIO)
                                     (CADR POIO)
                                     (CADDDR (ASSOC 10 (ENTGET POG)))
                                     )
                           )
                     )
                    )
               (SETQ closedptO (vlax-curve-getclosestpointto
                                    (vlax-ename->vla-object pog)
                                    poiO
                                    )
                     closedpt  (vlax-curve-getclosestpointto
                                    (vlax-ename->vla-object pog)
                                    poi
                                    )
                     )
               (if (= (DISTANCE poiO closedptO) 0)
                    (alert "点在边界上！")
                    (progn
                         (setq dis (* (DISTANCE poi closedpt) 0.5))
                         (vl-cmdf "copy" pog "" POI POI)
                         (vl-cmdf "region" (entlast) "")
                         (setq pog1 (entlast))
                         (vl-cmdf "CIRCLE" POI DIS "")
                         (vl-cmdf "region" (entlast) "")
                         (setq cir  (entlast)
                               AREA (VLA-GET-AREA
                                         (vlax-ename->vla-object pog1)
                                         )
                               )
                         (vl-cmdf
                              "union"
                              pog1
                              cir
                              ""
                              )
                         (setq
                              AREAN (vla-get-area
                                         (vlax-ename->vla-object pog1)
                                         )
                              )
                         (entdel (entlast))
                         (COND ((= AREA AREAN)
                                (ALERT "点在边界内！")
                                )
                               (T (ALERT "点在边界外！"))
                               )
                         )
                    )
               )
          )
     (setvar "cmdecho" 0)
     (PRINC)
     )
(VLAX-ADD-CMD "PCT" 'PCT)
(defun SSE (filter msg / el)
     (while (not (and
                      (setq el (car (entsel msg)))
                      (WCMATCH (cdr (ASSOC 0 (entget el)))
                               (cdr (nth 0 filter))
                               )
                      (vlax-curve-isPlanar (vlax-ename->vla-object EL))
                      )
                 )


          (prompt
               (strcat "\n选中1个" (cdr (ASSOC 0 (entget el))) "对象")
               )

          )
     (setq el el)
     )