文本前加"T"

xiao88gang

这个是单线文本插件，能否加一语句。就是我想在输入的文本前自动加个T
比如我输入的是123456    自动变为T123456
(defun c:tt ()
  (setvar "osmode" (+ 0))
(while (and (setq p (getpoint "\n插入点: "))
             (setq str (getstring t "\n请输入文字: "))
        )
   (entmake (list '(0 . "TEXT") (cons 10 p)'(40 . 7)'(8 . "0")'(62 . 4)(cons 1 str)))
)
(princ)
)

自贡黄明儒

(cons 1 (strcat "T" str))

xiao88gang

试了一个，好像不能用，是我加的位置不对吗？能帮添加好发一吗？

Sylvanas

2. (defun c:tt ()
   
3.   (setvar "osmode" (+ 0))
   
4. (while (and (setq p (getpoint "\n插入点: "))
   
5.              (setq str (getstring t "\n请输入文字: "))
   
6.         )
   
7.    (entmake (list '(0 . "TEXT") (cons 10 p)'(40 . 7)'(8 . "0")'(62 . 4)(cons 1 (strcat "T" str))))
   
8. )
   
9. (princ)
   
10. )
    
11. 
    

(defun c:tt ()<br />   (setvar "osmode" (+ 0))<br /> (while (and (setq p (getpoint "\n插入点: "))<br />              (setq str (getstring t "\n请输入文字: "))<br />         )<br />    (entmake (list '(0 . "TEXT") (cons 10 p)'(40 . 7)'(8 . "0")'(62 . 4)(cons 1 (strcat "T" str))))<br /> )<br /> (princ)<br /> )<br /> <br />

xiao88gang

非常感谢，太谢谢了。