请问如何查找到文字空格后面的文字并删除空格后的文字

tc405003 · 发表于 2005-9-9 21:52

请问如何查找到带空格的文字并删除空格后的文字如：600X700 KLD这个文字执行LISP后只有600X700删除空格后的KLD

第二个问题：查找到带空格的文字并将空格后的文字另起一行

xyp1964 · 发表于 2005-9-9 22:16

一

(load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
[url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]|;
;;;删除空格后的文字
(defun c:test (/ ss i s1 txt)
(setq ss (ssget '((0 . "*TEXT")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq txt (DXF 1 (entget s1))
leng (strlen txt)
)
(if (setq n (vl-string-search " " txt))
(setq txt (substr txt 1 n))
)
(SUB_UPD s1 1 txt)
)
(princ)
)

tc405003 · 发表于 2005-9-10 23:56

楼主：能否给出SUB—UPD的源程序；我是一个初学者，很想知道如何得来的

ttthhh_hb · 发表于 2005-9-11 00:22

;;; Trims leading and trailing spaces from strings.
(defun ai_strtrim (s)
(cond
((/= (type s) 'str) nil)
(t (ai_strltrim (ai_strrtrim s)))
)
)
(defun ai_strltrim (s)
(cond
((eq s "") s)
((/= " " (substr s 1 1)) s)
(t (ai_strltrim (substr s 2)))
)
)
(defun ai_strrtrim (s)
(cond
((eq s "") s)
((/= " " (substr s (strlen s) 1)) s)
(t (ai_strrtrim (substr s 1 (1- (strlen s)))))
)
)

tc405003 · 发表于 2005-9-12 19:06

我终于搞定了，不过还是要谢谢楼主

账号		自动登录	找回密码
密码			注册