[编程申请]：求LSP程序：文字处理

lengliqun

求LSP程序：文字处理，LSP1 删除所选文字最后一个空格及这个空格后的所有内容(可多选)；
            LSP2 删除所选文字第一个空格及这个空格前的所有内容(可多选)。谢谢。

不好意思，为使我的表达更明白，我、更改为：
文字处理，LSP1 删除所选文字最后一个字符M及M后的所有内容(可多选)；如12344567M89则运行您的LSP后变成1234567
            LSP2 删除所选文字第一个字符M及M前的所有内容(可多选)，如12344567M89则运行您的LSP后变成89。要求特征字符M含在你的LSP程序中，我可将其改成其它字符如空格等，还有请编在两个LSP程序中，不用选1向前选2向后等。谢谢。

li809

我也需要这样的工具
可以扩展为不一定是空格后面的可以是某一个字符或元素后面的

xyp1964

[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

;;;删除文本中特定字符前后内容
(defun c:test081 (/ kw-len a1 str-len m lq str1)
  (cmdla0)
  (setq KW (ukword 1 "1 2" "\n删除方向1-向前/2-向后" KW))
  (setq        txt1   (ustr 1 "\n\t查找字符" txt1 nil)
        kw-len (strlen txt1)       
  )  
  (setq        a1  (car (entsel "\n请选择文字 : "))
        str (dxf 1 (entget a1))
        str-len (strlen str)
  )
  (setq        m  1
        l1 (substr str m kw-len)
  )
  (vl-cmdf ".undo" "BE")
  (while (and (/= l1 txt1) (/= l1 "") (< (+ m kw-len) str-len))
    (setq m  (1+ m)
          l1 (substr str m kw-len)
    )
  )
  (if (= l1 txt1)
    (progn
      (cond ((= kw "1")
             (setq str1 (substr str (+ m kw-len)))
            )
            ((= kw "2")
             (setq str1 (substr str 1 (- m 1)))
            )
      )
      (sub_upd a1 1 str1)
    )
  )
  (vl-cmdf ".undo" "E")
  (cmdla1)
)
[/php]