文字图层问题

xiao88gang

这个是单线文字插件，我想在里面加一语句，使插入的文字能够指定到图层4，颜色也随着变为
青色。哪个高手帮忙改一下。


(defun c:tt1 (/ p str)
  (defun txt7 (pt txt)
    (entmake
      (list
        '(0 . "TEXT")
        (cons 10 pt)
        '(40 . 7) ;_字高7
        (cons 1 txt)
      )
    )
    (princ)
  )
  (while (and (setq p (getpoint "\n插入点: "))
              (setq str (getstring t "\n请输入文字: "))
         )
    (txt7 p str)
  )
  Command: (setq layer "2")
  (princ)
)

自贡黄明儒

(list
        '(0 . "TEXT")
        (cons 10 pt)
        '(40 . 7) ;_字高7
       '(8  . "4")
        (cons 1 txt)
      )

xiao88gang

指定到某个图层解决了，可是颜色还是不变，能帮忙再改一下吗？

自贡黄明儒

你用(enget(car(entsel)))查看一下，然后把那个颜色加进去就行了。

前生

(cons 62 4)

xiao88gang

怎么查看，我对这不太懂，帮我写出来可以吗？我加进去，要变为青色的就可以了。

xyp1964

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

(defun c:tt ()<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 . "4")'(62 . 4)(cons 1 str)))<br /> )<br /> (princ)<br /> )

xiao88gang

很好，谢谢，问题解决了，顺便问一下，在这里可以更改字体吗？

FireflyButler

xyp1964 发表于 2016-9-29 13:03

好用好棒好赞~好用好棒好赞~好用好棒好赞~

fangmin723

xyp1964 发表于 2016-9-29 13:03

学习了，非常感谢！！