ALERT用法正确否

aicr317

(defun c:123 ()

 (setq a (getdist "\请输入管道外径(MM):"))
 (setq b (getdist "\请输入保温厚度(MM):"))
 (setq c (getdist "\请输入管道长度(M):"))
 (setq d (* 3.14159265 (+ a b b) c 0.001))
 (alert d))

想要把d的值以提示框的形式显示出来，怎么改！高手别见笑！终于有时间从头学起！

AMTONNY

(Alert (strcat "" (rtos d))

aicr317

xiexie

zhanzhe

aicr317发表于2009-8-21 0:44:00(defun c:123 () (setq a (getdist \"\请输入管道外径(MM):\")) (setq b (getdist \"\请输入保温厚度(MM):\")) (setq c (getdist \"\请输入管道长度(M):\")) (setq d (* 3

同樣的問題，期待高手，謝謝！

5061220

用Open DCL工具编辑成对话框，可以实现提示框显示等多种显示结果功能。