找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1006|回复: 7

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

[复制链接]
发表于 2005-9-14 21:04:23 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
  1. [FONT=courier new](load "xyp_lib")
  2. ;|加载通用函数(可在签名栏直接下载)
  3. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
  4. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序:
  5. 1.在acad.lsp中增加(load"xyp_lib")
  6. 2.在每个程序内增加(load"xyp_lib")
  7. 3.在command下,输入(load"xyp_lib")
  8. 4.在菜单.mnl中增加(load"xyp_lib")
  9. 5.将xyp_lib.vlx文件直接拽到cad屏幕
  10. [COLOR=red] ★通用函数下载地址:[/COLOR]
  11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
  12. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;

  13. ;;;功能:删除文本的前缀或后缀
  14. ;;;删除前后缀
  15. (defun c:scqhz ()                        ;erase-pre-suf
  16.   (CMDLA0)
  17.   (if (null mode)
  18.     (setq mode "1")
  19.   )
  20.   (setq        mode (UKWORD 7 "1 2" "\n文本删除 : 1-前缀/2-后缀" mode)
  21.         ss   (ssget '((0 . "TEXT")))
  22.         i    -1
  23.   )
  24.   (while (setq s1 (ssname ss (setq i (1+ i))))
  25.     (setq ent (entget s1)
  26.           tx  (dxf 1 ent)
  27.           len (strlen tx)
  28.     )
  29.     (cond ((= mode "1") (main1))
  30.           ((= mode "2") (main2))
  31.     )
  32.   )
  33.   (CMDLA1)
  34. )

  35. (defun main1 ()
  36.   (if (= len 2)
  37.     (progn
  38.       (setq tx1 (substr tx 1 1))
  39.       (if (<= (ASCII tx1) 160)
  40.         (progn
  41.           (setq tx1 (substr tx 2))
  42.           (sub_upd s1 1 tx1)
  43.         )
  44.       )
  45.     )
  46.   )
  47.   (if (> len 2)
  48.     (progn
  49.       (setq tx1 (substr tx 1 1))
  50.       (if (<= (ASCII tx1) 160)
  51.         (setq tx1 (substr tx 2))
  52.         (setq tx1 (substr tx 3))
  53.       )
  54.       (sub_upd s1 1 tx1)
  55.     )
  56.   )
  57. )

  58. (defun main2 ()
  59.   (if (= len 2)
  60.     (progn
  61.       (setq tx1 (substr tx len 1))
  62.       (if (<= (ASCII tx1) 160)
  63.         (progn
  64.           (setq tx1 (substr tx 1 (- len 1)))
  65.           (sub_upd s1 1 tx1)
  66.         )
  67.       )
  68.     )
  69.   )
  70.   (if (> len 2)
  71.     (progn
  72.       (setq tx1 (substr tx len 1))
  73.       (if (<= (ASCII tx1) 160)
  74.         (setq tx1 (substr tx 1 (- len 1)))
  75.         (setq tx1 (substr tx 1 (- len 2)))
  76.       )
  77.       (sub_upd s1 1 tx1)
  78.     )
  79.   )
  80. )
  81. (pxyp "scqhz  (删除前后缀)")
  82. (princ)[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
 楼主| 发表于 2005-9-14 21:04:40 | 显示全部楼层
效果:
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-4-4 11:30:55 | 显示全部楼层
xyp1964  院长大哥,这个程序好象对下面这个情况下删除前后缀没有用:
原文本为:DFG400X320(3.0) ,需要删除 前缀:DFG,后缀:(3.0),能否将您的程序改进一下,谢谢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-4-13 20:48:11 | 显示全部楼层
好东西,加油!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-4-20 10:26:41 | 显示全部楼层
不错,谢谢分享!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-4-30 14:56:54 | 显示全部楼层
好东西。俺也有10爱心币了~~
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-4-30 14:57:53 | 显示全部楼层
试试看  谢谢了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2017-10-21 10:00:53 | 显示全部楼层
试了出错命令: ; 错误: no function definition: PXYP
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 16:17 , Processed in 0.370932 second(s), 45 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表