[求助]关于帮帮看看cad生成计算式的autolisp例子
(defun c:e()(setq a (getpoint "\n 请选择第一点:"))
(setq b (getpoint "\n 请选择第二点:"))
(setq c (getpoint "\n 请选择第三点:"))
(setq dist1(getstring "\n 请输入楼层数:"))
(setq e (* (distance a b)))
(princ "\n")
(princ e)
(princ "*")
(setq f (* (distance b c)))
(princ "*")
(princ dist1)
)如果e等于3.4，f等于4，dist1为输入的整数（假设输入为6)。
如何让程序显示
3.4*4*6
有高手帮帮修改下程序吗？谢谢啊
<font style="BACKGROUND-COLOR: #ffffff" face="Verdana">(defun c:e ()<br/> (setq a (getpoint "\n 请选择第一点:"))<br/> (setq b (getpoint "\n 请选择第二点:"))<br/> (setq c (getpoint "\n 请选择第三点:"))<br/> (setq dist1 (getstring "\n 请输入楼层数:"))<br/> ;; (setq e (* (distance a b)))<br/> (setq e (distance a b))<br/> (princ "\n")<br/> (princ e)<br/> (princ "*")<br/> (princ (distance b c))<br/> (princ "*")<br/> (princ dist1)<br/> (princ)<br/>)</font>
页:
[1]