aicr317 发表于 2009-8-21 00:44:00

ALERT用法正确否

<p>(defun c:123 ()</p><p>&nbsp;(setq a (getdist "\请输入管道外径(MM):"))<br/>&nbsp;(setq b (getdist "\请输入保温厚度(MM):"))<br/>&nbsp;(setq c (getdist "\请输入管道长度(M):"))<br/>&nbsp;(setq d (* 3.14159265 (+ a b b) c 0.001))<br/>&nbsp;(alert d))</p><p></p><p>想要把d的值以提示框的形式显示出来，怎么改！高手别见笑！终于有时间从头学起！</p><p></p><p></p>

AMTONNY 发表于 2009-8-21 07:12:00

本帖最后由 作者 于 2009-8-22 17:58:23 编辑

(Alert (strcat "" (rtos d))

aicr317 发表于 2009-8-21 22:41:00

xiexie

zhanzhe 发表于 2009-8-22 16:47:00

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

<p>同樣的問題，期待高手，謝謝！</p>

5061220 发表于 2009-8-22 17:17:00

用Open DCL工具编辑成对话框，可以实现提示框显示等多种显示结果功能。
页: [1]
查看完整版本: ALERT用法正确否