(XD::Text:IndexAtCursor)获得鼠标光标下文字（属性）实体的索引位置

Lispboy

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

(defun XD::Text:IndexAtCursor (e pt / base box ed i len p2 pos prev tf txt typ v<br />                              xdir<br />                           )<br />   (setq typ (xdrx_object_classname e))<br />   (if (= (car typ) "INSERT")<br />       (setq e (car (xdrx_getpropertyvalue e "AttributeEntities")))<br />   )<br />   (if e<br />     (progn<br />       (setq txt (xdrx_getpropertyvalue e "textstring"))<br />       (setq ed (entget e))<br />       (setq len (xdrx_string_length txt))<br />       (setq tf t<br />             i 0<br />       )<br />       (setq base (xdrx_getpropertyvalue e "position")<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)<br />                 tf nil<br />           )<br />         )<br />         (setq i (1+ i))<br />       )<br />     )<br />   )<br />   pos<br /> )<br /> <br />

yideng621

啥也不说了，感谢楼主分享哇！

but

命令: (XD::Text:IndexAtCursor e pt)
; 错误: no function definition: XDRX_OBJECT_CLASSNAME


修改好了能否发我一份 yideng621@126.com

newer

yideng621 发表于 2016-11-6 20:34

仔细看下 论坛置顶帖子 ， 论坛插件和函数使用方法

yoyoho

感谢 Lispboy 大大分享程序 !!!!