[讨论]如何判断某点是否在一个封闭的区域内？

xhq1954425

水平有限，不敢随便参与讨论，看高人的帖看不太明白，斗胆想了一个苯办法发上来，不知可行否？

(defun c:test()
 (while (setq p (getpoint"\n拾取点"))
   (command "BOUNDARY" "A" "O" "R" "I" "N" "" ""  p "")
    (if (= (GETVAR "LASTPROMPT") "已创建 0 个面域。")
     (prompt  "点在外面")
     (progn
     (command "erase"(entlast) "")
     (prompt "点在里面")
     )
   )
 )
 )

cjs

11楼办法不行

boundary本来就经常找不到边界，自身还不完善，最好不要用

zml84

killer9806发表于2009-9-5 21:55:00ZML84的,多边形范围点的判定有误,只要点在多边形的最小最大点之间,都提示包含在其中

可否给个示例？

caoyin

xhq1954425发表于2009-9-6 10:18:00水平有限，不敢随便参与讨论，看高人的帖看不太明白，斗胆想了一个苯办法发上来，不知可行否？(defun c:test()

这个行不通的。

狂刀无痕

boundary 主要是风险大，平时用的时候都可能导致cad死机，因此不建议用

xhq1954425

谢谢高手指点！

yxp

这个是在网上搜到的，已经不知道原作者是谁了。

3. (defun c:ard(/ POG POIO POI closedptO closedpt DIS pog1 CIR AREA AREAN)
4.   (vl-load-com)
5.   (setvar "cmdecho" 0)
6.   (SETQ pog (SSE '((0 . "*YLINE,SPLINE,CIRCLE,ELLIPSE")) "\n请选择测试区域边界线(平面曲线):"))
7.   (if (and (WCMATCH (cdr (assoc 0 (entget pog))) "*YLINE,SPLINE")
8.     (= (REM (cdr (assoc 70 (entget pog))) 2) 0))
9.     (alert "所选曲线不闭合!")
10.     (progn (setq poiO (GETPOINT "\n请选择测试点:"))
11.       (COND ((WCMATCH (cdr (assoc 0 (entget pog))) "LWPOLYLINE")
12.   (SETQ POI (LIST (CAR POIO) (CADR POIO) (vLA-GET-ELEATION (vlax-ename->vla-object POG)))))
13. (T (SETQ POI (LIST (CAR POIO) (CADR POIO) (CADDDR (ASSOC 10 (ENTGET POG)))))))
14.       (SETQ closedptO (vlax-curve-getclosestpointto (vlax-ename->vla-object pog) poiO)
15.      closedpt  (vlax-curve-getclosestpointto (vlax-ename->vla-object pog) poi))
16.       (if (= (DISTANCE poiO closedptO) 0)
17. (alert "点在边界上！")
18. (progn
19.    (setq dis (* (DISTANCE poi closedpt) 0.5))
20.    (vl-cmdf "copy" pog "" POI POI)
21.    (vl-cmdf "region" (entlast) "")
22.    (setq pog1 (entlast))
23.    (vl-cmdf "CIRCLE" POI DIS "")
24.    (vl-cmdf "region" (entlast) "")
25.    (setq cir  (entlast) AREA (vLA-GET-AREA (vlax-ename->vla-object pog1)))
26.    (vl-cmdf "union" pog1 cir "")
27.    (setq AREAN (vla-get-area (vlax-ename->vla-object pog1)))
28.    (entdel (entlast))
29.    (COND ((= AREA AREAN) (ALERT "点在边界内！"))
30.   (T (ALERT "点在边界外！")))
31. )
32.       )
33.     )
34.   )
35.   (setvar "cmdecho" 0)
36.   (PRINC)
37. )
38. (defun SSE (filter msg / el)
39.   (while (not (and
40.   (setq el (car (entsel msg)))
41.   (WCMATCH (cdr (ASSOC 0 (entget el)))
42.     (cdr (nth 0 filter)))
43.   (vlax-curve-isPlanar (vlax-ename->vla-object EL))))
44.   (prompt (strcat "\n选中1个" (cdr (ASSOC 0 (entget el))) "对象")))
45.   (setq el el)
46. )

(defun c:ard(/ POG POIO POI closedptO closedpt DIS pog1 CIR AREA AREAN)   (vl-load-com)   (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-ELEATION (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) ) (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) )

zark

(ssget "cp"

yanglin112

好帖，mark！