[求助]如何判断一点在pline围成的封闭空间内

无痕

2. ;|利用 offset 方法判断点在曲线的内外关系.  测试版 -----------无痕。
3. 返回T＝在内.           !!!***************支持不闭合曲线***********************!!!
4.            对自相交曲线有bug.不支持!
5. (defun c:test (/ e) (while (setq e (entsel "\n选曲线:"))(print (ptin e (getpoint "\n选点:")))))
6. |;
7. (defun ptin (ept pt / oecho oe obj e ll ur k)
8.    (vl-load-com)
9.    (setq oecho (getvar "cmdecho"))
10.    (vl-cmdf ".undo" "be")
11.    (setvar "cmdecho" 0)
12.    (setq obj (vlax-ename->vla-object (car ept))
13.   e     (entlast))
14.    (vla-getboundingbox obj 'll 'UR)
15.    (setq d (apply 'distance   (mapcar 'vlax-safearray->list (list LL UR))))
16.    (vl-cmdf "_.offset" d ept pt)(vl-cmdf);偏移
17.    (setq k (if (eq (entlast) e) T nil))
18.    (vl-cmdf ".undo" "e" "u")
19.    (setvar "cmdecho" oecho)
20.    k
21. )

;|利用 offset 方法判断点在曲线的内外关系.  测试版 -----------无痕。 返回T＝在内.           !!!***************支持不闭合曲线***********************!!!            对自相交曲线有bug.不支持! (defun c:test (/ e) (while (setq e (entsel "\n选曲线:"))(print (ptin e (getpoint "\n选点:"))))) |; (defun ptin (ept pt / oecho oe obj e ll ur k)    (vl-load-com)    (setq oecho (getvar "cmdecho"))    (vl-cmdf ".undo" "be")    (setvar "cmdecho" 0)    (setq obj (vlax-ename->vla-object (car ept))   e     (entlast))    (vla-getboundingbox obj 'll 'UR)    (setq d (apply 'distance   (mapcar 'vlax-safearray->list (list LL UR))))    (vl-cmdf "_.offset" d ept pt)(vl-cmdf);偏移    (setq k (if (eq (entlast) e) T nil))    (vl-cmdf ".undo" "e" "u")    (setvar "cmdecho" oecho)    k )