[求助]：关于(ssget "p" )的用法

它山之石

以下代码为明经通道中无痕所写，可俺怎么不能得到正确的结果。过滤表不起作用。
[php]
;;BY 无痕
;;调用:(XENTSEL "\n选择直线或圆..." '((0 . "LINE")))
;;循环选则直到选中符合过滤的实体为止

(defun xentsel (msg filter)
  (while (not (and (setq el (entsel msg)) (ssget "p" filter))))
  el
)
[/php]

狂刀

那段函数是有问题,试试下面改的

2. 
   
3. (defun xentsel (msg filter / el)
   
4.   (while (not (and (setq el (entsel msg))
   
5.                    (setq pt (osnap (cadr el) "nea"))
   
6.                    (ssget "c" pt pt filter))))
   
7.   el
   
8. )
   
9. 
   
10. (xentsel "\nselect:" '((0 . "CIRCLE")))
    

<br /> (defun xentsel (msg filter / el) <br />   (while (not (and (setq el (entsel msg))<br />                    (setq pt (osnap (cadr el) "nea"))<br />                    (ssget "c" pt pt filter)))) <br />   el <br /> )<br /> <br /> (xentsel "\nselect:" '((0 . "CIRCLE")))<br />

它山之石

　　狂刀，你改过是可以得到正确的结果。但如果是下面这样就不对了:(xentsel "\nselect:" '((0 . "TEXT")))
　　俺现在是是想通过这个程序示例知道，通过(ssget "p" )是否不能得到(entsel)选择的实体。如果前面用(ssget)选择了实体，再通过(ssget "p" filter)是可以得到的。
    俺觉得无痕那样写总归是有道理的而且应该是通过测试才发布出来的，是否版本的问题。俺用的2004。

狂刀

我试了不行,我想他可能是弄错了,或发错了程序.
[php]
(defun xentsel (msg filter / el)
  (while (not (and (setq el (entsel msg))
                (ssget (cadr el) filter))))
  el
)
[/php]

它山之石

狂刀真是一刀见血。现在成了。谢谢。
也许确实是搞错了。俺已经在这个牛角尖里钻了好久了。