entsel 关键字问题

爱莫能助

(defun c:Tt (/ en)
  (initget 128)
  (setq en (entsel "\n选择对象或 <输入内容>:"))
  (princ en)
  (princ)
  )
;怎么这样不行，不可以选择对象，或输入内容
;要怎么样才能做到.

newer

回车输入内容？

1. (if (not (setq e (entsel "\n选择对象<输入内容>:")))
   
2.    (progn
   
3.       (setq e (getstring "\n输入内容:"))
   
4.    )
   
5. )
   
6. (setq tf (type e))
   
7. (cond
   
8.    ((= tf 'STR)
   
9.      ;;输入了内容
   
10.    )
    
11.    (t
    
12.      ;;选择了实体
    
13.    )
    
14. )
    

(if (not (setq e (entsel "\n选择对象<输入内容>:")))<br />    (progn<br />       (setq e (getstring "\n输入内容:"))<br />    )<br /> )<br /> (setq tf (type e))<br /> (cond<br />    ((= tf 'STR)<br />      ;;输入了内容<br />    )<br />    (t<br />      ;;选择了实体<br />    )<br /> )<br />

爱莫能助

newer 发表于 2016-8-26 17:56
回车输入内容？

1. (defun c:Tt (/ en)
   
2.   (initget 128)
   
3.   (setq en (getpoint "\n指定点或 <输入内容>:"))
   
4.   (princ en)
   
5.   (princ)
   
6.   )
   
7. ;我用 getpoint 又可以  想entsel也能这样
   
8. ;不用IF判断空选。。

(defun c:Tt (/ en)<br />   (initget 128)<br />   (setq en (getpoint "\n指定点或 <输入内容>:"))<br />   (princ en)<br />   (princ)<br />   )<br /> ;我用 getpoint 又可以  想entsel也能这样<br /> ;不用IF判断空选。。

Lisphk

爱莫能助 发表于 2016-8-27 08:22

get**x类函数能接受字符串，entsel不行，所以你要变通下

爱莫能助

Lisphk 发表于 2016-8-27 09:27
get**x类函数能接受字符串，entsel不行，所以你要变通下

请教下，要怎么变通，我实在想不出办法了

Lisphk

爱莫能助 发表于 2016-8-27 10:18
请教下，要怎么变通，我实在想不出办法了

上面N版不是给你代码了吗，回车输入字符串，然后判断返回值，字符串和实体分开处理。

Lisphk

爱莫能助 发表于 2016-8-27 10:18
请教下，要怎么变通，我实在想不出办法了

发现xdrx api 的xdrx_entsel 能满足你的需要

1. (initget "A B")
   
2. (xdrx_initget "A B")
   
3. (setq e (xdrx_entsel "\n选择实体或输入字符串:" '((0 . "LINE"))))
   
4. 
   

(initget "A B")<br /> (xdrx_initget "A B")<br /> (setq e (xdrx_entsel "\n选择实体或输入字符串:" '((0 . "LINE"))))<br /> <br />

上面的xdrx_entsel 支持过滤，和关键字，不用关键字只是要输入字符串，把头两行代码去掉。

爱莫能助

Lisphk 发表于 2016-8-27 10:23
上面N版不是给你代码了吗，回车输入字符串，然后判断返回值，字符串和实体分开处理。

就是不想用回车判断

爱莫能助

Lisphk 发表于 2016-8-27 11:03
发现xdrx api 的xdrx_entsel 能满足你的需要

xdrx_initget 这个函数在哪

XDSoft

爱莫能助 发表于 2016-8-27 11:30
xdrx_initget 这个函数在哪

http://bbs.xdcad.net/thread-668896-1-1.html

下载XDRX API，加载它。这个函数是支持一键回车的。