ODCL中使用Asynchronous事件

st788796

13808843088 发表于 2014-12-5 18:30
实验了一下模态对话框，在设置了text limit 5，触发EditChanged事件，设置(> (strlen NewValue) 4)的时候 ...

不设max就要设引发事件为 1 - 同步，才能一直触发editchanged

st788796

13808843088 发表于 2014-12-5 18:30
实验了一下模态对话框，在设置了text limit 5，触发EditChanged事件，设置(> (strlen NewValue) 4)的时候 ...

上面说错了,模态对话框没有 引发事件 选择, 只能用 limits + maxtext 组合
另外，你想让初始焦点在哪个控件就在 initialize 中 setfocus

1. (defun c:maxtext_Form1_TextBox1_OnMaxText (/)
   
2.   (dcl_control_setfocus maxtext_Form1_TextBox2)
   
3. )
   
4. (defun c:maxtext_Form1_TextBox2_OnMaxText (/)
   
5.   (dcl_control_setfocus maxtext_Form1_TextBox3)
   
6. )
   
7. (defun c:tt (/ strl)
   
8.   (setq strl
   
9.   '("YWt6AzAPAABHVcdKBuKTKkURbT9ugGK7jzy8VWz8TD5ubx5GpVpGamp2X3rmjuzePkzAQvZeMG48"
   
10.     "nnBEXK+tviF+/7o93Pp4RDR0dDRadi4vjvbnJyEQkUC3z1wlKgnZxaURGZil4+fDESMDz/Cetyov"
    
11.     "P3NJThehV36RTb5Uh9QHrrlGOJqwX/F3Bra0BnSFm7cc4aYCRdQ2Bm/dqJT3GTAYQueNLu7JBKWb"
    
12.     "lLQm/6DAsmgaIB34G9ovtCbupngdMO7QKeqv+gaF/Pi72OBdHJU40eyU8PvG8DNOVwpfxrrqQPxH"
    
13.     "IjkrnLMlilEnfGkNOGZc6ccT15KLJ4ayPYp6TtuV5sH6EWyQCY87m4U2iCX6IUQBxYANvFF2QV2C"
    
14.     "5YYU+gUsD4K5m9U6mFBMH89KoRMz9YlklzZessXmWbLupadbZ6fIlqTDRA3upRywexmT7tIuFazi"
    
15.     "UOZOr8OqVtEHnQAXXKOfCFPjZw2Ii/StKuZZuonqjiRUkh288XbR2DwRDoXPAs3PDIrrDmh9jDI1"
    
16.     "JxiaYL4fByH4x2yMSrRAOcZkmOuE1wchW4VynynQcHWUIdpCx7PvfcMnjwO0Fem1tZwH1P0xhkKf"
    
17.     "87oBtJ/dTEzFl74Zd6FdwLdmoETwffb1JWeQLum/uc7yT7LcGl3oEhhZq5Zzn3nK+a0Q8eGqAO+S"
    
18.     "JZapp52Cy+YYr4uyqIpliw5f8hGOA1/AkZAyJoHRnzGgvv1qweOA8+1wcVfg3INh2WDiXiJcAvKO"
    
19.     "Vqvx2xp548/2yjJdXFMDRK00JIxV72jF4jkGZxfPiEjau7hZrKwsJNIBZaxM8cbKAr6B6OgCudub"
    
20.     "cGwXl9rKIj46JKiWMlUXV1qs7Da1cbrbm2Sk6OjIGr+Y5bY8ORs/0QEnZbM2"
    
21.    )
    
22.   )
    
23.   (dcl_project_import strl)
    
24.   (dcl_form_show maxtext_form1)
    
25.   (princ)
    
26. )
    

