ssget 多边形选择方式无法选择到多边形内的图元

no13bus

dwg里面 我想用(ssget "_wp" 多边形点)来选择多边形里面的图块 但是始终选择不到 如果画一个矩形或者五边形啥的，都没问题，
但是这个图形就是不行 啥原因呢？高手们来挑战下。从来没遇见过的难题

pzweng

你的点表有问题，你仔细看一下你的起点与终点放大看看，问题出现在这里

stoyer

文件发来看看

no13bus

请看下 谢谢

q3_2006

重建一个边界就行了！

stoyer

1. ;排除相差精度在0.0001之内的点
   
2. (defun get-pline-point (e / i jd lst pt0 upt v)
   
3.    (setq i -1)
   
4.    (setq jd 0.0001)
   
5.    (while (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))
   
6.      (if (= i 0)
   
7.         (progn
   
8.           (setq lst (cons v lst))
   
9.           (setq pt0 v)
   
10.           (setq upt v)
    
11.         )
    
12.     (progn
    
13.       (if (equal upt v jd)
    
14.         (progn
    
15.         (princ)
    
16.         )
    
17.         (progn
    
18.                 (if (equal pt0 v jd)
    
19.                   (progn
    
20.                      (princ)
    
21.                   )
    
22.                   (progn
    
23.                     (setq lst (cons v lst))
    
24.                     (setq upt v)
    
25.                   )
    
26.                 )))))
    
27.    );while
    
28.    (setq lst (cdr lst))
    
29.    (reverse lst)
    
30. )
    
31. (setq pt_s (get-pline-point (car (entsel))))
    
32. (setq ssObjects (ssget "_WP" pt_s '((0 . "INSERT") (100 . "AcDbBlockReference"))))
    

;排除相差精度在0.0001之内的点<br /> (defun get-pline-point (e / i jd lst pt0 upt v)<br />    (setq i -1)<br />    (setq jd 0.0001)<br />    (while (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))<br />      (if (= i 0)<br />         (progn<br />           (setq lst (cons v lst))<br />           (setq pt0 v)<br />           (setq upt v)<br />         )<br />     (progn<br />       (if (equal upt v jd)<br />         (progn<br />         (princ)<br />         )<br />         (progn<br />                 (if (equal pt0 v jd)<br />                   (progn<br />                      (princ)<br />                   )<br />                   (progn<br />                     (setq lst (cons v lst))<br />                     (setq upt v)<br />                   )<br />                 )))))<br />    );while<br />    (setq lst (cdr lst))<br />    (reverse lst)<br /> )<br /> (setq pt_s (get-pline-point (car (entsel))))<br /> (setq ssObjects (ssget "_WP" pt_s '((0 . "INSERT") (100 . "AcDbBlockReference"))))<br />

no13bus

stoyer 发表于 2013-9-29 20:54

你的意思是说坐标点之间虽然没有重合 但是已经非常接近了 是因为这个造成的？

yixinexin

支持一下!学习了，谢谢版主大大