[完成][LISP程序]：图+DCL+LSP ,想点击OK直接选择甲

dhxf

图
QBSD.DCL

2. 
   
3. 
   
4. //编写DCL程序//
   
5. sdqb : dialog {
   
6. label = "设定--.LSP";
   
7. :row {
   
8. :popup_list
   
9. {label = "选择:";
   
10. key = "1";
    
11. width=25;
    
12. fixed_width=true;
    
13. list="甲\n乙\n" ;
    
14. 
    
15. }
    
16. }
    
17. ok_cancel;
    
18. }
    
19. 
    
20. ;;;;;;;
    
21. QBSD.LSP
    
22. ;;;;;;;
    
23. ;;;;;;;;;
    
24. / dcl_id w1 w2 w3 w4 w5 w6 w7 w8 w9 a n po
    
25. ;;;;;;;;;;;
    
26. (defun c:sd ()
    
27. (setq dcl_id (load_dialog "sdqb.dcl"))
    
28. (if (not (new_dialog "sdqb" dcl_id))
    
29. (exit)
    
30. )
    
31. 
    
32. (action_tile "1" "(addl-KG)")
    
33. 
    
34. (if (= 1 (start_dialog))
    
35. (progn
    
36. (prompt (strcat "\nwkg:" wkg))
    
37. ))
    
38. 
    
39. (unload_dialog dcl_id)
    
40. (print)
    
41. )
    
42. 
    
43. ;;;;;;;;
    
44. (defun addl-KG()
    
45. (IF  (= (GET_TILE "1") "0")
    
46. (setq wkg "D-16A")
    
47. (setq wkg "T-16A"))
    
48. )
    
49. 
    
50. ;;;;;;;;
    

<br /> <br /> //编写DCL程序//<br /> sdqb : dialog {<br /> label = "设定--.LSP";<br /> :row {<br /> :popup_list <br /> {label = "选择:";<br /> key = "1";<br /> width=25;<br /> fixed_width=true; <br /> list="甲\n乙\n" ;<br /> <br /> }<br /> }<br /> ok_cancel;<br /> } <br /> <br /> ;;;;;;;<br /> QBSD.LSP<br /> ;;;;;;;<br /> ;;;;;;;;;<br /> / dcl_id w1 w2 w3 w4 w5 w6 w7 w8 w9 a n po<br /> ;;;;;;;;;;;<br /> (defun c:sd ()<br /> (setq dcl_id (load_dialog "sdqb.dcl"))<br /> (if (not (new_dialog "sdqb" dcl_id))<br /> (exit)<br /> )<br /> <br /> (action_tile "1" "(addl-KG)")<br /> <br /> (if (= 1 (start_dialog))<br /> (progn<br /> (prompt (strcat "\nwkg:" wkg))<br /> ))<br /> <br /> (unload_dialog dcl_id)<br /> (print)<br /> ) <br /> <br /> ;;;;;;;;<br /> (defun addl-KG()<br /> (IF  (= (GET_TILE "1") "0")<br /> (setq wkg "D-16A")<br /> (setq wkg "T-16A"))<br /> )<br /> <br /> ;;;;;;;;<br />

zxmmelly

在  (action_tile "1" "(addl-KG)")  前面加上  set_tile    函数

dhxf

(set_tile  "1" "0") (action_tile "1" "(addl-KG)")

还是不可以.
该怎么样呢

WJQ6080

是不是按确定后默认为甲，如果是，程序本身已经是这样了，只是下面不知道为什么又改为“0”了
看下面的程序，和原程序基本没变。


(defun c:sd ()
(setq dcl_id (load_dialog "sdqb.dcl"))
(if (not (new_dialog "sdqb" dcl_id))
(exit)
)

(action_tile "1" "(addl-KG)")

(if (= 1 (start_dialog))

(prompt (strcat "\n wkg:" wkg))
)

(unload_dialog dcl_id)
(princ)
)

;;;;;;;;

(defun addl-KG()
(IF  (= (GET_TILE "1") "甲")
(setq wkg "D-16A")
(setq wkg "T-16A"))
)

dhxf

是按确定后默认为甲;
(IF (= (GET_TILE "1") "甲")
不起作用

aeo

列表框里是什么字,和你选择没有任何关系
选择只表示你选了第几个,而要知道内容,那就要看你往里面加了什么.

而逻辑上也不对
选 确定 就是 "甲"  ,那还要列表框干吗?

如果非要:
(setq temp  (IF (=  "0"(GET_TILE "1") )  "甲""乙"))

dhxf

OK了;这样做:

(if (= 1 (start_dialog))
(progn

(if (or (not kgxx) (= kgxx 1))
(setq wkg "D-16A")
(setq wkg "T-16A"))


(defun addl-KG()
(setq kgxx (IF  (= (GET_TILE "1") "0") 1 2))
)