请问关于Grread用法及方式

晴空O_o

论坛搜索的没看懂，大致理解了grread的原理
(grread [track] [allkeys [curtype]]) 我想请问 teack 和curtype 如何定义？
没太看懂用法我想写一个动态输入文字的代码刚接触grread，请赐教创建文字代码如下

1. (defun emtxt (pt2 str2 /)
   
2.     (entmake (list
   
3.                '(0 . "TEXT")
   
4.                '(100 . "AcDbEntity")
   
5.                '(8 . "0")
   
6.                '(100 . "AcDbText")
   
7.                '(7 . "tssd_rein")
   
8.                '(41 . 0.7)
   
9.                (cons 1 str2)
   
10.                (cons 10 pt2)
    
11.                (cons 40 3000)))
    
12. )
    

(defun emtxt (pt2 str2 /)<br />     (entmake (list<br />                '(0 . "TEXT")<br />                '(100 . "AcDbEntity")<br />                '(8 . "0")<br />                '(100 . "AcDbText")<br />                '(7 . "tssd_rein")<br />                '(41 . 0.7)<br />                (cons 1 str2)<br />                (cons 10 pt2)<br />                (cons 40 3000)))<br /> )<br />

插入文字 如何用grread实现动态？

edata

参数

track

如果提供该参数且其值不为 nil，则输入设备移动时，本函数能从定点设备中返回坐标。

allkeys

整数型，决定 grread 要执行的功能。allkeys 的几个位值相加可以获得组合功能。可以指定如下值：

1 （位0） 返回“拖动模式”坐标。如果设置了该位，而且用户只是移动定点设备而没有按下按钮或键盘，grread 函数就返回一个表，其第一个成员是类型代码 5，第二个成员是当前定点设备（鼠标或数字化仪）的位置坐标 (X,Y)，这就是 AutoCAD 实现拖动的方法。

2 （位1） 返回所有的键值，包括功能键和光标键代码，用户按下光标键时并不移动光标。

4 （位2） 使用 curtype 参数传来的值控制光标的显示。

8 （位3） 在用户按下 ESC 键时不显示相应错误信息。

curtype

整数型，表明显示光标的类型。只有当 allkeys 参数的第二位为 1 时 curtype 参数才有效。该参数只控制当前 grread 函数调用时显示的光标类型。可以指定下列 curtype 值：

0 显示普通十字光标。

1 不显示光标（无十字光标）。

2 显示对象选择光标。

edata

1. (defun emtxt (pt2 str2 /)
   
2.     (entmakex (list
   
3.                '(0 . "TEXT")
   
4.                '(100 . "AcDbEntity")
   
5.                '(8 . "0")
   
6.                '(100 . "AcDbText")
   
7.                ;'(7 . "tssd_rein")
   
8.                '(41 . 0.7)
   
9.                (cons 1 str2)
   
10.                (cons 10 pt2)
    
11.                (cons 40 3000)))
    
12. )
    
13. (defun c:tt(/ pt str en elist loop gr code data)
    
14.   (setq pt '(0 0 0))
    
15.   (setq str "文字")
    
16.   (setq en(emtxt pt str))
    
17.   (if en
    
18.     (progn
    
19.       (setq elist(entget en))
    
20.       (setq txtbox(textbox elist))
    
21.       (setq cen(mapcar '(lambda(x y)(* 0.5 (+ x y)))(car txtbox)(cadr txtbox)))
    
22.       (setq loop t)
    
23.       (while loop
    
24.         (setq gr(grread t 15 0))
    
25.         (setq code(car gr))
    
26.         (setq data(cadr gr))
    
27.         (cond
    
28.           ((= code 5)(setq pt(mapcar '- data cen)) (entmod(subst(cons 10 pt)(assoc 10 elist)elist)))
    
29.           ((= code 3)(setq loop nil) )
    
30.           ((= code 11)(setq loop nil) )
    
31.           ((= code 25)(setq loop nil) )
    
32.           )
    
33.         )
    
34.       )
    
35.     )
    
36.   )

(defun emtxt (pt2 str2 /)<br />     (entmakex (list<br />                '(0 . "TEXT")<br />                '(100 . "AcDbEntity")<br />                '(8 . "0")<br />                '(100 . "AcDbText")<br />                ;'(7 . "tssd_rein")<br />                '(41 . 0.7)<br />                (cons 1 str2)<br />                (cons 10 pt2)<br />                (cons 40 3000)))<br /> )<br /> (defun c:tt(/ pt str en elist loop gr code data)<br />   (setq pt '(0 0 0))<br />   (setq str "文字")<br />   (setq en(emtxt pt str))<br />   (if en<br />     (progn<br />       (setq elist(entget en))<br />       (setq txtbox(textbox elist))<br />       (setq cen(mapcar '(lambda(x y)(* 0.5 (+ x y)))(car txtbox)(cadr txtbox)))<br />       (setq loop t)<br />       (while loop<br />         (setq gr(grread t 15 0))<br />         (setq code(car gr))<br />         (setq data(cadr gr))<br />         (cond<br />           ((= code 5)(setq pt(mapcar '- data cen)) (entmod(subst(cons 10 pt)(assoc 10 elist)elist)))<br />           ((= code 3)(setq loop nil) )<br />           ((= code 11)(setq loop nil) )<br />           ((= code 25)(setq loop nil) )<br />           )<br />         )<br />       )<br />     )<br />   )

tigcat

E大就是热心

晴空O_o

谢谢长老赐教