社区 › AutoCAD工具插件 › 请问如何把这个插件，改成多行文字？

aws 发表于 2022-12-29 18:54:13

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

(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 发表于 2022-12-29 21:32:28

(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 发表于 2022-12-30 10:55:07

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


为什么是这个样子

aws 发表于 2022-12-30 22:24:11

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

469229020@QQ.CO 发表于 2022-12-31 16:27:23

这个功能有什么作用呢？

aws 发表于 2022-12-31 16:53:45

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

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

查看完整版本: 请问如何把这个插件，改成多行文字？