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

highflybird

今天在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程序，但并不很准确，有时会出错。
如果对这个题目有兴趣的话，不妨讨论一下。

highflybird

2. 
   
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 (cadr (sssetfirst nil (ssadd ent)))
    
33.     )
    
34.   )
    
35. )
    

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

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

/db_自贡黄明儒_

想过这个问题，但一直找不到答案。
是不是遍历，找到所有封闭图形，然后判断点是否在封闭图形中，然后再找最近那个。

newer

过这个点做个射线，取得选择集，然后找面积最小的那个。

/db_自贡黄明儒_

newer 发表于 2014-11-20 16:37
过这个点做个射线，取得选择集，然后找面积最小的那个。

如果封闭曲线没有在可视范围内呢{:soso_e113:}

newer

/db_自贡黄明儒_ 发表于 2014-11-20 16:49
如果封闭曲线没有在可视范围内呢

在CAD下，你要想方便的话，那肯定先要ZOOM E下了。这样利用CAD自己的高效率的选择实体方法。

否则，你就得自己遍历数据库了。

iLisp

/db_自贡黄明儒_ 发表于 2014-11-20 16:49
如果封闭曲线没有在可视范围内呢

zoom e.   

/db_自贡黄明儒_

要提高效率，还不如用boly. pt生成一个多边形。如果这个多边形刚好是屏幕4角点，说明没有

iLisp

/db_自贡黄明儒_ 发表于 2014-11-20 18:16
要提高效率，还不如用boly. pt生成一个多边形。如果这个多边形刚好是屏幕4角点，说明没有

哇，bpoly 还能认屏幕框？！

/db_自贡黄明儒_

iLisp 发表于 2014-11-20 18:36
哇，bpoly 还能认屏幕框？！

bpoly的用处是被你哇出来的。有了bPoly，这个问题就简单了。ss可以选所有对象