设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

返回列表
楼主: xyp1964

[程序发布] [分享]:【实用程序汇总】test000系列!

  [复制链接]

签到天数: 14 天

连续签到: 1 天

[LV.3]偶尔看看II

发表于 2005-1-30 21:40:32 | 显示全部楼层

请问版主的加括号功能能否再增加一个删除括号的功能
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对
百度谷歌雅虎搜狗搜搜有道360奇虎

使用道具 举报

该用户从未签到

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

使用道具 举报

签到天数: 47 天

连续签到: 1 天

[LV.5]常住居民I

 楼主| 发表于 2005-1-31 00:48:41 | 显示全部楼层
最初由 曹杰 发布
[B]请问版主的加括号功能能否再增加一个删除括号的功能 [/B]

试试:
[PHP];;;删除前后缀括号
;;;前缀支持:([{<({〔《「『〖【
;;;后缀支持:)]}>)}〕》」』〗】
(defun c:test ()
  (cmdla0)
  (setq        a1  (car (entsel "\n请选择文字 : "))
        str (dxf 1 (entget a1))
  )
  (setq        l1   (substr str 1 1)
        l2   (substr str 1 2)
        mode 1
  )
  (vl-cmdf ".undo" "BE")
  (while (= mode 1)
    (txtchg-S)
  )
  (setq        str  (dxf 1 (entget a1))
        l    (strlen str)
        l1   (substr str (- l 0) 1)
        l2   (substr str (- l 1) 2)
        mode 1
  )
  (while (= mode 1)
    (txtchg-E)
  )
  (vl-cmdf ".undo" "E")
  (cmdla1)
)
(defun txtchg-s        ()
  (cond        ((or (= l1 "(") (= l1 "[") (= l1 "{") (= l1 "<"))
         (setq str1 (substr str 2))
         (sub_upd a1 1 str1)
         (setq str (dxf 1 (entget a1))
               l1  (substr str 1 1)
               l2  (substr str 1 2)
         )
         ;|(princ "\nl1 = ")
         (princ l1)
         (princ "\nstr = ")
         (princ str)
         |;
        )
        ((or (= l2 "(")
             (= l2 "〔")
             (= l2 "「")
             (= l2 "『")
             (= l2 "〖")
             (= l2 "【")
             (= l2 "《")
             (= l2 "{")
         )
         (setq str1 (substr str 3))
         (sub_upd a1 1 str1)
         (setq str (dxf 1 (entget a1))
               l1  (substr str 1 1)
               l2  (substr str 1 2)
         )
         ;|(princ "\nl2 = ")
         (princ l2)
         (princ "\nstr = ")
         (princ str)
         |;
        )
        (t (setq mode nil))
  )
)
(defun txtchg-E        ()
  (cond        ((or (= l1 ")") (= l1 "]") (= l1 "}") (= l1 ">"))
         (setq str1 (substr str 1 (- l 1)))
         (sub_upd a1 1 str1)
         (setq str (dxf 1 (entget a1))
               l   (strlen str)
               l1  (substr str (- l 0) 1)
               l2  (substr str (- l 1) 2)
         )                  
        )
        ((or (= l2 ")")
             (= l2 "〕")
             (= l2 "」")
             (= l2 "』")
             (= l2 "〗")
             (= l2 "】")
             (= l2 "》")
             (= l2 "}")
         )
         (setq str1 (substr str 1 (- l 2)))
         (sub_upd a1 1 str1)
         (setq str (dxf 1 (entget a1))
               l   (strlen str)
               l1  (substr str (- l 0) 1)
               l2  (substr str (- l 1) 2)
         )         
        )
        (t (setq mode nil))
  )
)[/PHP]

点评

ngc
看着院长的源码,有很多学习的地方,一直用着院长的工具,  详情 回复 发表于 2014-1-19 08:08
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2005-2-1 12:46:35 | 显示全部楼层
突然感到,很多人做了很多很多重复的编程,浪费了大量大量的精力!!
希望:有誰能将一部分自愿者组织起来,成立专栏组,制定方向,安排谁谁谁编写什么什么,这样才有前途!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

