求助高手

m.zhitao

需要获取一个文本,即在CAD提示

请选择对象或键入文本:


的时候,可以采用类似GetPoint的方式(既可以用鼠标指定一点,也可以直接输入坐标值),既可以拾取文本目标得到,也可以通过键盘输入得到.不要用关键字方式,那样效率低.

st788796

1. (defun c:tt (/ p e)
   
2.   (initget 128)
   
3.   (if (setq p (getpoint "\nPick Point or Input string: "))
   
4.     (cond
   
5.       ((listp p)
   
6.        (setq e (nentselp p))
   
7.        (if e
   
8.          (princ e)
   
9.          (princ p)
   
10.        )
    
11.       )
    
12.       ((= (type p) 'STR) (princ "\nYou Input = ") (princ p))
    
13.       (t)
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )

(defun c:tt (/ p e)<br />   (initget 128)<br />   (if (setq p (getpoint "\nPick Point or Input string: "))<br />     (cond<br />       ((listp p)<br />        (setq e (nentselp p))<br />        (if e<br />          (princ e)<br />          (princ p)<br />        )<br />       )<br />       ((= (type p) 'STR) (princ "\nYou Input = ") (princ p))<br />       (t)<br />     )<br />   )<br />   (princ)<br /> )

m.zhitao

st788796 发表于 2015-6-18 17:28

不是点,是实体,是要在entsel中既可选择实体,也可输入文本

csharp

nentselp是根据点没有提示的 entsel