[求助]：为什么选择范围会改变

sz-gg

我看到的都是汉字，只是打开时我选了能显示汉字的字体。另外如果要删除那些字，在2000以上版本可用快速选择，在R14可用选择集过滤器。选择条件是文字，字高0.35。

lt_zzy

那是改过的，现在我上传一张没有改过的吧。

zhynt

我试过了，没有出现你所说的情况。
就编个程序吧：

2. 
   
3. (defun c:etext (/ pt1 pt2)
   
4.      (command "zoom" "e" "")
   
5.      (setq pt1 (getpoint "\n窗口第一点："))
   
6.      (command "zoom" "e" "")
   
7.      (setq pt2 (getpoint "\n窗口对角点："))
   
8.      (command "zoom" "e" "")
   
9.     (setq ename (ssget "w" pt1 pt2 '((0 . "TEXT"))))
   
10.      (command "erase" ename )
    
11. )

<br /> (defun c:etext (/ pt1 pt2)<br />      (command "zoom" "e" "")<br />      (setq pt1 (getpoint "\n窗口第一点："))<br />      (command "zoom" "e" "")<br />      (setq pt2 (getpoint "\n窗口对角点："))<br />      (command "zoom" "e" "")<br />     (setq ename (ssget "w" pt1 pt2 '((0 . "TEXT"))))<br />      (command "erase" ename )<br /> )

上面的程序只是一个思路，并不一定能解决实际问题。

lt_zzy

我曾经编写了一个代码与你的差不多的LSP程序，但是还是没有能按照我的要求，它所能删除的只是那些在当前窗口里能够看到的内容，而那些在窗口范围之外，在坐标范围内的实体却没有被删除。现在我还是没能明白。能说说你说的没有出现我所说的那种情况是哪一种情况，我好比较一下，看看怎么样。

XDSoft

最初由 lt_zzy 发布
[B]我曾经编写了一个代码与你的差不多的LSP程序，但是还是没有能按照我的要求，它所能删除的只是那些在当前窗口里能够看到的内容，而那些在窗口范围之外，在坐标范围内的实体却没有被删除。现在我还是没能明白。能说说?.. [/B]

ACAD的构造选择集除了X外，其他的都基于“显示表”，就是只能选择到屏幕内可见的实体，所以你的窗口内的实体如果不在屏幕内，就选择不到。

解决方法是根据你的窗口，先把屏幕ZOOM W 到窗口，把实体都显示出来后，在构造选择集，处理。

请看下下面XDRX_API提供的函数XDRX_DRAWING_ZOOMW和例子解释：

2. <normalfont>
   
3. 9.xdrx_drawing_zoomw
   
4. 
   
5. 调用格式：(xdrx_drawing_zoomw  <点1>  <点2> [dist])
   
6.          (xdrx_zoomw <中心点> <宽度> <高度>)
   
7. 
   
8. 功能：以点1，点2为参数做zoom "w"，并将左下角和右上角分别向外扩大一个小增量dist。
   
9.       若不提供参数dist,则默认的增量是：两点距离/(当前屏幕显示高度*80)
   
10. 返回值： nil。
    
11. 
    
12. 示例：判断直线两端点是否都在屏幕内，若不是，以直线两端点为参数做ZOOM W。
    
13.       (函数8和9结合使用示例)
    
14.       变量含义：e :line实体
    
15.       (setq ed (entget e))
    
16.       (setq p10 (cdr (assoc 10 ed))
    
17.             p11 (cdr (assoc 11 ed))
    
18.       )
    
19.       (if (setq tf (xdrx_isptoffscr p10 p11))
    
20.          (xdrx_zoomw p10 p11)
    
21.       )
    
22.       .....
    
23.       .....
    
24.       (if tf
    
25.          (command "zoom" "p") ;;若TF值为T,说明做过了ZOOM,因此，需要zoom p,返回先前屏幕，恢复
    
26.       )
    
27. 为什么需要判断点是否在屏幕外呢，因为，AUTOCAD构造选择集等是基于象素的，若实体不在屏幕内，许多
    
28. 操作会得不到正确的结果。
    
29. </font>

<normalfont><br /> 9.xdrx_drawing_zoomw<br /> <br /> 调用格式：(xdrx_drawing_zoomw  <点1>  <点2> [dist])<br />          (xdrx_zoomw <中心点> <宽度> <高度>)<br /> <br /> 功能：以点1，点2为参数做zoom "w"，并将左下角和右上角分别向外扩大一个小增量dist。<br />       若不提供参数dist,则默认的增量是：两点距离/(当前屏幕显示高度*80)<br /> 返回值： nil。<br /> <br /> 示例：判断直线两端点是否都在屏幕内，若不是，以直线两端点为参数做ZOOM W。<br />       (函数8和9结合使用示例)<br />       变量含义：e :line实体<br />       (setq ed (entget e))<br />       (setq p10 (cdr (assoc 10 ed))<br />             p11 (cdr (assoc 11 ed))<br />       )<br />       (if (setq tf (xdrx_isptoffscr p10 p11))<br />          (xdrx_zoomw p10 p11)<br />       )<br />       .....<br />       .....<br />       (if tf<br />          (command "zoom" "p") ;;若TF值为T,说明做过了ZOOM,因此，需要zoom p,返回先前屏幕，恢复<br />       )<br /> 为什么需要判断点是否在屏幕外呢，因为，AUTOCAD构造选择集等是基于象素的，若实体不在屏幕内，许多<br /> 操作会得不到正确的结果。<br /> </font>

上面面代码中的函数 xdrx_isptoffscr  是判断给定的点是否在屏幕内的函数。

1. <normalfont>
   
2. 8.xdrx_isptoffscr
   
3. 
   
4. 调用格式：(xdrx_isptoffscr  <点1>  [<点2>]...[<点n>])
   
5. 
   
6. 功能：检测 '点1' 或 '点2'...[<点n>] 是否在当前屏幕以外。若有一个点在屏幕外，返回T。
   
7.       只有都在屏幕内，才返回NIL。
   
8. </font>

复制代码

lt_zzy

我编了一个小程序来删除实体，但是还是不如愿，现在我将那个我编写的LSP程序和程序执行前后的图传上来，大家帮我！谢谢！！