[求助]关于帮帮看看cad生成计算式的autolisp例子

hhaoma

2. (defun c:e()
3. (setq a (getpoint "\n 请选择第一点:"))
4. (setq b (getpoint "\n 请选择第二点:"))
5. (setq c (getpoint "\n 请选择第三点:"))
6. (setq dist1(getstring "\n 请输入楼层数:"))
7. (setq e (* (distance a b)))
8. (princ "\n")
9. (princ e)
10. (princ "*")
11. (setq f (* (distance b c)))
12. (princ "*")
13. (princ dist1)
15. )

(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

有高手帮帮修改下程序吗？谢谢啊

Andyhon

(defun c:e ()
  (setq a (getpoint "\n 请选择第一点:"))
  (setq b (getpoint "\n 请选择第二点:"))
  (setq c (getpoint "\n 请选择第三点:"))
  (setq dist1 (getstring "\n 请输入楼层数:"))
  ;; (setq e (* (distance a b)))
  (setq e (distance a b))
  (princ "\n")
  (princ e)
  (princ "*")
  (princ (distance b c))
  (princ "*")
  (princ dist1)
  (princ)
)