(XD::Text:IndexAtPoint)获得鼠标点下文字（块内、属性、普通文本）的索引位置值

Lispboy

1. (defun XD::Text:IndexAtPoint (e pt / base box ed i len p2 pos prev tf txt                                typ v xdir
   
2.                              )
   
3.   (if (setq txt (xdrx_getpropertyvalue e "textstring"))
   
4.     (progn
   
5.       (setq ed (entget e))
   
6.       (setq len (xdrx_string_length txt))
   
7.       (setq tf t
   
8.             i 0
   
9.       )
   
10.       (setq box (xdrx_text_box e)
    
11.             base (car box)
    
12.             ydir (mapcar '- (nth 2 box)(nth 1 box))
    
13.             lastpt base
    
14.             xdir (xd::entity:xdir e)
    
15.       )
    
16.       (while (and
    
17.                tf
    
18.                (< i len)
    
19.              )
    
20.         (setq prev (xdrx_string_mid txt 0 (1+ i)))
    
21.         (setq ed (subst
    
22.                    (cons 1 prev)
    
23.                    (assoc 1 ed)
    
24.                    ed
    
25.                  )
    
26.         )
    
27.         (setq box (textbox ed)
    
28.               v (mapcar
    
29.                   '-
    
30.                   (cadr box)
    
31.                   (car box)
    
32.                 )
    
33.               p2 (mapcar
    
34.                    '+
    
35.                    base
    
36.                    (xdrx_vector_product xdir (car v))
    
37.                  )
    
38.         )
    
39.         (if (xd::pnt:isbetween pt base p2)
    
40.           (setq pos (list txt i (list lastpt p2 (mapcar '+ p2 ydir)(mapcar '+ lastpt ydir)))
    
41.                 tf nil
    
42.           )
    
43.         )
    
44.         (setq lastpt p2
    
45.               i (1+ i)
    
46.         )
    
47.       )
    
48.     )
    
49.   )
    
50.   pos
    
51. )

(defun XD::Text:IndexAtPoint (e pt / base box ed i len p2 pos prev tf txt                                typ v xdir<br />                              )<br />   (if (setq txt (xdrx_getpropertyvalue e "textstring"))<br />     (progn<br />       (setq ed (entget e))<br />       (setq len (xdrx_string_length txt))<br />       (setq tf t<br />             i 0<br />       )<br />       (setq box (xdrx_text_box e)<br />             base (car box)<br />             ydir (mapcar '- (nth 2 box)(nth 1 box))<br />             lastpt base<br />             xdir (xd::entity:xdir e)<br />       )<br />       (while (and<br />                tf<br />                (< i len)<br />              )<br />         (setq prev (xdrx_string_mid txt 0 (1+ i)))<br />         (setq ed (subst<br />                    (cons 1 prev)<br />                    (assoc 1 ed)<br />                    ed<br />                  )<br />         )<br />         (setq box (textbox ed)<br />               v (mapcar<br />                   '-<br />                   (cadr box)<br />                   (car box)<br />                 )<br />               p2 (mapcar<br />                    '+<br />                    base<br />                    (xdrx_vector_product xdir (car v))<br />                  )<br />         )<br />         (if (xd::pnt:isbetween pt base p2)<br />           (setq pos (list txt i (list lastpt p2 (mapcar '+ p2 ydir)(mapcar '+ lastpt ydir)))<br />                 tf nil<br />           )<br />         )<br />         (setq lastpt p2<br />               i (1+ i)<br />         )<br />       )<br />     )<br />   )<br />   pos<br /> )