[求助]能否用LISP一次标出多行文字？

TLHMQH

如题，能否用LISP一次标出如下面格式的多行文字？
          XXXX地区XXXX项目
                规划设计图
即标出的是两行或多行文字，对正为正中。
谢谢！

caoyin

多行文本的相关内容比较多，以下比较简单，相关其他设置还需自己去查看帮助

参数依次是：

插入点

自高

文本框参照宽度

对齐方式（1=左上 2=中上 3=右上 4=左中 5=正中 6=右中 7=左下 8=中下 9=右下）

旋转角度

文本内容(换行--> \\P 改变字体的方法-->请自己去摸索)

(defun mtext-make (inspt height recw alsty ang txt)
  (entmake (list '(0 . "MTEXT")
                 '(100 . "AcDbEntity")
                 '(100 . "AcDbMText")
                 (cons 10 inspt)
                 (cons 40 height)
                 (cons 41 recw)
                 (cons 71 alsty)
                 (cons 50 0)
                 '(72 . 5)
                 (cons 1 txt)
            )
  )
)

;;测试

(mtext-make (getpoint)
            200
            3000
            5
            0
            "XXXX地区XXXX项目\\P{\\fSimSun|b0|i0|c134|p2;规划设计图}"
)

TLHMQH

我的意思是用程序把两个DTEXT语句，一次标注在图中指定的位置上，且分两行。

byghbcx

是否这样:

当然,字高、字宽、角度、内容等要满足你自已的要求

(defun test()
(setq pt (getpoint "\n请输入文字插入点"))
(command "_.text" "j" "mc" pt 5.0 0.0 "XXXX地区XXXX项目")
(command "_.text"  "" "规划设计图")
  )

TLHMQH

test 未知命令“TEST”。按 F1 查看帮助

byghbcx

TLHMQH发表于2007-4-11 1:01:00test 未知命令“TEST”。按 F1 查看帮助

你发出这样的回答,以致让我怀疑你是否搞LISP的.应该是(TEST)

TLHMQH

我是把程序代码复制到命令行，出现的上述提示。

引号是CAD的提示，程序的语句我从哪方面看都应该是顺利通过，但却出现了上面的提示。

本来，你的帖子一出来，我就试验了。总不能通过，才再次求教的。