关于Popup_list控件能否在对话框显示时修改

yang7516

DCL中的弹出列表控件能否像VB中的组合框那样，在对话框显示时可以手动编辑修改，如不能，可不可以自定义这样的控件，希望高手能给帮助

 

ZZXXQQ

可以采用变通的办法：

用一个编辑框将选定的列表内容显示并编辑，编辑完成后再用程序更新列表框的相应内容。

yang7516

用OPENDCL也许能实现，我要好好研究研究

xyp1964

2. (defun c:tt (/ ilst)
   
3.   (cmdla0)
   
4.   ;; __________________________________________________________________
   
5.   (defun main-pro (/ p1)
   
6.     (while (setq p1 (getpoint "\n基点<退出>: "))
   
7.       (xyp-Text 5 p1 tx)
   
8.     )
   
9.   )
   
10.   ;; __________________________________________________________________
    
11.   (defun ali1 ()
    
12.     (xyp-Dcl-Gettile '("li1"))
    
13.     (setq a (nth (atoi li1) lst1))
    
14.     (set_tile "tx" a)
    
15.   )
    
16.   (defun abu1 ()
    
17.     (xyp-Dcl-Gettile '("tx"))
    
18.     (if (not (member tx lst1))
    
19.       (progn
    
20. (setq lst1 (cons tx lst1))
    
21. (xyp-show-list "li1" lst1)
    
22.       )
    
23.     )
    
24.   )
    
25.   ;; __________________________________________________________________
    
26.   (xyp-initSet '(li1 tx) '("0" ""))
    
27.   (setq lst1 (if lst1
    
28.         (xyp-delsame lst1)
    
29.         '("湿地松" "黑松" "赤松" "五针松" "马尾松" "罗汉松" "白皮松" "雪松" "柏木" "侧柏" "桧柏" "龙柏" "云片柏")
    
30.       )
    
31. ilst '(("li1" "词库" "list" "lst1" "8" "10" "(ali1)")
    
32.         ("tx" "文本" "str" "18")
    
33.         ("bu1" "新词入库" "button1" "(abu1)")
    
34.         (nil nil "spacer;")
    
35.        )
    
36.   )
    
37.   (if (= (xyp-Dcl-Init Ilst "【写字－乔木】" t) 1)
    
38.     (main-pro)
    
39.   )
    
40.   (cmdla1)
    
41. )
    

(defun c:tt (/ ilst)<br />   (cmdla0)<br />   ;; __________________________________________________________________<br />   (defun main-pro (/ p1)<br />     (while (setq p1 (getpoint "\n基点<退出>: "))<br />       (xyp-Text 5 p1 tx)<br />     )<br />   )<br />   ;; __________________________________________________________________<br />   (defun ali1 ()<br />     (xyp-Dcl-Gettile '("li1"))<br />     (setq a (nth (atoi li1) lst1))<br />     (set_tile "tx" a)<br />   )<br />   (defun abu1 ()<br />     (xyp-Dcl-Gettile '("tx"))<br />     (if (not (member tx lst1))<br />       (progn<br /> (setq lst1 (cons tx lst1))<br /> (xyp-show-list "li1" lst1)<br />       )<br />     )<br />   )<br />   ;; __________________________________________________________________<br />   (xyp-initSet '(li1 tx) '("0" ""))<br />   (setq lst1 (if lst1<br />         (xyp-delsame lst1)<br />         '("湿地松" "黑松" "赤松" "五针松" "马尾松" "罗汉松" "白皮松" "雪松" "柏木" "侧柏" "桧柏" "龙柏" "云片柏")<br />       )<br /> ilst '(("li1" "词库" "list" "lst1" "8" "10" "(ali1)")<br />         ("tx" "文本" "str" "18")<br />         ("bu1" "新词入库" "button1" "(abu1)")<br />         (nil nil "spacer;")<br />        )<br />   )<br />   (if (= (xyp-Dcl-Init Ilst "【写字－乔木】" t) 1)<br />     (main-pro)<br />   )<br />   (cmdla1)<br /> )<br />

jyzas

地板的程序提示语法错误