请问如何把这个插件，改成多行文字？

aws

(defun c:tt()
        (defun *error* (msg)(setvar "osmode" os0))
        (setvar "cmdecho" 0)
        (setq zg (getdist "\n输入文字高度<150>:"))
        (if (null zg)(setq zg 150))
        (setq os0 (getvar "osmode"))
        (setq xmnr "双击编辑文字内容")
        (setvar "osmode" (+ os0 16384))
        (setq fzjd (getpoint "\n选择放置基点："))
        (entmake (list '(0 . "text") (cons 1 xmnr) (cons 8 "0") (cons 7 "standard") (cons 41 0.7) (cons 72 0)(cons 73 1) (cons 10 fzjd) (cons 11 fzjd) (cons 40 zg )))
        (entmake)
        (setvar "osmode" os0)
        (setvar "cmdecho" 1)
        (princ)
)


这个是插入一个单行文字，我发现再次编辑的时候，不太好编辑字体（比如改成楷体，黑体之类的），想把它改成多行文字，请问改哪里呢？

zj20190405

(defun c:tt ()
  (defun *error* (msg) (setvar "osmode" os0))
  (setvar "cmdecho" 0)
  (setq zg (getdist "\n输入文字高度<150>:"))
  (if (null zg)
    (setq zg 150)
  )
  (setq os0 (getvar "osmode"))
  (setq xmnr "双击编辑文字内容")
  (setvar "osmode" (+ os0 16384))
  (setq fzjd (getpoint "\n选择放置基点："))
  (entmake (list '(0 . "MTEXT")
                 '(100 . "AcDbEntity")
                 '(100 . "AcDbMText")
                 '(71 . 5)
                 (cons 1 xmnr)
                 (cons 8 "0")
                 (cons 7 "standard")
                 (cons 41 0.7)
                 (cons 72 0)
                 (cons 73 1)
                 (cons 10 fzjd)
                 (cons 11 fzjd)
                 (cons 40 zg)
           )
  )
;;;        (entmake)
  (setvar "osmode" os0)
  (setvar "cmdecho" 1)
  (princ)
)

aws

zj20190405 发表于 2022-12-29 21:32
(defun c:tt ()
  (defun *error* (msg) (setvar "osmode" os0))
  (setvar "cmdecho" 0)

为什么是这个样子

aws

找到原因了，把   (cons 11 fzjd)，删掉就行了

469229020@QQ.CO

这个功能有什么作用呢？

aws

469229020@QQ.CO 发表于 2022-12-31 16:27
这个功能有什么作用呢？

需要就有用，不需要就感觉没用。。。哈哈