【文字】删除字首

marting

1. (defun c:xdtb_txtdelfirst (/ e inx txt box box1 str index str1)
   
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 (1+ index)))
    
24.            (setq box (xdrx-getpropertyvalue txt "textbox" t))
    
25.            (xdrx-setpropertyvalue txt "textstring" str1)
    
26.            (setq box1 (xdrx-getpropertyvalue txt "textbox" t))
    
27.            (xdrx-entity-move txt
    
28.              (nth 1 box1)
    
29.              (nth 1 box)
    
30.            )
    
31.     )
    
32.   )
    
33.   (redraw)
    
34.   (xdrx-pointmonitor)
    
35.   (xdrx-end)
    
36.   (princ)
    
37. )
    

(defun c:xdtb_txtdelfirst (/ e inx txt box box1 str index str1)<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 (1+ index)))<br />            (setq box (xdrx-getpropertyvalue txt "textbox" t))<br />            (xdrx-setpropertyvalue txt "textstring" str1)<br />            (setq box1 (xdrx-getpropertyvalue txt "textbox" t))<br />            (xdrx-entity-move txt<br />              (nth 1 box1)<br />              (nth 1 box)<br />            )<br />     )<br />   )<br />   (redraw)<br />   (xdrx-pointmonitor)<br />   (xdrx-end)<br />   (princ)<br /> )<br />

既然青春留不住