求一个在文字前加字母“T”的小插件

495354542

由于工作需要，在结构施工图时经常用到在钢筋符号添加一个“T”字，虽然说双击进行编辑然后加T也没什么问题，但是总觉得这样比较慢，想通过小插件实现在钢筋文字前加字母“T”，希望各位高手帮帮忙。

st788796

2. (defun c:tt (/ ss e)
   
3.   (if (setq ss (ssget '((0 . "text"))))
   
4.     (progn
   
5.       (xdrx_setsstodb ss 0)
   
6.       (while (setq e (xdrx_getentdata 0))
   
7.         (xdrx_modent 1 (strcat "T" (xdrx_getentdxf 1)))
   
8.       )
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )

(defun c:tt (/ ss e)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br />         (xdrx_modent 1 (strcat "T" (xdrx_getentdxf 1)))<br />       )<br />     )<br />   )<br />   (princ)<br /> )

2. 
   
3. (defun c:tt (/ ss sl e el)
   
4.   (if (setq ss (ssget '((0 . "text"))))
   
5.     (progn
   
6.       (setq sl (sslength ss))
   
7.       (while (setq e (ssname ss (setq sl (1- sl))))
   
8.         (setq el (entget e))
   
9.         (entmod        (subst (cons 1 (strcat "T" (cdr (assoc 1 el))))
   
10.                        (assoc 1 el)
    
11.                        el
    
12.                 )
    
13.         )
    
14.       )
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )

<br /> (defun c:tt (/ ss sl e el)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (setq sl (sslength ss))<br />       (while (setq e (ssname ss (setq sl (1- sl))))<br />         (setq el (entget e))<br />         (entmod        (subst (cons 1 (strcat "T" (cdr (assoc 1 el))))<br />                        (assoc 1 el)<br />                        el<br />                 )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

495354542

st788796 发表于 2016-1-31 15:50

感谢高手，可以了！！！

laofuzi0429

呵呵，真是牛人，为了个 T 竟然用插件。

zhouguangfeng

这个插件怎么用呢，我也想用谢谢

那一抹微笑

额，这个能不能修改为在分号“；”后面加T啊

江边的风