[分享]：删除文本的前缀或后缀

xyp1964

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
    
14. 
    
15. ;;;功能：删除文本的前缀或后缀
    
16. ;;;删除前后缀
    
17. (defun c:scqhz ()                        ;erase-pre-suf
    
18.   (CMDLA0)
    
19.   (if (null mode)
    
20.     (setq mode "1")
    
21.   )
    
22.   (setq        mode (UKWORD 7 "1 2" "\n文本删除 : 1-前缀/2-后缀" mode)
    
23.         ss   (ssget '((0 . "TEXT")))
    
24.         i    -1
    
25.   )
    
26.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
27.     (setq ent (entget s1)
    
28.           tx  (dxf 1 ent)
    
29.           len (strlen tx)
    
30.     )
    
31.     (cond ((= mode "1") (main1))
    
32.           ((= mode "2") (main2))
    
33.     )
    
34.   )
    
35.   (CMDLA1)
    
36. )
    
37. 
    
38. (defun main1 ()
    
39.   (if (= len 2)
    
40.     (progn
    
41.       (setq tx1 (substr tx 1 1))
    
42.       (if (<= (ASCII tx1) 160)
    
43.         (progn
    
44.           (setq tx1 (substr tx 2))
    
45.           (sub_upd s1 1 tx1)
    
46.         )
    
47.       )
    
48.     )
    
49.   )
    
50.   (if (> len 2)
    
51.     (progn
    
52.       (setq tx1 (substr tx 1 1))
    
53.       (if (<= (ASCII tx1) 160)
    
54.         (setq tx1 (substr tx 2))
    
55.         (setq tx1 (substr tx 3))
    
56.       )
    
57.       (sub_upd s1 1 tx1)
    
58.     )
    
59.   )
    
60. )
    
61. 
    
62. (defun main2 ()
    
63.   (if (= len 2)
    
64.     (progn
    
65.       (setq tx1 (substr tx len 1))
    
66.       (if (<= (ASCII tx1) 160)
    
67.         (progn
    
68.           (setq tx1 (substr tx 1 (- len 1)))
    
69.           (sub_upd s1 1 tx1)
    
70.         )
    
71.       )
    
72.     )
    
73.   )
    
74.   (if (> len 2)
    
75.     (progn
    
76.       (setq tx1 (substr tx len 1))
    
77.       (if (<= (ASCII tx1) 160)
    
78.         (setq tx1 (substr tx 1 (- len 1)))
    
79.         (setq tx1 (substr tx 1 (- len 2)))
    
80.       )
    
81.       (sub_upd s1 1 tx1)
    
82.     )
    
83.   )
    
84. )
    
85. (pxyp "scqhz  (删除前后缀)")
    
86. (princ)[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;<br /> <br /> ;;;功能：删除文本的前缀或后缀<br /> ;;;删除前后缀<br /> (defun c:scqhz ()                        ;erase-pre-suf<br />   (CMDLA0)<br />   (if (null mode)<br />     (setq mode "1")<br />   )<br />   (setq        mode (UKWORD 7 "1 2" "\n文本删除 : 1-前缀/2-后缀" mode)<br />         ss   (ssget '((0 . "TEXT")))<br />         i    -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq ent (entget s1)<br />           tx  (dxf 1 ent)<br />           len (strlen tx)<br />     )<br />     (cond ((= mode "1") (main1))<br />           ((= mode "2") (main2))<br />     )<br />   )<br />   (CMDLA1)<br /> )<br /> <br /> (defun main1 ()<br />   (if (= len 2)<br />     (progn<br />       (setq tx1 (substr tx 1 1))<br />       (if (<= (ASCII tx1) 160)<br />         (progn<br />           (setq tx1 (substr tx 2))<br />           (sub_upd s1 1 tx1)<br />         )<br />       )<br />     )<br />   )<br />   (if (> len 2)<br />     (progn<br />       (setq tx1 (substr tx 1 1))<br />       (if (<= (ASCII tx1) 160)<br />         (setq tx1 (substr tx 2))<br />         (setq tx1 (substr tx 3))<br />       )<br />       (sub_upd s1 1 tx1)<br />     )<br />   )<br /> )<br /> <br /> (defun main2 ()<br />   (if (= len 2)<br />     (progn<br />       (setq tx1 (substr tx len 1))<br />       (if (<= (ASCII tx1) 160)<br />         (progn<br />           (setq tx1 (substr tx 1 (- len 1)))<br />           (sub_upd s1 1 tx1)<br />         )<br />       )<br />     )<br />   )<br />   (if (> len 2)<br />     (progn<br />       (setq tx1 (substr tx len 1))<br />       (if (<= (ASCII tx1) 160)<br />         (setq tx1 (substr tx 1 (- len 1)))<br />         (setq tx1 (substr tx 1 (- len 2)))<br />       )<br />       (sub_upd s1 1 tx1)<br />     )<br />   )<br /> )<br /> (pxyp "scqhz  (删除前后缀)")<br /> (princ)[/FONT]

xyp1964

效果：

faith66

xyp1964  院长大哥,这个程序好象对下面这个情况下删除前后缀没有用:
原文本为:DFG400X320(3.0) ,需要删除 前缀:DFG,后缀:(3.0),能否将您的程序改进一下,谢谢

sdaulj

好东西，加油！

ahaqwyf

不错，谢谢分享！

hcsh

好东西。俺也有10爱心币了~~

qiao0430

试试看  谢谢了

ccc230

试了出错命令: ; 错误: no function definition: PXYP