求一个能在文字两端加（）的小插件

495354542 · 发表于 2016-3-12 10:28:14

哪位大神帮我写写这个小插件，谢谢！！

HLCAD · 发表于 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)
  )

eachy · 发表于 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:45

eachy 发表于 2016-3-12 15:58
(defun c:tt (/ ss)
(if (setq ss (ssget '((0 . "text"))))
(foreach x (xdrx_pickset->e ...

哥，好像不行啊

newer · 发表于 2016-3-12 23:56:53

495354542 发表于 2016-3-12 18:00
哥，好像不行啊

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

495354542 · 发表于 2016-3-13 23:39:23

newer 发表于 2016-3-12 23:56
下载 xdrx api 加载后，运行上面代码

噢噢我没有下载那个，还是谢谢您！

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") ...

谢谢大哥

wangxf888 · 发表于 2016-5-24 16:58:46

挺实用的这几天就在收集整理

账号		自动登录	找回密码
密码			立即注册

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

最佳答案

点评

评分

点评

点评

点评