如何用lisp添加多行文字

liu67961675 · 发表于 2020-3-29 21:20:14

如何用lisp在CAD中添加多行文字，求各位老哥帮帮忙
界面我写完了。主要是后端，如何把多行文字写出来。当用户输入完数据后，点击确定，就能显示出多行文字
翅片高度、翅片节距就是用户输入的数字

liu67961675 · 发表于 2020-3-29 22:05:26

求各位大佬帮帮忙

烟盒迷唇 · 发表于 2020-3-30 09:16:32

用Entmake或者command写啊

执骨哟 · 发表于 2020-9-9 16:24:31

(setq a1 "G"
a2 "40");定义a1为G，a2为40
(command "mtext" (list 0,0) "W" "0" "a1" "a2" "")；调用多行文字命令，输入坐标点0,0 输入宽度0，输入数值a1，a2
刚好在做类似的程序，不过也遇到了瓶颈，一起探讨一下。
多行文字中无法使a1和a2合并在同一行，目前这段写出来是
G
40
实际我想要的结果是G40，希望有大能支援一手

执骨哟 · 发表于 2020-9-9 16:36:21

=-=忘记正题了，以下是楼主需要的程序，换行问题一起商讨解决吧

(defun c:xx()
(setq osm (getvar "osmode"))
(setvar "osmode" 16383)
(setq a1 "1.0"
a2 "2.0"
a3 "3.0"
a4 "4.0"
zb1 (list 0 0)
)
(command "mtext" zb1 "W" "0" "传热系数为:" "a1" "翅片节距为:" "a2" "经计算传热面基为:" "a3" "传热系数为:" "a4" "")
(princ)
)

附图file:///C:/Users/%E6%89%A7%E9%AA%A8%E5%93%9F/Desktop/%E5%BE%AE%E4%BF%A1%E5%9B%BE%E7%89%87_20200909163352.png

执骨哟 · 发表于 2020-9-9 16:37:54

本帖最后由执骨哟于 2020-9-9 16:41 编辑

执骨哟发表于 2020-9-9 16:36
=-=忘记正题了，以下是楼主需要的程序，换行问题一起商讨解决吧

附图

=-=忘记正题了，以下是楼主需要的程序，换行问题一起商讨解决吧

(defun c:xx()
(setq osm (getvar "osmode"))
(setvar "osmode" 16383)
(setq a1 "1.0"
a2 "2.0"
a3 "3.0"
a4 "4.0"
zb1 (list 0 0)
)
(command "mtext" zb1 "W" "0" "传热系数为:" a1 "翅片节距为:" a2 "经计算传热面基为:" a3 "传热系数为:" a4 "")
(princ)
)

附图：

执骨哟 · 发表于 2020-9-9 17:20:17

可以参考链接http://bbs.mjtd.com/thread-182266-1-1.html
这是我发起的求助帖，可以在这里跟进各位大神对此代码的修正

账号		自动登录	找回密码
密码			注册

[提问] 如何用lisp添加多行文字

本帖子中包含更多资源

本帖子中包含更多资源