如何使用Lisp 创建-MTEXT 多行文字

张大锤

在CAD中 使用 -MTEXT 创建文字
(command "-MTEXT"
很难找到办法控制 如何创建 比如文字：画圆    正方形   多边形


请问论坛里的朋友们 有人使用过这个命令吗？
我CAD使用-mtext 创建文字的时候 字高不受控制 我输入175 但是出来的大小还是4000 而且背景要什么开启，，， 感觉要疯掉了
想请问如何用lisp 创建-MTEXT


(setq ss(SSGET))
(setq p10 (cdr (assoc 10 (entget (ssname ss 0)))))
(setq pA (polar p10 (angtof "0") 100))
(setq zl1 (list "画圆 1" "画圆 2" "画圆 3"))
(setq zl2 (list "正方形 1" "正方形 2" "正方形 3"))
(setq zl3 (list "多边形" "多边形" "多边形"))
(setq ssA (polar pA (* 2 pi) 300))
(command "-mtext" pA ssA  zl1 。。。。。。
完全创建不出来
-mtex这个命令的格式 是什么样的 有朋友知道吗？百度了半天

Linhay

试试用entmake，更直观

evayleung

(command "-mtext" "0,0" "1000,500" "ABCDED" "")
随便输入一个，能够生成文字啊。我是CAD2007，建议检查一下默认的字体之类的东西。
如果不想麻烦，就得按楼上说的，用entmake来生成吧，这样直观多了。

ysq101

http://bbs.mjtd.com/thread-109759-1-1.html
entmake是个好东东...LISP一定要学会这个涵数

张大锤

ysq101 发表于 2018-6-25 22:57
http://bbs.mjtd.com/thread-109759-1-1.html
entmake是个好东东...LISP一定要学会这个涵数

。。。我一定学会 这个函数 不枉费你按个帖子告诉我

ysq101

张大锤 发表于 2018-6-26 08:17
。。。我一定学会 这个函数 不枉费你按个帖子告诉我

一向喜欢好爱之士....我也是论坛大佬们手把手教的.
将这正能量传递下去.虽然我能帮你的不多