（完成）[编程申请]：删除字符串中第一个字符 n 及其以前的字符

lengliqun

求LSP程序：删除字符串中第一个字符　n　及其以前的字符(默认全选，能框选)。谢谢。
如  00236nhtrth5  　变成　　htrth5

zxq0220

程序：

2. 
   
3. ;删除字符串中第一个字符　n　及其以前的字符
   
4. (DEFUN C:DELFN ()
   
5. (PRINC "\nSelect Text :")
   
6. (IF (SETQ SS (SSGET '((0 . "TEXT") (1 . "*n*")))) (PROGN
   
7. (SETQ SL (SSLENGTH SS) I 0)
   
8. (REPEAT SL
   
9.   (SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I)
   
10.         STR (CDR (ASSOC 1 ENT))
    
11.         STR1 STR
    
12.         STL (STRLEN STR)
    
13.         J 1)
    
14.   (WHILE (AND (<= J STL) (/= (SUBSTR STR J 1) "n")) (SETQ J (1+ J)))
    
15.   (SETQ STR1 (SUBSTR STR (1+ J))
    
16.         ENT (SUBST (CONS 1 STR1) (CONS 1 STR) ENT))
    
17.   (ENTMOD ENT)
    
18. )
    
19. ))
    
20. (PRINC)
    
21. )
    

<br /> ;删除字符串中第一个字符　n　及其以前的字符<br /> (DEFUN C:DELFN ()<br /> (PRINC "\nSelect Text :")<br /> (IF (SETQ SS (SSGET '((0 . "TEXT") (1 . "*n*")))) (PROGN<br /> (SETQ SL (SSLENGTH SS) I 0)<br /> (REPEAT SL<br />   (SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I)<br />         STR (CDR (ASSOC 1 ENT))<br />         STR1 STR<br />         STL (STRLEN STR)<br />         J 1)<br />   (WHILE (AND (<= J STL) (/= (SUBSTR STR J 1) "n")) (SETQ J (1+ J)))<br />   (SETQ STR1 (SUBSTR STR (1+ J))<br />         ENT (SUBST (CONS 1 STR1) (CONS 1 STR) ENT))<br />   (ENTMOD ENT)<br /> )<br /> ))<br /> (PRINC)<br /> )<br />

eachy

2. ;;删除字符串中第一个字符　n　及其以前的字符
   
3. (vl-load-com)
   
4. (defun c:delfn (/ ss sl el str n nstr)
   
5.   (princ "\nselect text :")
   
6.   (if (setq ss (ssget '((0 . "text") (1 . "*n*"))))
   
7.     (progn
   
8.       (setq sl (sslength ss))
   
9.       (while (> sl 0)
   
10.         (setq el  (entget (ssname ss (setq sl (1- sl))))
    
11.               str  (cdr (assoc 1 el))
    
12.               n           (vl-string-search "n" str);用 vl-string  部分函数
    
13.               nstr (substr str (+ n 2))
    
14.         )
    
15.         (entmod (subst (cons 1 nstr) (assoc 1 el) el))
    
16.       )
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )

;;删除字符串中第一个字符　n　及其以前的字符<br /> (vl-load-com)<br /> (defun c:delfn (/ ss sl el str n nstr)<br />   (princ "\nselect text :")<br />   (if (setq ss (ssget '((0 . "text") (1 . "*n*"))))<br />     (progn<br />       (setq sl (sslength ss))<br />       (while (> sl 0)<br />         (setq el  (entget (ssname ss (setq sl (1- sl))))<br />               str  (cdr (assoc 1 el))<br />               n           (vl-string-search "n" str);用 vl-string  部分函数<br />               nstr (substr str (+ n 2))<br />         )<br />         (entmod (subst (cons 1 nstr) (assoc 1 el) el))<br />       )<br />     )<br />   )<br />   (princ)<br /> )

lengliqun

测试后，zxq0220 的LSP可用，可运行eachy 斑竹的lsp后没动静，不知何故。