[请教]如何用entsel有选择的选择对象？

3stone

就象（ssget)一样有个过滤功能，那么我能否用entsel来有分别的选择一个例如是"TEXT"的对象呢？
例如在程序中我要选择文字，但是如果我选择其他类型的对象，能否程序提示错误，然后重新来选择“text"对象呢?

mccad

http://www.mjtd.com/function/list.asp?id=64&ordertype=bysort&orderkey=6

BDYCAD

不是很難哦.
          我是這樣做的, 我想這樣可以吧:
(SETQ A (CDR (ASSOC 0 (ENTGET (CAR (ENTSEL))))))
(WHILE (/= A "TEXT")
  (SETQ A (CDR (ASSOC 0 (ENTGET (CAR (ENTSEL)))))))

3stone

如果选择为空的话，即什么都不选，就出错，怎么办？
为什么这时候A为NIL,也符合(WHILE (/= A "TEXT")
  (SETQ A (CDR (ASSOC 0 (ENTGET (CAR (ENTSEL)))))))，怎么就不循环执行了呢？

meflying

可以这样，不过不带退出了，
(WHILE (not (and (setq a (entsel))
              (= (cdr (assoc 0 (entget (car a)))) "TEXT")))
)

我自己写了个更好的，带提示，带右键退出，以后可以用SEL代替ENTSEL函数使用了：

2. 
   
3. (defun sel (/ a)
   
4.   (prompt "Select the object...")
   
5.   (while (or (= (car (setq a (grread 2 4 2))) 5)))
   
6.   (if (= (car a) 3) (setq a (ssget (cadr a))))
   
7. a
   
8. )
   

<br /> (defun sel (/ a)<br />   (prompt "Select the object...")<br />   (while (or (= (car (setq a (grread 2 4 2))) 5)))<br />   (if (= (car a) 3) (setq a (ssget (cadr a))))<br /> a<br /> )<br />

meflying

不好意思，刚才那个不带过滤，过滤用这个
_type为要选择的类型,msg为提示语

2. 
   
3. 
   
4. (defun Sel (_type msg / gr ent m)
   
5.   (prompt msg)
   
6.   (setq m nil)
   
7.   (while (not m)
   
8.     (setq gr (grread 2 4 2))
   
9.     (cond
   
10.       ((= (car gr) 3)
    
11.        (setq ent (ssget (cadr gr)))
    
12.        (if (and ent (= (cdr (assoc 0 (entget (setq ent (ssname  ent 0))))) _type))
    
13.          (setq m t)
    
14.          (setq ent nil)
    
15.        )
    
16.       )
    
17.       ((= (car gr) 25) (setq m t))
    
18.     )
    
19.   )
    
20.   ent
    
21. )
    
22. 
    

<br /> <br /> (defun Sel (_type msg / gr ent m)<br />   (prompt msg)<br />   (setq m nil)<br />   (while (not m)<br />     (setq gr (grread 2 4 2))<br />     (cond<br />       ((= (car gr) 3)<br />        (setq ent (ssget (cadr gr)))<br />        (if (and ent (= (cdr (assoc 0 (entget (setq ent (ssname  ent 0))))) _type))<br />          (setq m t)<br />          (setq ent nil)<br />        )<br />       )<br />       ((= (car gr) 25) (setq m t))<br />     )<br />   )<br />   ent<br /> )<br /> <br />

3stone

(command "_text" "j" "mc" pt1 txt_h txt_ro txt)
(setq e2 (car (entsel))
运行上面两句，然后就有提示，输入"l"就可得到刚生成物体的代码。
在(ssget "l")可以选择刚完成的物体,可是entsel怎样才能在程序里不用输入"l"，就可以获取刚生成物体的代码呢？

meflying

为什么什么都想用entsel？既然不是手动选择，用什么选不一样吗？只要能得到需要的对象就可以了啊。
最后一个生成的对象用(entlast)

龙龙仔

;;(test "\n选取直线" '((0 . "LINE")))
(defun TEST (MSG FILTER / SS)
  (while (null SS)
    (prompt MSG)
    (setq SS (ssget ":S" FILTER))
  )
)