(defun c:maxtext_Form1_TextBox1_OnMaxText (/)<br />   (dcl_control_setfocus maxtext_Form1_TextBox2)<br /> )<br /> (defun c:maxtext_Form1_TextBox2_OnMaxText (/)<br />   (dcl_control_setfocus maxtext_Form1_TextBox3)<br /> )<br /> (defun c:tt (/ strl)<br />   (setq strl<br />   '("YWt6AzAPAABHVcdKBuKTKkURbT9ugGK7jzy8VWz8TD5ubx5GpVpGamp2X3rmjuzePkzAQvZeMG48"<br />     "nnBEXK+tviF+/7o93Pp4RDR0dDRadi4vjvbnJyEQkUC3z1wlKgnZxaURGZil4+fDESMDz/Cetyov"<br />     "P3NJThehV36RTb5Uh9QHrrlGOJqwX/F3Bra0BnSFm7cc4aYCRdQ2Bm/dqJT3GTAYQueNLu7JBKWb"<br />     "lLQm/6DAsmgaIB34G9ovtCbupngdMO7QKeqv+gaF/Pi72OBdHJU40eyU8PvG8DNOVwpfxrrqQPxH"<br />     "IjkrnLMlilEnfGkNOGZc6ccT15KLJ4ayPYp6TtuV5sH6EWyQCY87m4U2iCX6IUQBxYANvFF2QV2C"<br />     "5YYU+gUsD4K5m9U6mFBMH89KoRMz9YlklzZessXmWbLupadbZ6fIlqTDRA3upRywexmT7tIuFazi"<br />     "UOZOr8OqVtEHnQAXXKOfCFPjZw2Ii/StKuZZuonqjiRUkh288XbR2DwRDoXPAs3PDIrrDmh9jDI1"<br />     "JxiaYL4fByH4x2yMSrRAOcZkmOuE1wchW4VynynQcHWUIdpCx7PvfcMnjwO0Fem1tZwH1P0xhkKf"<br />     "87oBtJ/dTEzFl74Zd6FdwLdmoETwffb1JWeQLum/uc7yT7LcGl3oEhhZq5Zzn3nK+a0Q8eGqAO+S"<br />     "JZapp52Cy+YYr4uyqIpliw5f8hGOA1/AkZAyJoHRnzGgvv1qweOA8+1wcVfg3INh2WDiXiJcAvKO"<br />     "Vqvx2xp548/2yjJdXFMDRK00JIxV72jF4jkGZxfPiEjau7hZrKwsJNIBZaxM8cbKAr6B6OgCudub"<br />     "cGwXl9rKIj46JKiWMlUXV1qs7Da1cbrbm2Sk6OjIGr+Y5bY8ORs/0QEnZbM2"<br />    )<br />   )<br />   (dcl_project_import strl)<br />   (dcl_form_show maxtext_form1)<br />   (princ)<br /> )<br />

13808843088

st788796 发表于 2014-12-6 07:58
上面说错了,模态对话框没有 引发事件 选择, 只能用 limits + maxtext 组合
另外，你想让初始焦点在哪个 ...

纯中文或纯英文输入切换的问题解决了。由于程序的text limit限制的是字符数的输入，亦即设置text limit为5，无论你输入5个中文，还是5个英文，程序都认为是5个字符。如果我的字符串是为了在autocad中写text，那么5个中文text的宽度＝10个英文text的宽度。


问题在于很可能中英文混输，假如设置text limit为5,autocad中预留的宽度为5个中文text宽度，我输入12345，提取出写入autocad，字符宽度只占了预留宽度的一半，我想输入67890补齐的时候，对话框就会跳行了。这个地方矛盾了，如何解决呢？谢谢

13808843088

想多了，与text limit无关，在EditChanged事件中将焦点移到text box2中还不够，还要将text box2激活为编辑状态，这里没找到相关函数，哪位知道，望告知，谢谢

st788796

13808843088 发表于 2014-12-6 10:27
想多了，与text limit无关，在EditChanged事件中将焦点移到text box2中还不够，还要将text box2激活为编辑 ...

有选择文本方法吧

守仁格竹GM

st788796 发表于 2014-12-3 15:41
你写个简单的文字编辑的同步试试，DCL实际都是异步事件(action)

textbox1和textbox2有一个设置就都同步了，这是为什么呢。
另外还有一个疑问。就是我把名称改为cal1后里面读取都正常，但是外面定义函数就要cad
见下面，这样就能运行，假如 改成c:cal1_form1_textbox1_OnEditChanged 就失败，奇怪
(defun c:cal_form1_textbox1_OnEditChanged (newvalue /)
  (dcl_control_settext
    cal1_form1_textbox3
    (vl-princ-to-string
      (+ (distof newvalue)
         (distof (dcl_control_gettext cal1_form1_textbox2))
      )
    )
  )
)
(defun c:cal_form1_textbox2_OnEditChanged (newvalue /)
  (dcl_control_settext
    cal1_form1_textbox3
    (vl-princ-to-string
      (+ (distof newvalue)
         (distof (dcl_control_gettext cal1_form1_textbox1))
      )
    )
  )
)
(dcl_form_show cal1_form1)

Lisphk

13808843088 发表于 2014-12-6 10:27
想多了，与text limit无关，在EditChanged事件中将焦点移到text box2中还不够，还要将text box2激活为编辑 ...

意思是把编辑框里面的文字亮显选中吗？

st788796

守仁格竹GM 发表于 2014-12-6 11:01
textbox1和textbox2有一个设置就都同步了，这是为什么呢。
另外还有一个疑问。就是我把名称改为cal1后里 ...

dcl控件名规则是  文件名_formx_xxxx
在事件勾选后控件名(指针)就确定了，不能改

守仁格竹GM

st788796 发表于 2014-12-6 11:10
dcl控件名规则是  文件名_formx_xxxx
在事件勾选后控件名(指针)就确定了，不能改

怪就怪在我文件名是cal1而不是cal。定义函数却只认cal

st788796

守仁格竹GM 发表于 2014-12-6 11:17
怪就怪在我文件名是cal1而不是cal。定义函数却只认cal

不注意就容易犯的错误，打开odcl，取消事件后重新勾选

守仁格竹GM

st788796 发表于 2014-12-6 11:24
不注意就容易犯的错误，打开odcl，取消事件后重新勾选

确实是这样，这个错误确实不容易发现{:soso_e113:}
接着第一个话题
textbox1和textbox2其中任何一个设置为同步即可实现功能，这是为什么呢

st788796

守仁格竹GM 发表于 2014-12-6 11:37
确实是这样，这个错误确实不容易发现
接着第一个话题
textbox1和textbox2其中任何一个设 ...

不明白你你说的是哪个例子？

newer

守仁格竹GM 发表于 2014-12-6 11:37
确实是这样，这个错误确实不容易发现
接着第一个话题
textbox1和textbox2其中任何一个设 ...

为什么不喜欢起个变量名去引用控件呢？ 文件名引用万一以后文件名变了怎么办？

st788796

newer 发表于 2014-12-6 11:56
为什么不喜欢起个变量名去引用控件呢？ 文件名引用万一以后文件名变了怎么办？

呵呵，那你就不怕变量重名！和别人的变量:)

守仁格竹GM

st788796 发表于 2014-12-6 11:40
不明白你你说的是哪个例子？

就比如你发的这个例子，
只给textbox1设置了1-Asynchronous，textbox2依然设置的是0-Synchronous，这样也实现了同步，
而不需要textbox1和textbox2都设置为1-Asynchronous