[编程交流] 单行文字

(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) )