设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃资源交流 › 技术问答【悬赏求助】 › 求一个能在文字两端加（）的小插件
返回列表 发新帖
查看: 2969|回复: 7

[已解决] 求一个能在文字两端加（）的小插件

[复制链接]
495354542
发表于 2016-3-12 10:28:14 | 显示全部楼层 |阅读模式
悬赏20D豆已解决
哪位大神帮我写写这个小插件，谢谢！！
E5$CQ)R7~5M74QF~0EII2FH.png

最佳答案

HLCAD

查看完整内容

;;; 给你一个纯可独立使用的程序: (defun c:tt1 (/ ss) (while (setq ss (ssget ":s:n" '((0 . "text")))) (foreach x (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))) (setq x (entget x)) (setq x (subst (cons 1 (strcat "(" (cdr (assoc 1 x)) ")")) (assoc 1 x) x)) (entmod x) ) ) (princ) )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

HLCAD

已领礼包: 5675个

财富等级: 富甲天下
发表于 2016-3-12 10:28:15 | 显示全部楼层
;;; 给你一个纯可独立使用的程序:
(defun c:tt1 (/ ss)
  (while (setq ss (ssget ":s:n" '((0 . "text"))))
    (foreach x (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
      (setq x (entget x))
      (setq x (subst (cons 1 (strcat "(" (cdr (assoc 1 x)) ")")) (assoc 1 x) x))
      (entmod x)
      )
    )
  (princ)
  )

点评

495354542
谢谢大哥  详情 回复 发表于 2016-3-13 23:40

评分

参与人数 1D豆 +5 收起 理由
newer + 5

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

eachy

已领礼包: 593个

财富等级: 财运亨通
发表于 2016-3-12 15:58:54 | 显示全部楼层
(defun c:tt (/ ss)
   (if (setq ss (ssget '((0 . "text"))))
           (foreach x (xdrx_pickset->ents ss) (xdrx_text_setstring x (strcat "(" (xdrx_text_string x) ")")))
   )
   (princ)
)

点评

495354542
哥，好像不行啊  详情 回复 发表于 2016-3-12 18:00
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

495354542
 楼主| 发表于 2016-3-12 18:00:45 | 显示全部楼层
eachy 发表于 2016-3-12 15:58
(defun c:tt (/ ss)
   (if (setq ss (ssget '((0 . "text"))))
           (foreach x (xdrx_pickset->e ...

哥，好像不行啊  

点评

newer
下载 xdrx api 加载后，运行上面代码  详情 回复 发表于 2016-3-12 23:56
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2016-3-12 23:56:53 | 显示全部楼层
495354542 发表于 2016-3-12 18:00
哥，好像不行啊

下载  xdrx api 加载后，运行上面代码

点评

495354542
噢噢 我没有下载那个，还是谢谢您！  详情 回复 发表于 2016-3-13 23:39
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

495354542
 楼主| 发表于 2016-3-13 23:39:23 | 显示全部楼层
newer 发表于 2016-3-12 23:56
下载  xdrx api 加载后，运行上面代码

噢噢 我没有下载那个，还是谢谢您！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

495354542
 楼主| 发表于 2016-3-13 23:40:29 | 显示全部楼层
HLCAD 发表于 2016-3-13 19:08
;;; 给你一个纯可独立使用的程序:
(defun c:tt1 (/ ss)
  (while (setq ss (ssget ":s:n" '((0 . "text") ...

谢谢大哥
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

wangxf888

已领礼包: 14个

财富等级: 恭喜发财
发表于 2016-5-24 16:58:46 | 显示全部楼层
挺实用的  这几天就在收集整理
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2025-9-20 07:15 , Processed in 0.199194 second(s), 52 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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