[讨论]如何得到离指定点最近的且包含这点的封闭曲线

highflybir

今天在autodesk讨论组中看到一个话题：

大意如下：给出一个点，如何得到离该点最近的且包含这点的封闭曲线。(circle,polyline....),如果有，返回该曲线图元名，如果不存在包含这点的封闭曲线，则返回nil值。

I am familiar with some methods to determine if a point is inside a given polyline... but I am looking to find... or create...
a function to select a closed polyline given a point which is inside its space... if the point is not within a closed polyline then returns nil.

Gilles Chanteau给出了一个lisp程序，但并不很准确，有时会出错。

如果对这个题目有兴趣的话，不妨讨论一下.

caoyin

我有一个笨的思路，但只对当前屏幕有效（总不能先zoom\e吧）

1.BOUNDARY 命令通过拾取点 pt 生成面域

2.加上一个判断，获取刚产生的对象的选择集 ss 。如果ss不存在，说明没有封闭区域。

  如果ss存在，取得面积最大的一个对象 en 。然后得到en的范围 bou，

  (apply 'ssget (cons "_c" bou))得到选择集 ss2.从ss2中获取和 en 面积相等[判断方法

  (equal en x 1e-6)]的对象。

3.删除ss

byghbcx

 

可以这样做：

1、先选择所有封闭多义线、圆、椭圆的所有实体

2、逐一判断点是否在实体内（此函数明径上有），对所有包含此点的实体比较得到面积最小者(不知版主是否以面积最小作为判断规则来返回)。

下面我转发

highflybir

3. (defun C:test (/ curlst point curve closep dist ent return)
4.   (vl-load-com)
5.   (setq curlst nil)
6.   (initget 1)
7.   (setq point (getpoint "\nPlease enter a point:"))
8.   (vlax-for n (vla-get-Modelspace
9.   (vla-get-activeDocument (vlax-get-acad-object))
10.        )
11.     (if (or (vlax-property-available-p n 'closed)
12.      (= (vla-get-objectname n) "AcDbCircle")
13.      (and (= (vla-get-objectname n) "AcDbEllipse")
14.    (= (vla-get-startangle n) 0)
15.    (= (vla-get-endangle n) (* 2 pi))
16.      )
17. )
18.       (progn
19. (setq curve (vlax-vla-object->ename n))
20. (if (dos_isinsidecurve curve point)
21.    (setq closeP (vlax-curve-getClosestPointTo n point)
22.   dist   (distance point closeP)
23.   curlst (cons (cons curve dist) curlst)
24.    )
25. )
26.       )
27.     )
28.   )
29.   (if curlst
30.     (setq curlst (vl-sort curlst '(lambda (e1 e2) (< (cdr e1) (cdr e2))))
31.    ent  (caar curlst)
32.    return (sssetfirst nil (ssadd ent))
33.     )
34.   )
35. )

(defun C:test (/ curlst point curve closep dist ent return)   (vl-load-com)   (setq curlst nil)   (initget 1)   (setq point (getpoint "\nPlease enter a point:"))   (vlax-for n (vla-get-Modelspace   (vla-get-activeDocument (vlax-get-acad-object))        )     (if (or (vlax-property-available-p n 'closed)      (= (vla-get-objectname n) "AcDbCircle")      (and (= (vla-get-objectname n) "AcDbEllipse")    (= (vla-get-startangle n) 0)    (= (vla-get-endangle n) (* 2 pi))      ) )       (progn (setq curve (vlax-vla-object->ename n)) (if (dos_isinsidecurve curve point)    (setq closeP (vlax-curve-getClosestPointTo n point)   dist   (distance point closeP)   curlst (cons (cons curve dist) curlst)    ) )       )     )   )   (if curlst     (setq curlst (vl-sort curlst '(lambda (e1 e2) (< (cdr e1) (cdr e2))))    ent  (caar curlst)    return (sssetfirst nil (ssadd ent))     )   ) )

这里用了一个函数dos_isinsidecurve 是doslib7.5版本才有的，只能在2007以上运行。