[求助]：用对话框形式显示

ewenhui

例：用lisp计算出线段总长度后，是在命令行显示计算结果。
请教：可否改为对话框的形式显示？（类似警告框）

程序里的数据（如：变量）可否也用对话框显示？

qjcpj

使用alert函数试试看！

ewenhui

最初由 qjcpj 发布
[B]使用alert函数试试看！ [/B]

请教如何实现。诚恳地....

zxq0220

ALERT只能显示字符串，使用格式如下：
(ALERT "字符串")

若要显示变量的内容，就要将变量的内容用函数转换成字符串才能显示。

ewenhui

请指教详细做法

xyp1964

参考

2. [FONT=courier new](load "xyp_lib");版本 V.20051230
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式(首选第一种)即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib")
   
6. ■2·在每个程序内增加(load"xyp_lib")
   
7. ■3·在command下，输入(load"xyp_lib")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. ★通用函数下载地址：
    
11. [url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url]
    
12. |;
    
13. 
    
14. ;;;线长统计
    
15. (defun c:test001 ()
    
16.   (CMDLA0)
    
17.   (setq        ss  (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
    
18.         sum 0
    
19.         i   -1
    
20.   )
    
21.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
22.     (setq l   (xyp-get-CurveLength s1)
    
23.           sum (+ sum l)
    
24.     )
    
25.   )
    
26.   (setq        tx (strcat "\n总线数 = "
    
27.                    (rtos i 2 0)
    
28.                    "\n总线长 = "
    
29.                    (rtos sum 2 3)
    
30.            )
    
31.   )
    
32.   (alert tx)
    
33.   ;;(princ "\n总线数 = ")
    
34.   ;;(princ i)
    
35.   ;;(princ "\n总线长 = ")
    
36.   ;;(princ (rtos sum 2 3))
    
37.   (CMDLA1)
    
38. )[/FONT]

[FONT=courier new](load "xyp_lib");版本 V.20051230<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式(首选第一种)即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> ★通用函数下载地址：<br /> [url]http://www.xdcad.net/forum/attachme...&postid=1606661[/url]<br /> |;<br /> <br /> ;;;线长统计<br /> (defun c:test001 ()<br />   (CMDLA0)<br />   (setq        ss  (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))<br />         sum 0<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq l   (xyp-get-CurveLength s1)<br />           sum (+ sum l)<br />     )<br />   )<br />   (setq        tx (strcat "\n总线数 = "<br />                    (rtos i 2 0)<br />                    "\n总线长 = "<br />                    (rtos sum 2 3)<br />            )<br />   )<br />   (alert tx)<br />   ;;(princ "\n总线数 = ")<br />   ;;(princ i)<br />   ;;(princ "\n总线长 = ")<br />   ;;(princ (rtos sum 2 3))<br />   (CMDLA1)<br /> )[/FONT]

ewenhui

谢谢斑竹的支持，问题解决了。