xiao88gang 发表于 2016-9-30 12:59:47

文本前加"T"

这个是单线文本插件，能否加一语句。就是我想在输入的文本前自动加个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)
)

自贡黄明儒 发表于 2016-9-30 13:12:04

(cons 1 (strcat "T" str))

xiao88gang 发表于 2016-9-30 13:23:57

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

Sylvanas 发表于 2016-9-30 13:52:32

(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 (strcat "T" str))))
)
(princ)
)

xiao88gang 发表于 2016-9-30 14:01:32

非常感谢，太谢谢了。
页: [1]
查看完整版本: 文本前加"T"