求助，用opendcl做扩展属性对话框的问题

lameduck

新手，opendcl不是很熟悉，附件中程序准备实现扩展属性输入的功能，就像特性一样！
但是控件触发都不能实现我想要的结果！步骤是拾取对象->有属性就显示->更改对话框->更新属性。
更新属性不能触发
麻烦哪位高手帮忙指点一下！

2. (defun C:pro()
   
3.   (vl-load-com)
   
4.   (setq cmdecho (getvar "CMDECHO"))
   
5.   (setvar "CMDECHO" 0)
   
6.   (command "_OPENDCL")
   
7.   (setvar "CMDECHO" cmdecho)
   
8.   (Setq Lxd (Dcl_Project_Load "F:/pro.odcl"))
   
9.   (dcl_Form_Show "pro" "form1")
   
10. (princ)
    
11. )
    
12. (defun c:pro_Form1_OnDocActivated (/)
    
13.   (c:pro_Form1_OnInitialize)
    
14. )
    
15. (defun c:pro_Form1_OnEnteringNoDocState (/)
    
16.   (dcl_Form_Close pro_Form1)
    
17. )
    
18. 
    
19. ;;初始化
    
20. (defun c:pro_Form1_OnInitialize(/)
    
21.     (dcl_ComboBox_SetCurSel pro_Form1_ComboBox1 -1)
    
22.     (dcl_Control_SetText pro_Form1_TextBox2 "")
    
23.     (dcl_Control_SetText pro_Form1_TextBox3 "")
    
24.     (dcl_Control_SetText pro_Form1_TextBox4 "")
    
25.     (dcl_OptionList_SetCurSel pro_Form1_OptionList1 -1)
    
26.     (dcl_OptionList_SetCurSel pro_Form1_OptionList2 -1)
    
27.     (dcl_OptionList_SetCurSel pro_Form1_OptionList3 -1))
    
28. 
    
29. ;;拾取对象若有扩展属性在相应的位置显示
    
30. (defun c:pro_Form1_TextButton1_OnClicked()
    
31.   (c:pro_Form1_OnInitialize)
    
32.   (setq ss(car(entsel)))
    
33.   (redraw ss 3)
    
34.   (if (getxdata ss "obname") (dcl_Control_setText pro_Form1_ComboBox1 (getxdata ss "obname")))
    
35.   (if(getxdata ss "floorno") (dcl_Control_SetText pro_Form1_TextBox2 (getxdata ss "floorno")))
    
36.   (if(getxdata ss "topfloor") (dcl_Control_SetText pro_Form1_TextBox3 (getxdata ss "topfloor")))
    
37.   (if(getxdata ss "buildno") (dcl_Control_SetText pro_Form1_TextBox4 (getxdata ss "buildno")))
    
38.   (if(getxdata ss "areacal") (dcl_Control_SetCurrentSelection pro_Form1_OptionList1 (areacal_m (getxdata ss "areacal"))))
    
39.   (if(getxdata ss "arearatio") (dcl_Control_SetCurrentSelection pro_Form1_OptionList2 (arearatio_m (getxdata ss "arearatio"))))
    
40.   (if(getxdata ss "buildfunction") (dcl_Control_SetCurrentSelection pro_Form1_OptionList3 (buildfunction_m (getxdata ss "buildfunction"))))
    
41.   (dcl_Control_SetEnabled pro_Form1_TextButton1 T)
    
42. )
    
43. 
    
44. ;;;获取实体扩展对象
    
45. (defun getxdata(ob xpro / proxdata a)
    
46.   (setq proxdata(entget ob (list xpro)))
    
47.   (setq  a(cdr(cadr(cadr(assoc -3 proxdata)))))
    
48. )
    
49. ;;;改变实体扩展对象
    
