找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1752|回复: 3

[每日一码] API应用 删除两点间字符

[复制链接]

已领礼包: 593个

财富等级: 财运亨通

发表于 2013-12-8 15:07:04 | 显示全部楼层 |阅读模式

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

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

×
没有解决控制符(%%U %%O)
  1. (defun c:tt (/ e p1 p2 str nstr)
  2.   (if (and (setq e (car (xdrx_entsel "\n选择文字: " '((0 . "text")))))
  3.            (setq p1 (getpoint "\n第一点: "))
  4.       )
  5.     (progn
  6.       (setq p2 (getpoint p1 "\n对角点: "))
  7.       (XD::Begin)
  8.       (setq str         (xdrx_getpropertyvalue e "Textstring")
  9.             nstr (XD::Text:StringBetween e p1 p2)
  10.       )
  11.       (princ nstr)
  12.       (setq nstr (xdrx_string_replace str nstr ""))
  13.       (xdrx_setpropertyvalue e "Textstring" nstr)
  14.       (XD::End)
  15.     )
  16.   )
  17.   (princ)
  18. )
delstr.gif
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 2221个

财富等级: 金玉满堂

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

使用道具 举报

已领礼包: 1345个

财富等级: 财源广进

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

使用道具 举报

已领礼包: 7个

财富等级: 恭喜发财

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-22 01:17 , Processed in 0.172854 second(s), 37 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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