判断一个点的周围有没有实体

citykunan

给位版主，怎么样来判断一个点的周围有没有实体（如线或圆）
谢谢。

BDYCAD

這樣也行
(if (= (ssget a) nil); a= 要判周邊有沒有實體的點
   (princ "\n點的周邊沒有實體哦")
   (princ "\n檢測到點的周邊有實體了"))

lockmyeye

应该这样用：
(ssget "c" pt pt)

(ssget pt)只能选择一个实体，如果有的话。

lockmyeye

如果要扩大范围，可用
(ssget "c" (polar pt (* 0.25 pi) dist) (polar pt (* 1.25 pi) dist))

citykunan

版主，当要判断很多点时，用ssget命令要和zoom命令配合使用。如果有上万个点，这样会使程序很慢。有没有什么其他的好办法？
谢谢。

呆呆

请问各位  我有时候 用(ssget "c" pt pt) 或者(ssget "c" pt pt) 不行  在加载的过程中没有出现错误 但是在运行的时候 和想要的结果不相同

meflying

你用一次zoom all就可以了，然后使用每个点循环使用如下函数
;功能：判断某个点周围是否有对象
;注意要先加载(vl-load-com)
;参数：
pt需判断的点
search_dist 每一点附近选择对象的距离，此参数可能影响速度，但一般大于下一个参数。
dec_dist 判断范围，即某点附近这个附近的距离是多少。
;返回：如有，返回T，否则返回nil

2. 
   
3. (defun Dec (pt Search_Dist Dec_Dist / ss i ent entv rDist rVal)
   
4.   (setq        ss (ssget "c"
   
5.                   (polar pt (* 0.25 pi) Search_Dist)
   
6.                   (polar pt (* 1.25 pi) Search_Dist)
   
7.            )
   
8.   )
   
9.   (setq i 0)
   
10.   (setq rVal nil)
    
11.   (if ss
    
12.     (while (< i (sslength ss))
    
13.       (setq ent (ssname ss i))
    
14.       (setq entv (vlax-ename->vla-object ent))
    
15.       (setq rDist (distance pt (vlax-curve-getClosestPointTo entv pt)))
    
16.       (if (<= rDist Dec_Dist)
    
17.         (progn
    
18.           (setq i (sslength ss))
    
19.           (setq rVal t)
    
20.         )
    
21.       )
    
22.       (setq i (1+ i))
    
23.     )
    
24.   )
    
25.   rVal
    
26. )
    

<br /> (defun Dec (pt Search_Dist Dec_Dist / ss i ent entv rDist rVal)<br />   (setq        ss (ssget "c"<br />                   (polar pt (* 0.25 pi) Search_Dist)<br />                   (polar pt (* 1.25 pi) Search_Dist)<br />            )<br />   )<br />   (setq i 0)<br />   (setq rVal nil)<br />   (if ss<br />     (while (< i (sslength ss))<br />       (setq ent (ssname ss i))<br />       (setq entv (vlax-ename->vla-object ent))<br />       (setq rDist (distance pt (vlax-curve-getClosestPointTo entv pt)))<br />       (if (<= rDist Dec_Dist)<br />         (progn<br />           (setq i (sslength ss))<br />           (setq rVal t)<br />         )<br />       )<br />       (setq i (1+ i))<br />     )<br />   )<br />   rVal<br /> )<br />

我爱lisp

还是飞哥这个vl的八错，收藏！

龙龙仔

;;MEFLYING
;;傳回曲線上最接近指定點的點 (使用 WCS)
;;(vlax-curve-getClosestPointTo curve-obj givenPnt [extend])

;;所以程序對非"線類"將出錯

citykunan

有没有办法不用zoom命令，判断一个点的上、下、左、右，有没有东西。而不是笼统的
判断其周围有没有东西。程序需要以上、下、左、右，判断有没有东西，由于点很多，
我又不想用zoom和ssget命令，这样会很慢，不知飞、龙二位版主有何高招？
谢谢。