这个对话框的怎么写?

120120

我有很多LISP的小功能,我想做一个对话框,把这些小功能集成一起!
一个对话框里有很多按钮,点某一个按钮就调用指定的命令!

这个对话框有那位朋友会不?

我很菜的.刚接触这个,希望各位大虾指教!小弟在此谢过啦

英雄无敌

你自己在CAD里面做一个图标菜单不就行了啊

120120

我想做一个对话框来显示!有朋友会不?

ZZXXQQ

给个例子:

3. dd:dialog{label="常用工具";
4. :boxed_row{label="绘图";
5. :image_button{
6. key ="kimage1";
7. color = -2;
8. width = 5;
9. aspect_ratio = 1;
10. allow_accept = true;}
11. :image_button{
12. key ="kimage2";
13. color = -2;
14. width = 5;
15. aspect_ratio = 1;
16. allow_accept = true;}
17. :image_button{
18. key ="kimage3";
19. color = -2;
20. width = 5;
21. aspect_ratio = 1;
22. allow_accept = true;}
23. :image_button{
24. key ="kimage4";
25. color = -2;
26. width = 5;
27. aspect_ratio = 1;
28. allow_accept = true;}
29. :image_button{
30. key ="kimage5";
31. color = -2;
32. width = 5;
33. aspect_ratio = 1;
34. allow_accept = true;}
35. :image_button{
36. key ="kimage6";
37. color = -2;
38. width = 5;
39. aspect_ratio = 1;
40. allow_accept = true;}
41. :image_button{
42. key ="kimage7";
43. color = -2;
44. width = 5;
45. aspect_ratio = 1;
46. allow_accept = true;}
47. :image_button{
48. key ="kimage8";
49. color = -2;
50. width = 5;
51. aspect_ratio = 1;
52. allow_accept = true;}
53. :image_button{
54. key ="kimage9";
55. color = -2;
56. width = 5;
57. aspect_ratio = 1;
58. allow_accept = true;}
59. :image_button{
60. key ="kimage10";
61. color = -2;
62. width = 5;
63. aspect_ratio = 1;
64. allow_accept = true;}
65. :image_button{
66. key ="kimage11";
67. color = -2;
68. width = 5;
69. aspect_ratio = 1;
70. allow_accept = true;}
71. :image_button{
72. key ="kimage12";
73. color = -2;
74. width = 5;
75. aspect_ratio = 1;
76. allow_accept = true;}
77. :image_button{
78. key ="kimage13";
79. color = -2;
80. width = 5;
81. aspect_ratio = 1;
82. allow_accept = true;}
83. :image_button{
84. key ="kimage14";
85. color = -2;
86. width = 5;
87. aspect_ratio = 1;
88. allow_accept = true;}
89. cancel_button;
90. }}

dd:dialog{label="常用工具"; :boxed_row{label="绘图"; :image_button{ key ="kimage1"; color = -2; width = 5; aspect_ratio = 1; allow_accept = true;} :image_button{ key ="kimage2"; color = -2; width = 5; aspect_ratio = 1; allow_accept = true;} :image_button{ key ="kimage3"; color = -2; width = 5; aspect_ratio = 1; allow_accept = true;} :image_button{ key ="kimage4"; color = -2; width = 5; aspect_ratio = 1; allow_accept = true;} :image_button{ key ="kimage5"; color = -2; width = 5; aspect_ratio = 1; allow_accept = true;} :image_button{ key ="kimage6"; color = -2; width = 5; aspect_ratio = 1; allow_accept = true;} :image_button{ key ="kimage7"; color = -2; width = 5; aspect_ratio = 1; allow_accept = true;} :image_button{ key ="kimage8"; color = -2; width = 5; aspect_ratio = 1; allow_accept = true;} :image_button{ key ="kimage9"; color = -2; width = 5; aspect_ratio = 1; allow_accept = true;} :image_button{ key ="kimage10"; color = -2; width = 5; aspect_ratio = 1; allow_accept = true;} :image_button{ key ="kimage11"; color = -2; width = 5; aspect_ratio = 1; allow_accept = true;} :image_button{ key ="kimage12"; color = -2; width = 5; aspect_ratio = 1; allow_accept = true;} :image_button{ key ="kimage13"; color = -2; width = 5; aspect_ratio = 1; allow_accept = true;} :image_button{ key ="kimage14"; color = -2; width = 5; aspect_ratio = 1; allow_accept = true;} cancel_button; }}

xgr

用DCL的图象按钮就可以的

120120

请问ZZXXQQ!

比如我要点一个按钮,执行LINE命令,怎么实现?lsp要怎么写才行?

还有,我有很多LSP,我要加载这个集成很多按钮的LSP时自动加载要用到LSP功能,请问怎么实现?

飞诗(fsxm)

找个工具箱如autool之类的...(但加载有点慢哦)

你自己写一个自己的最好!加载会快很多~!

120120

(Defun c:test ( / dcl_id what)
 (setq dcl_id (load_dialog "test"))
 (new_dialog "test" dcl_id)
 (action_tile "aa" "(done_dialog 1)")
 (action_tile "bb" "(done_dialog 2)")
 (setq what (start_dialog))
 (cond ((= 1 what)
        (if (null c:aa)
         (load "c:\\a\\a")
        )
        (c:screw)
       )
       ((= 2 what)
        (if (null c:bb)
         (load "c:\\a\\a")
        )
        (c:pin)
       )
 )
 (princ)
)

这个怎么把绝对路径去掉,出错时，弹出一个对话框之类的

ZZXXQQ

3. (Defun c:test ( / dcl_id what)
4. (setq dcl_id (load_dialog "test"))
5. (new_dialog "test" dcl_id)
6. (action_tile "aa" "(done_dialog 1)")
7. (action_tile "bb" "(done_dialog 2)")
8. (setq what (start_dialog))
9. (cond ((= 1 what)
10.         (if (AND (null c:aa) (SETQ NM (FINDFILE "A.LSP")))
11.          (load NM)
12.         )
13.         (c:screw)
14.        )
15.        ((= 2 what)
16.         (if (AND (null c:bb) (SETQ NM (FINDFILE "A.LSP")))
17.          (load NM)
18.         )
19.         (c:pin)
20.        )
21. )
22. (princ)
23. )

(Defun c:test ( / dcl_id what) (setq dcl_id (load_dialog "test")) (new_dialog "test" dcl_id) (action_tile "aa" "(done_dialog 1)") (action_tile "bb" "(done_dialog 2)") (setq what (start_dialog)) (cond ((= 1 what)         (if (AND (null c:aa) (SETQ NM (FINDFILE "A.LSP")))          (load NM)         )         (c:screw)        )        ((= 2 what)         (if (AND (null c:bb) (SETQ NM (FINDFILE "A.LSP")))          (load NM)         )         (c:pin)        ) ) (princ) )

120120

(load NM)

nm是不是对话框文件?