单行文字
我需要一个lisp来使用DT命令，当用户按enter键时，没有新行开始，命令结束，我应该怎么做？绝对不知道 没关系，明白了。我应该让用户按enter键两次 如果你仍然感兴趣，这里有一个程序来实现你的要求。(defun Text (pt hgt str)
(entmakex (list (cons 0 "TEXT")
(cons 10 pt)
(cons 11 pt)
(cons 40 hgt)
(cons 72 0) ; lower left justified
(cons 1 str)))
)
(defun c:dtxx (/ *ERROR* osave c txtstr txtsz)
(defun *ERROR* (msg)
(setvar "OSMODE" osave)
(princ)
)
(setq osave (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq txtsz (getvar "TEXTSIZE"))
(setq c (getpoint "\nSelect location: "))
(initget 129)
(setq txtstr (getstring T "\nText: "))
(terpri)
(terpri)
(Text c txtsz txtstr)
(setvar "OSMODE" osave)
(princ) )
旋转角度为默认值（零），使用当前文字大小。当然，您可以添加代码以从用户那里获取这些值。
页:
[1]