怎样用autolisp编写一段简单的程序，把计算的结果，就是得数写在cad的绘图区域？

Question

比如：编写一个简单的算式：1+2=?，当程序通过计算后得3，这个3的数值我想把它直接用鼠标点击cad的绘图区的任意点，把3写在上面。如何实现？

Answer 1

用 command 命令即可 下面是我随手输入的 你自己调试一下
(defun c:cla()
(setvar "cmdecho" 0)
(setq SS (+ 1 2))
(command "text" (getpoint "point:") "" "" ss )
(princ)
)

Answer 2

可以这样
(setq p(getpoint"取点"))
(setq a(+ 1 2))
(command "text" p "25" "" a"") 25为子大小，可以随意
把上面的放入一个循环中像repeat或while什么的，每循环一次就提示要取一次点，画一次text
如果是要输出"1+2=3" 那么就要进行(setq a(strcat "1+2=3" (rtos a 2 1)))是字符串的连接再进行
(command "text" p "25" "" a"")