【文字】删除字尾

marting

1. (defun c:xdtb_txtdeltail (/ e inx str index str1 box txt)
   
2.   (defun _callback (dynpt)
   
3.     (redraw)
   
4.     (if        (and (setq e (xdrx-ipmonitor-getnested))
   
5.              (xdrx-object-iskindof (caar e) "acdbtext")
   
6.              (setq inx (XD::Text:IndexAtPoint (caar e) dynpt))
   
7.              (setq box (XD::Text:PointAtIndex (caar e) (nth 1 inx)))
   
8.         )
   
9.       (progn (setq txt         (caar e)
   
10.                    str         (car inx)
    
11.                    index (nth 1 inx)
    
12.              )
    
13.              (xdrx-grdraw 1 -1 (xd::pnts:close box))
    
14.       )
    
15.     )
    
16.   )
    
17.   (xdrx-begin)
    
18.   (xdrx-sysvar-push '("osmode" 545))
    
19.   (xdrx-pointmonitor "_callback")
    
20.   (if (and (setq pt (getpoint "\n拾取字符位置<退出>:"))
    
21.            (< (1+ index) (xdrx-string-length str))
    
22.       )
    
23.     (progn (setq str1 (xdrx-string-mid str 0 index))
    
24.            (setq box (xd::text:pointatindex txt (1+ index)))
    
25.            (xdrx-setpropertyvalue txt "textstring" str1)
    
26.     )
    
27.   )
    
28.   (redraw)
    
29.   (xdrx-pointmonitor)
    
30.   (xdrx-end)
    
31.   (princ)
    
32. )

(defun c:xdtb_txtdeltail (/ e inx str index str1 box txt)<br />   (defun _callback (dynpt)<br />     (redraw)<br />     (if        (and (setq e (xdrx-ipmonitor-getnested))<br />              (xdrx-object-iskindof (caar e) "acdbtext")<br />              (setq inx (XD::Text:IndexAtPoint (caar e) dynpt))<br />              (setq box (XD::Text:PointAtIndex (caar e) (nth 1 inx)))<br />         )<br />       (progn (setq txt         (caar e)<br />                    str         (car inx)<br />                    index (nth 1 inx)<br />              )<br />              (xdrx-grdraw 1 -1 (xd::pnts:close box))<br />       )<br />     )<br />   )<br />   (xdrx-begin)<br />   (xdrx-sysvar-push '("osmode" 545))<br />   (xdrx-pointmonitor "_callback")<br />   (if (and (setq pt (getpoint "\n拾取字符位置<退出>:"))<br />            (< (1+ index) (xdrx-string-length str))<br />       )<br />     (progn (setq str1 (xdrx-string-mid str 0 index))<br />            (setq box (xd::text:pointatindex txt (1+ index)))<br />            (xdrx-setpropertyvalue txt "textstring" str1)<br />     )<br />   )<br />   (redraw)<br />   (xdrx-pointmonitor)<br />   (xdrx-end)<br />   (princ)<br /> )

yangjian001

做一个热心并受欢迎的人