(setq e (entsel "请选择一个对象: "))

明天你好

大侠 们帮个忙
程序中经常有这样的
(setq e (entsel "请选择一个对象: "))


如果鼠标在空白处点取，没有拾取到对象时就会提示


Error: 参数类型错误: lentityp nil

能不能没有选择到，就提示重选，直到选择到为止 ？

YueFeng

1. 
   
2. ;功    能: EntSel 命令增强，加入过滤表，未选中对象时，重复执行.
   
3. ;调用格式:($YF_EntSel <提示字符串> <关联表>)
   
4. ;返 回 值:图元名与选取点坐标组成的双元表.
   
5. ;支持函数:
   
6. ;示    例: ($YF_EntSel "\n请选择0层上的直线对象:" '((0 . "LINE")(8 . "0")))
   
7. ;整理日期:2015年5月5日 校验日期:2015年5月15日
   
8. 
   
9. (Defun $YF_EntSel ( Msg Filter / Result )
   
10.    (While
    
11.       (Progn
    
12.          (While
    
13.             (Not (SetQ Result (EntSel Msg)))
    
14.          )
    
15.          (Not (SsMemb (Car Result) (SsGet "X" Filter)))
    
16.       )
    
17.    )
    
18.    Result
    
19. )
    

复制代码

iLisp

单选加过滤更喜欢用

1. (ssget "+.:S" '((0 . "Line") (8 . "0")))
   

(ssget "+.:S" '((0 . "Line") (8 . "0")))<br />

明天你好

YueFeng 发表于 2015-6-8 07:33

谢谢版主大人! 如果不需要过滤,要选择任意对象,要怎么写呢?

明天你好

iLisp 发表于 2015-6-8 08:48
单选加过滤更喜欢用

不要过滤 是不是这样?
($YF_EntSel "\n请选择对象:" '())

YueFeng

1. (While
   
2.    (Progn
   
3.       (Null
   
4.          (SetQ E (Entsel "\n提示："))
   
5.       )
   
6.   )
   
7. )

复制代码

明天你好

YueFeng 发表于 2015-6-8 11:43

谢谢版主, 用你的函数测试,($YF_EntSel "\n请选择对象:" '()) 这样也可以

lxy_2080

学习了，谢谢！丨丨丨丨