该用户从未签到

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

使用道具 举报

该用户从未签到

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

使用道具 举报

签到天数: 14 天

连续签到: 1 天

[LV.3]偶尔看看II

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

使用道具 举报

该用户从未签到

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

使用道具 举报

该用户从未签到

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

使用道具 举报

签到天数: 1 天

连续签到: 1 天

[LV.1]初来乍到

发表于 2005-2-3 23:58:33 | 显示全部楼层

[原创]

;;;删除所有括号
;;;支持:([{<({〔《「『〖【 )]}>)}〕》」』〗】
;;;(tt "『】12>4】我《们 测』试》" ) ;;->"124我们 测试"
[php]
(defun tt (str)
  (mapcar '(lambda (x)
             (while (vl-string-search x str)
               (setq str (vl-string-subst "" x str))
             )
           )
          '("(" "[" "{" "<" "(" "{" "〔" "《" "「" "『" "〖" "【"
            ")" "]" "}" ">" ")" "}" "〕" "》"        "」" "』" "〗" "】"
           )
  )str
)[/php]
;;;删除前后缀括号
;;;前缀支持:([{<({〔《「『〖【
;;;后缀支持:)]}>)}〕》」』〗】
;;;(tt2 "『12>4】我《们 测』试》" ) ;;->"12>4】我《们 测』试"
;;;(tt2 "{12>4】我《们 测』试]" ) ;;->"12>4】我《们 测』试"
;;;(tt2 "{12>4】我《们 测』试》" ) ;;->"12>4】我《们 测』试"
[php]
(defun tt2 (str / pre1 pre2 pos1 pos2 n)
  (setq pre1 '("(" "[" "{" "<")
        pre2 '("(" "{" "〔" "《" "「" "『" "〖" "【")
        pos1 '(")" "]" "}" ">" )
        pos2 '(")" "}" "〕" "》" "」" "』" "〗" "】"))
  (or (if (member (substr str 1 1) pre1)(setq str (substr str 2)) nil)
      (if (member (substr str 1 2) pre2)(setq str (substr str 3)) nil)
      )
  (setq n (strlen str))
  (or (if (member (substr str n) pos1)(setq str (substr str 1 (- n 1))) nil)
      (if (member (substr str (- n 1)) pos2)(setq str (substr str 1 (- n 2))) nil)
      )
  str
)
[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 47 天

连续签到: 1 天

[LV.5]常住居民I

 楼主| 发表于 2005-2-10 22:29:43 | 显示全部楼层

Re: [原创]

最初由 狂刀 发布
[B];;;删除所有括号
;;;支持:([{<({〔《「『〖【 )]}>)}〕》」』〗】
;;;(tt "『】12>4】我《们 测』试》" ) ;;->"124我们 测试"
[php]
(defun tt (str)
  (mapcar '(lambda (x)
             (while (vl-string-... [/B]

此程序收币可能不合适!呵呵……


★ 主题程序已增加到70个,可到1、2楼下载。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 3 天

连续签到: 1 天

[LV.2]偶尔看看I

发表于 2005-2-17 11:58:59 | 显示全部楼层
最初由 hi71400 发布
[B]突然感到,很多人做了很多很多重复的编程,浪费了大量大量的精力!!
希望:有誰能将一部分自愿者组织起来,成立专栏组,制定方向,安排谁谁谁编写什么什么,这样才有前途!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!... [/B]


是啊,看看AutoCAD、天正、理正、探索者、圆方的程序员多有前途。呵呵。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 47 天

连续签到: 1 天

[LV.5]常住居民I

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

使用道具 举报

该用户从未签到

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

使用道具 举报

该用户从未签到

发表于 2005-2-18 21:26:52 | 显示全部楼层
多重实体过滤的程序,几次都不了了之,能否编一?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

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

辽公网安备 21040202000005号

GMT+8, 2018-5-28 15:54 , Processed in 0.569038 second(s), 126 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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