对话框通不过，各位看看什么问题

zhongys

DCL文件

2. ww:dialog{label="水路管牙型号标注";
3.     :text{label="水路管牙型号标注";alignment=centered;}
4. :boxed_column{label="管牙尺寸";
5. :row{
6. :button{label="PT 1/8";KEY="w1";}
7. :button{label="PT1/4";KEY="w2";}
8. :button{label="PT 3/8";KEY="w3";}
9. :button{label="PT 1/2";KEY="w4";}
10. :button{label="PT 3/4";KEY="w5";}
11. :button{label="PT 1";KEY="w6";}
12. }
13. :row{
14. :button{label="NPT 1/8";KEY="w7";}
15. :button{label="NPT 1/4";KEY="w8";}
16. :button{label="NPT 3/8";KEY="w9";}
17. :button{label="NPT 1/2";KEY="w10";}
18. :button{label="NPT 3/4";KEY="w11";}
19. :button{label="NPT 1";KEY="w12";}
20. }
21. }
22. spacer_1;
23. cancel_button;  
24. }

ww:dialog{label="水路管牙型号标注";     :text{label="水路管牙型号标注";alignment=centered;} :boxed_column{label="管牙尺寸"; :row{ :button{label="PT 1/8";KEY="w1";} :button{label="PT1/4";KEY="w2";} :button{label="PT 3/8";KEY="w3";} :button{label="PT 1/2";KEY="w4";} :button{label="PT 3/4";KEY="w5";} :button{label="PT 1";KEY="w6";} } :row{ :button{label="NPT 1/8";KEY="w7";} :button{label="NPT 1/4";KEY="w8";} :button{label="NPT 3/8";KEY="w9";} :button{label="NPT 1/2";KEY="w10";} :button{label="NPT 3/4";KEY="w11";} :button{label="NPT 1";KEY="w12";} } } spacer_1; cancel_button;   }

LISP文件

3. (defun c:ww(/ OLD_OS old_la dcl_id dd wt_size p1 p2 p3)
4. (setvar "CMDECHO" 0)
5. (setq old_la (getvar "clayer"))
6. (setq old_os (getvar "osmode"))
7. (setq dcl_id (load_dialog "ww"))
8. (new_dialog "ww" dcl_id)
9. (action_tile "w1" "(done_dialog 1)")
10. (action_tile "w2" "(done_dialog 2)")
11. (action_tile "w3" "(done_dialog 3)")
12. (action_tile "w4" "(done_dialog 4)")
13. (action_tile "w5" "(done_dialog 5)")
14. (action_tile "w6" "(done_dialog 6)")
15. (action_tile "w7" "(done_dialog 7)")
16. (action_tile "W8" "(done_dialog 8)")
17. (action_tile "W9" "(done_dialog 9)")
18. (action_tile "W10" "(done_dialog 10)")
19. (action_tile "W11" "(done_dialog 11)")
20. (action_tile "W12" "(done_dialog 12)")
21. (setq dd (start_dialog))
22. (cond
23. ((= DD 0)(exit))
24. ((= dd 1) (setq wt_size "PT 1/8"))
25. ((= dd 2) (setq wt_size "PT 1/4"))
26. ((= dd 3) (setq wt_size "PT 3/8"))
27. ((= dd 4) (setq wt_size "PT 1/2"))
28. ((= dd 5) (setq wt_size "PT 3/4"))
29. ((= dd 6) (setq wt_size "PT 1"))
30. ((= dd 7) (setq wt_size "NPT 1/8"))
31. ((= dd 8) (setq wt_size "NPT 1/4"))
32. ((= dd 9) (setq wt_size "NPT 3/8"))
33. ((= dd 10) (setq wt_size "NPT 1/2"))
34. ((= dd 11) (setq wt_size "NPT 3/4"))
35. ((= dd 12) (setq wt_size "NPT 1"))
36. )
37. (setq p1 (getpoint  "\nStart point:"))
38. (setvar "osmode" 0)
39. (command "ortho" "off")
40. (setq p2 (getpoint p1 "\nTo point:"))
41. (command "ortho" "on")
42. (setq p3 (getpoint p2 "\nTo point:"))
43. (setvar "clayer" "尺寸线层")
44. (if (= p3 nil)
45.     (command  "leader"   p1 p2  "" wt_size "")
46.     (command  "leader"   p1 p2 p3 ""  wt_size "")     
47. )
48. (setvar "osmode" old_os)
49. (setvar "clayer" old_la)
50. (princ)
51. )

(defun c:ww(/ OLD_OS old_la dcl_id dd wt_size p1 p2 p3) (setvar "CMDECHO" 0) (setq old_la (getvar "clayer")) (setq old_os (getvar "osmode")) (setq dcl_id (load_dialog "ww")) (new_dialog "ww" dcl_id) (action_tile "w1" "(done_dialog 1)") (action_tile "w2" "(done_dialog 2)") (action_tile "w3" "(done_dialog 3)") (action_tile "w4" "(done_dialog 4)") (action_tile "w5" "(done_dialog 5)") (action_tile "w6" "(done_dialog 6)") (action_tile "w7" "(done_dialog 7)") (action_tile "W8" "(done_dialog 8)") (action_tile "W9" "(done_dialog 9)") (action_tile "W10" "(done_dialog 10)") (action_tile "W11" "(done_dialog 11)") (action_tile "W12" "(done_dialog 12)") (setq dd (start_dialog)) (cond ((= DD 0)(exit)) ((= dd 1) (setq wt_size "PT 1/8")) ((= dd 2) (setq wt_size "PT 1/4")) ((= dd 3) (setq wt_size "PT 3/8")) ((= dd 4) (setq wt_size "PT 1/2")) ((= dd 5) (setq wt_size "PT 3/4")) ((= dd 6) (setq wt_size "PT 1")) ((= dd 7) (setq wt_size "NPT 1/8")) ((= dd 8) (setq wt_size "NPT 1/4")) ((= dd 9) (setq wt_size "NPT 3/8")) ((= dd 10) (setq wt_size "NPT 1/2")) ((= dd 11) (setq wt_size "NPT 3/4")) ((= dd 12) (setq wt_size "NPT 1")) ) (setq p1 (getpoint  "\nStart point:")) (setvar "osmode" 0) (command "ortho" "off") (setq p2 (getpoint p1 "\nTo point:")) (command "ortho" "on") (setq p3 (getpoint p2 "\nTo point:")) (setvar "clayer" "尺寸线层") (if (= p3 nil)     (command  "leader"   p1 p2  "" wt_size "")     (command  "leader"   p1 p2 p3 ""  wt_size "")      ) (setvar "osmode" old_os) (setvar "clayer" old_la) (princ) )

各位帮忙指正一下

gufeng

1、把DCL文件中的 KEY 替换成小写 key

2、把LISP文件以下几行的大写字母“W”换成小写字母"w"替换

(action_tile "W8" "(done_dialog 8)")
(action_tile "W9" "(done_dialog 9)")
(action_tile "W10" "(done_dialog 10)")
(action_tile "W11" "(done_dialog 11)")
(action_tile "W12" "(done_dialog 12)")

zhongys

可以了，谢谢

maozhumao

function XML() {
    [native code]
}

raym55

没看懂

xyp1964

对话框内置法：

 

zhongys

xyp1964楼主的程式加了内置函数(xyp-MkLaCo "尺寸线层" 3)  (xyp-Dcl-Init ilst "【水路管牙型号标注】" t)。直接加载通不过