[LISP程序]：lisp中如何在指定区域“搜索”

tjyly

比如，我在图纸某一点处点击一下，马上搜索到方圆3000范围内的所有图元，包括贯通的线。谢谢

ll_j

最初由 tjyly 发布
比如，我在图纸某一点处点击一下，马上搜索到方圆3000范围内的所有图元，包括贯通的线。谢谢

仔细研究一下“ssget”函数，你需要的应该不难。最好自己做，其他人并不知你具体需要什么。

wwwchard

天正里面的pickss函数就是这样的，而且还有过滤和范围。（pickss pt  "XX"  range)
按照这个思路，可以重新自己定义一个适合你自己的函数更适合你自己的专业应用。
pt－点取的点
XXX为图层或图层名，可以扩大为所有实体如line/polylin/insert……等
range－需要的范围

efan2000

在CAD中用W方式选择的只能方，可不能是圆，如果要圆的话，就要用多段线作一拟合圆来选择了。

前生

"F"选择集

XDSoft

最初由 tjyly 发布
[B]比如，我在图纸某一点处点击一下，马上搜索到方圆3000范围内的所有图元，包括贯通的线。谢谢 [/B]

先得到满足精度的折线替代圆，然后用SSGET 的参数F,W,CP等根据需要构建选择集

XDRX_API 函数 可以得到“任意”的曲线用顶点模拟，通过这个，不仅仅可以构建圆，其他任何曲线都可以构建其中的选择集

2. 
   
3. [FONT=courier new]
   
4. 89. xdrx_getsamplept
   
5. 
   
6. 功能：按给定精度，返回AcDbCurve类曲线和AcDb2dPolyline(旧的POLYLINE)的样本点。将复杂的曲线用点组成的线段模拟。
   
7. 
   
8. 调用格式：(xdrx_getsamplept <AcDbCurve 或 AcDb2dPolyline实体图元名> [精度控制])
   
9. 
   
10. 说明：给定的[精度控制]值玄高差越小，精度越高，分段数越大，精度越高。
    
11.       
    
12.      精度控制只对曲线段有效，对于POLYLINE,对直线段无效，对其中的ARC段数据起做用。
    
13.   
    
14.      若不给[精度控制]参数，那么程序自己计算出相对满足视觉误差的值做为玄高差进行分段。
    
15. 
    
16.      [精度控制]：分两种方法
    
17.       1：给整数，按给定的整数分曲线段
    
18.       2：给实数，做为玄高差
    
19.      
    
20.      注意：对于AcDbSpline,只能给定"玄高差",若给整数值，那么程序按照计算的相对最优值做为玄高差。
    
21. 
    
22. 返回值：若成功，返回点表，点表肯定包括曲线的开始点和终止点。(p1 p2......),失败返回NIL.
    
23. 
    
24. 示例：用LINE模拟SPLINE
    
25.      (if (setq en (xdrx_entsel "\n请点取一个Spline<退出>:") '((0 . "spline"))))
    
26.         (progn
    
27.         (setq ed (xdrx_getsamplept (car en)))
    
28.         (apply 'command (cons "line" ed))
    
29.         (command "")
    
30.      )   
    
31. [/FONT]

<br /> [FONT=courier new]<br /> 89. xdrx_getsamplept<br /> <br /> 功能：按给定精度，返回AcDbCurve类曲线和AcDb2dPolyline(旧的POLYLINE)的样本点。将复杂的曲线用点组成的线段模拟。<br /> <br /> 调用格式：(xdrx_getsamplept <AcDbCurve 或 AcDb2dPolyline实体图元名> [精度控制])<br /> <br /> 说明：给定的[精度控制]值玄高差越小，精度越高，分段数越大，精度越高。<br />       <br />      精度控制只对曲线段有效，对于POLYLINE,对直线段无效，对其中的ARC段数据起做用。 <br />   <br />      若不给[精度控制]参数，那么程序自己计算出相对满足视觉误差的值做为玄高差进行分段。<br /> <br />      [精度控制]：分两种方法<br />       1：给整数，按给定的整数分曲线段<br />       2：给实数，做为玄高差<br />      <br />      注意：对于AcDbSpline,只能给定"玄高差",若给整数值，那么程序按照计算的相对最优值做为玄高差。 <br /> <br /> 返回值：若成功，返回点表，点表肯定包括曲线的开始点和终止点。(p1 p2......),失败返回NIL.<br /> <br /> 示例：用LINE模拟SPLINE<br />      (if (setq en (xdrx_entsel "\n请点取一个Spline<退出>:") '((0 . "spline"))))<br />         (progn<br />         (setq ed (xdrx_getsamplept (car en)))<br />         (apply 'command (cons "line" ed))<br />         (command "")<br />      )   <br /> [/FONT]

fylinwater

F等参数构造的选择集合好像很不稳定
我建议在选择时把选择范围移到屏幕范围内
虽然这样如果选择很多次程序效率不高。