xiao88gang 发表于 2016-9-29 12:25:05

文字图层问题

这个是单线文字插件，我想在里面加一语句，使插入的文字能够指定到图层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)
)

自贡黄明儒 发表于 2016-9-29 12:35:26

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

xiao88gang 发表于 2016-9-29 12:45:49

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

自贡黄明儒 发表于 2016-9-29 12:48:03

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

前生 发表于 2016-9-29 12:49:41

(cons 62 4)

xiao88gang 发表于 2016-9-29 12:52:31

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

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

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

xiao88gang 发表于 2016-9-29 13:08:57

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

FireflyButler 发表于 2016-10-21 17:37:30

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


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

fangmin723 发表于 2016-10-21 22:44:12

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


学习了，非常感谢！！
页: [1]
查看完整版本: 文字图层问题