50. (defun changexdata(ob xpro input / proxdata e else_xdata)
    
51. (setq proxdata(entget ob))
    
52. (setq else_xdata(cdr(assoc -3 (entget ob '("*")))))
    
53. (setq else_xdata(vl-remove-if '(lambda(x) (= (car x) xpro)) else_xdata))
    
54. (if (not else_xdata)
    
55.     (setq proxdata(cons  (list -3 (list xpro(cons 1000 input))) proxdata))
    
56.     (setq proxdata(cons (cons -3 (cons (list xpro(cons 1000 input)) else_xdata)) proxdata)))
    
57.   (regapp xpro)
    
58.   (entmod proxdata)
    
59. )
    
60. 
    
61. ;;;加入实体扩展对象         
    
62. (defun putxdata(ob xpro input / proxdata else_xdata)
    
63.   (setq proxdata(entget ob))  
    
64.   (setq else_xdata(cdr(assoc -3 (entget ob '("*")))))
    
65.   (if (not else_xdata)
    
66.     (setq proxdata(cons  (list -3 (list xpro(cons 1000 input))) proxdata))
    
67.     (setq proxdata(cons (cons -3 (cons (list xpro(cons 1000 input)) else_xdata)) proxdata)))
    
68.   (regapp xpro)
    
69.   (entmod proxdata)
    
70.   )
    
71. 
    
72. (defun obname_m(str)
    
73.   (cond ((= str "建筑物") (setq a 0))
    
74.   ((= str "建筑物附属") (setq a 1))
    
75.   ((= str "夹层") (setq a 1)))
    
76. a)
    
77. (defun areacal_m(str)
    
78.   (cond ((= str "2") (setq a 0))
    
79.         ((= str "1") (setq a 1))
    
80.   ((= str "0.5") (setq a 2))
    
81.   ((= str "0") (setq a 3))
    
82.   ((= str "-1") (setq a 4)))
    
83.   a)
    
84. 
    
85. (defun arearatio_m(str)
    
86.   (cond ((= str "不计容") (setq a 0))
    
87.   ((= str "计容") (setq a 1))
    
88.   ((= str "计容") (setq a 2)))
    
89.   a)
    
90. 
    
91. (defun buildfunction_m(str)
    
92.   (cond ((= str "住宅") (setq a 0))
    
93.   ((= str "商业") (setq a 1))
    
94.   ((= str "办公") (setq a 2))
    
95.   ((= str "其他") (setq a 3)))
    
96.   a)
    
97.   
    
98. 
    
99. (defun isint(s) ;;判断是否为整数是为T否为nil
    
100.   (cond ((not (=(type s) 'str)) nil)
     
101.   ((= (type(read s)) 'int) T)
     
102.   (T nil)
     
103.   ))
     
104. ;;更改属性
     
105. (defun c:pro_Form1_TextButton2_OnClicked (/)
     
106.   (setq Value(dcl_Control_getText pro_Form1_ComboBox1)
     
107.   f_NewValue(dcl_Control_getText pro_Form1_TextBox2)
     
108.   t_NewValue(dcl_Control_getText pro_Form1_TextBox3)
     
109.   bn_NewValue(dcl_Control_getText pro_Form1_TextBox4)
     
110.   ac_Value(dcl_OptionList_GetButtonCaption pro_Form1_OptionList1 (dcl_OptionList_GetCurSel pro_Form1_OptionList1))
     
111.   ar_Value(dcl_OptionList_GetButtonCaption pro_Form1_OptionList2 (dcl_OptionList_GetCurSel pro_Form1_OptionList2))
     
112.   bf_Value(dcl_OptionList_GetButtonCaption pro_Form1_OptionList3 (dcl_OptionList_GetCurSel pro_Form1_OptionList3)))
     
113.   (if (or (not(isint t_NewValue)) (equal t_NewValue "w"))
     
114.     (progn (alert "顶层请输入整数或W") (exit)))
     
115.   (if (not(isint f_NewValue))
     
116.     (progn (alert "层数请输入整数")(exit)))
     
117.   (if Value
     
118.     (if (getxdata ss "obname")
     
119.     (changexdata ss "obname" Value)
     
120.     (putxdata ss "obname" Value)))
     
121.   (if f_NewValue
     
122.     (if (getxdata ss "floorno")
     
123.     (changexdata ss "floorno" f_NewValue)
     
124.     (putxdata ss "floorno" f_NewValue)))
     
125.   (if t_NewValue
     
126.     (if (getxdata ss "topfloor")
     
127.       (changexdata ss "topfloor" t_NewValue)
     
128.       (putxdata ss "topfloor" t_NewValue)))
     
129.   (if bn_NewValue
     
130.     (if (getxdata ss "buildno")
     
131.     (changexdata ss "buildno" bn_NewValue)
     
132.     (putxdata ss "buildno" bn_NewValue)))
     
133.   (if ac_Value
     
134.     (if (getxdata ss "areacal")
     
135.     (changexdata ss "areacal" ac_Value)
     
136.     (putxdata ss "areacal" ac_Value)))
     
137.   (if ar_Value
     
138.     (if (getxdata ss "arearatio")
     
139.     (changexdata ss "arearatio" ar_Value)
     
140.     (putxdata ss "arearatio" ar_Value)))
     
141.   (if bf_Value
     
142.     (if (getxdata ss "buildfunction")
     
143.     (changexdata ss "buildfunction" bf_Value)
     
144.     (putxdata ss "buildfunction" bf_Value)))
     
145.   (dcl_Control_SetEnabled pro_Form1_TextButton2 T)
     
146. )
     

(defun C:pro()<br />   (vl-load-com)<br />   (setq cmdecho (getvar "CMDECHO"))<br />   (setvar "CMDECHO" 0)<br />   (command "_OPENDCL")<br />   (setvar "CMDECHO" cmdecho)<br />   (Setq Lxd (Dcl_Project_Load "F:/pro.odcl"))<br />   (dcl_Form_Show "pro" "form1")<br /> (princ)<br /> )<br /> (defun c:pro_Form1_OnDocActivated (/)<br />   (c:pro_Form1_OnInitialize) <br /> )<br /> (defun c:pro_Form1_OnEnteringNoDocState (/)<br />   (dcl_Form_Close pro_Form1)<br /> )<br /> <br /> ;;初始化<br /> (defun c:pro_Form1_OnInitialize(/)<br />     (dcl_ComboBox_SetCurSel pro_Form1_ComboBox1 -1)<br />     (dcl_Control_SetText pro_Form1_TextBox2 "")<br />     (dcl_Control_SetText pro_Form1_TextBox3 "")<br />     (dcl_Control_SetText pro_Form1_TextBox4 "")<br />     (dcl_OptionList_SetCurSel pro_Form1_OptionList1 -1)<br />     (dcl_OptionList_SetCurSel pro_Form1_OptionList2 -1)<br />     (dcl_OptionList_SetCurSel pro_Form1_OptionList3 -1))<br /> <br /> ;;拾取对象若有扩展属性在相应的位置显示<br /> (defun c:pro_Form1_TextButton1_OnClicked()<br />   (c:pro_Form1_OnInitialize)<br />   (setq ss(car(entsel)))<br />   (redraw ss 3)<br />   (if (getxdata ss "obname") (dcl_Control_setText pro_Form1_ComboBox1 (getxdata ss "obname")))<br />   (if(getxdata ss "floorno") (dcl_Control_SetText pro_Form1_TextBox2 (getxdata ss "floorno")))<br />   (if(getxdata ss "topfloor") (dcl_Control_SetText pro_Form1_TextBox3 (getxdata ss "topfloor")))<br />   (if(getxdata ss "buildno") (dcl_Control_SetText pro_Form1_TextBox4 (getxdata ss "buildno")))<br />   (if(getxdata ss "areacal") (dcl_Control_SetCurrentSelection pro_Form1_OptionList1 (areacal_m (getxdata ss "areacal"))))<br />   (if(getxdata ss "arearatio") (dcl_Control_SetCurrentSelection pro_Form1_OptionList2 (arearatio_m (getxdata ss "arearatio"))))<br />   (if(getxdata ss "buildfunction") (dcl_Control_SetCurrentSelection pro_Form1_OptionList3 (buildfunction_m (getxdata ss "buildfunction"))))<br />   (dcl_Control_SetEnabled pro_Form1_TextButton1 T)<br /> )<br /> <br /> ;;;获取实体扩展对象 <br /> (defun getxdata(ob xpro / proxdata a)<br />   (setq proxdata(entget ob (list xpro)))<br />   (setq  a(cdr(cadr(cadr(assoc -3 proxdata))))) <br /> )<br /> ;;;改变实体扩展对象<br /> (defun changexdata(ob xpro input / proxdata e else_xdata)<br /> (setq proxdata(entget ob))<br /> (setq else_xdata(cdr(assoc -3 (entget ob '("*")))))<br /> (setq else_xdata(vl-remove-if '(lambda(x) (= (car x) xpro)) else_xdata))<br /> (if (not else_xdata)<br />     (setq proxdata(cons  (list -3 (list xpro(cons 1000 input))) proxdata))<br />     (setq proxdata(cons (cons -3 (cons (list xpro(cons 1000 input)) else_xdata)) proxdata)))<br />   (regapp xpro)<br />   (entmod proxdata) <br /> )<br /> <br /> ;;;加入实体扩展对象         <br /> (defun putxdata(ob xpro input / proxdata else_xdata)<br />   (setq proxdata(entget ob))  <br />   (setq else_xdata(cdr(assoc -3 (entget ob '("*")))))<br />   (if (not else_xdata)<br />     (setq proxdata(cons  (list -3 (list xpro(cons 1000 input))) proxdata))<br />     (setq proxdata(cons (cons -3 (cons (list xpro(cons 1000 input)) else_xdata)) proxdata)))<br />   (regapp xpro)<br />   (entmod proxdata)<br />   )<br /> <br /> (defun obname_m(str)<br />   (cond ((= str "建筑物") (setq a 0))<br />   ((= str "建筑物附属") (setq a 1))<br />   ((= str "夹层") (setq a 1)))<br /> a)<br /> (defun areacal_m(str)<br />   (cond ((= str "2") (setq a 0))<br />         ((= str "1") (setq a 1))<br />   ((= str "0.5") (setq a 2))<br />   ((= str "0") (setq a 3))<br />   ((= str "-1") (setq a 4)))<br />   a)<br /> <br /> (defun arearatio_m(str)<br />   (cond ((= str "不计容") (setq a 0))<br />   ((= str "计容") (setq a 1))<br />   ((= str "计容") (setq a 2)))<br />   a)<br /> <br /> (defun buildfunction_m(str)<br />   (cond ((= str "住宅") (setq a 0))<br />   ((= str "商业") (setq a 1))<br />   ((= str "办公") (setq a 2))<br />   ((= str "其他") (setq a 3)))<br />   a)<br />   <br /> <br /> (defun isint(s) ;;判断是否为整数是为T否为nil<br />   (cond ((not (=(type s) 'str)) nil)<br />   ((= (type(read s)) 'int) T)<br />   (T nil)<br />   ))<br /> ;;更改属性<br /> (defun c:pro_Form1_TextButton2_OnClicked (/)<br />   (setq Value(dcl_Control_getText pro_Form1_ComboBox1)<br />   f_NewValue(dcl_Control_getText pro_Form1_TextBox2)<br />   t_NewValue(dcl_Control_getText pro_Form1_TextBox3)<br />   bn_NewValue(dcl_Control_getText pro_Form1_TextBox4)<br />   ac_Value(dcl_OptionList_GetButtonCaption pro_Form1_OptionList1 (dcl_OptionList_GetCurSel pro_Form1_OptionList1))<br />   ar_Value(dcl_OptionList_GetButtonCaption pro_Form1_OptionList2 (dcl_OptionList_GetCurSel pro_Form1_OptionList2))<br />   bf_Value(dcl_OptionList_GetButtonCaption pro_Form1_OptionList3 (dcl_OptionList_GetCurSel pro_Form1_OptionList3)))<br />   (if (or (not(isint t_NewValue)) (equal t_NewValue "w"))<br />     (progn (alert "顶层请输入整数或W") (exit)))<br />   (if (not(isint f_NewValue))<br />     (progn (alert "层数请输入整数")(exit)))<br />   (if Value<br />     (if (getxdata ss "obname")<br />     (changexdata ss "obname" Value)<br />     (putxdata ss "obname" Value)))<br />   (if f_NewValue<br />     (if (getxdata ss "floorno")<br />     (changexdata ss "floorno" f_NewValue)<br />     (putxdata ss "floorno" f_NewValue)))<br />   (if t_NewValue<br />     (if (getxdata ss "topfloor")<br />       (changexdata ss "topfloor" t_NewValue)<br />       (putxdata ss "topfloor" t_NewValue)))<br />   (if bn_NewValue<br />     (if (getxdata ss "buildno")<br />     (changexdata ss "buildno" bn_NewValue)<br />     (putxdata ss "buildno" bn_NewValue)))<br />   (if ac_Value<br />     (if (getxdata ss "areacal")<br />     (changexdata ss "areacal" ac_Value)<br />     (putxdata ss "areacal" ac_Value)))<br />   (if ar_Value<br />     (if (getxdata ss "arearatio")<br />     (changexdata ss "arearatio" ar_Value)<br />     (putxdata ss "arearatio" ar_Value)))<br />   (if bf_Value<br />     (if (getxdata ss "buildfunction")<br />     (changexdata ss "buildfunction" bf_Value)<br />     (putxdata ss "buildfunction" bf_Value)))<br />   (dcl_Control_SetEnabled pro_Form1_TextButton2 T)<br /> )<br />

lameduck

引发事件设置成1，哎！