opendcl 与vlisp 之间的变量作用域好乱啊,大家是怎么管理的?

挚友01 · 发表于 2016-3-10 12:57:06

好好好，就要这样的解释，非常非常的感谢！

挚友01 · 发表于 2016-3-10 22:13:26

错误: no function definition: C:PDPBZ1_FORM1_TEXTBUTTON1_ONCLICKED
这个"关闭主窗口"不是在主程序中吗,怎么?????????????
(defun jxt_DCL0(qze bptbz dcl_fn_1 val_7 / intResult row_val row_val1 row_val2 project-path fil f l
                        c:PDPBZ_Form1_OnInitialize
                        c:PDPBZ1_Form1_GraphicButton1_OnClicked
                        c:PDPBZ1_Form1_GraphicButton2_OnClicked
                        c:PDPBZ1_Form1_GraphicButton3_OnClicked
                        c:PDPBZ1_Form1_TextBox4_OnEditChanged
                        c:PDPBZ1_Form1_TextBox5_OnEditChanged
                        c:PDPBZ1_Form1_TextBox2_OnEditChanged
                        c:PDPBZ1_Form1_TextBox3_OnEditChanged
                        c:PDPBZ1_Form1_TextBox1_OnEditChanged
                        c:PDPBZ1_Form1_OptionButton1_OnClicked
                        c:PDPBZ1_Form1_OptionButton4_OnClicked
                        c:PDPBZ1_Form1_OptionButton3_OnClicked
                        c:PDPBZ1_Form1_OptionButton5_OnClicked
                        c:PDPBZ1_Form1_TextButton1_OnClicked
                        c:PDPBZ1_Form1_TextButton2_OnClicked
                        c:PDPBZ1_Form1_OnInitialize
                        c:PDPBZ_Form1_OptionButton2_OnClicked
                        c:PDPBZ_Form1_OptionButton3_OnClicked
                        c:PDPBZ_Form1_OptionButton4_OnClicked
                        c:PDPBZ_Form1_ComboBox1_OnEditChanged
                        c:PDPBZ_Form1_ComboBox1_OnSelChanged
                        c:PDPBZ_Form1_TextBox1_OnEditChanged
                        c:PDPBZ_Form1_TextBox2_OnEditChanged
                        c:PDPBZ_Form1_TextBox5_OnEditChanged
                        c:PDPBZ_Form1_TextBox6_OnEditChanged
                        c:PDPBZ_Form1_TextBox3_OnEditChanged
                        c:PDPBZ_Form1_TextBox4_OnEditChanged
                        c:PDPBZ_Form1_Grid1_OnSelChanged
                        c:PDPBZ_Form1_TextButton2_OnClicked
                        c:PDPBZ_Form1_TextButton3_OnClicked
                        c:PDPBZ_Form1_TextButton4_OnClicked
                        c:PDPBZ_Form1_TextButton5_OnClicked
                        c:PDPBZ_Form1_TextButton6_OnClicked
                        c:PDPBZ_Form1_TabStrip1_OnSelChanging
                        c:PDPBZ_Form1_TextButton1_OnClicked
                        c:PDPBZ_Form1_TextButton9_OnClicked
                        c:PDPBZ_Form1_TextButton8_OnClicked
                        c:PDPBZ_Form1_TextButton7_OnClicked
                        c:PDPBZ_Form1_Grid1_OnEndLabelEdit

(setq fjs (* val_7 kx))
(defun c:PDPBZ1_Form1_OnInitialize (/) ; 初始化
(dcl_MessageBox (rtos fjs 2 2))
(dcl_Control_SetText PDPBZ1_Form1_TextBox3 (rtos fjs 2 2))
(dcl_Control_SetText PDPBZ1_Form1_TextBox1 (rtos val_7 2 2))

)
;;关闭主窗口
(defun c:PDPBZ1_Form1_TextButton1_OnClicked (/)
(setq bptbz nil)
(dcl_Form_Close pdpbz1_form1 1)
(dcl_Project_Unload "pdpbz1")
;右上角的 x 关闭按钮失效
(defun c:pdpbz1_form1_OnCancelClose (Reason /)
  (/= Reason T)
)
(vl-load-com)
(command "_OPENDCL")
(if (null (vl-symbol-value 'dcl_getversionex))  (loadRtime))
(if (not (setq project-path (dcl_Project_Load "pdpbz1.odcl" T)))
(progn ;项目无法加载，报告或记录错误
   (alert (strcat "* * * 在CAD搜索目录中未找到[" pdpbz1.odcl "]文件!"))
   (exit) ;立即退出 (或采取纠正动作并重试)
)
(dcl_FORM_SHOW PDPBZ1_Form1)
)
)  ; end 主程序结束
)

挚友01 · 发表于 2016-3-11 08:17:25

为什么在主程序中的控制函数都不认啊?????????

挚友01 · 发表于 2016-3-11 20:12:21

怎么回事,谁能指教一下,在线等待...

挚友01 · 发表于 2016-3-12 07:34:26

????????????/

挚友01 · 发表于 2016-3-12 14:46:07

本帖最后由挚友01 于 2016-3-12 16:34 编辑

kao...废了我好几个小时,终于找到了,原来非模态化窗口这样定义是不行的...难到这是opendcl中的bug ?

挚友01 · 发表于 2016-3-12 22:33:25

大家碰到过这样的事情吗?都是怎么处理的?

newer · 发表于 2016-3-12 23:59:29

挚友01 发表于 2016-3-12 14:46
kao...废了我好几个小时,终于找到了,原来非模态化窗口这样定义是不行的...难到这是opendcl中的bug ?

你是怎么定义的？

挚友01 · 发表于 2016-3-13 09:15:28

模态化是可以在主程序中defun c:xx(/ qyy ....)
qyy 在其子程序中可以一直继承其值,可非模态化只有定义是永久变量了，且模态化与非模态化之间只能用永久变量来进行数据传递，一大堆永久变量,郁闷！
模态化:(defun jxt_DCL0(/ MX-2017 y_tt row_val row_val1 row_val2 project-path fil f l tem pc1 lc9 list_tm1 list_tm1 qzef
                        c:PDPBZ1_Form1_OnInitialize
                        c:PDPBZ1_Form1_GraphicButton1_OnClicked
非模态化只有 (defun jxt_dcl01() 其内所有变量都要是永久的 ^___^

csharp · 发表于 2016-3-13 15:06:39

挚友01 发表于 2016-3-13 09:15
模态化是可以在主程序中defun c:xx(/ qyy ....)
qyy 在其子程序中可以一直继承其值,可非模态化只有定义是 ...

初始化事件中定义各个值，显示到界面
OK执行事件中从界面取出各个值，关闭后使用值运行

挚友01 · 发表于 2016-3-13 15:45:37

OK执行事件中从界面取出各个值，意思是将值还是要赋给永久变量?

eachy · 发表于 2016-3-13 22:19:43

挚友01 发表于 2016-3-13 15:45
OK执行事件中从界面取出各个值，意思是将值还是要赋给永久变量?

一般Model对话框，OK后直接执行功能代码，无需保留变量

挚友01 · 发表于 2016-3-13 23:08:32

我要是的从一个对话框取值后,再返回到上一主对话框,也可以再执行其它功能...
因在主程序中有n个局部变量(setq l1 '(........) l2...........)
经对话OPENDCL对话后,好象已退了主程序,此时在主程序设定的变量全为nil
所以,所以...不知怎么办了....

挚友01 · 发表于 2016-3-13 23:54:08

还有就是这个返回程序,好象没真正关闭当前的非模态对话框,是因为在非模态化控制中执行的(dcl_Project_Unload "pdpbz")
(defun c:PDPBZ_Form1_TextButton10_OnClicked (/ tem f c)
(dcl_Form_Close pdpbz_form1 2)
(dcl_Project_Unload "pdpbz") ;关闭当前非模态对话框
(setq doContinue T)
(while doContinue
  (setq doContinue nil)
  (setq intResult (dcl_FORM_SHOW PDPBZ1_Form1)) ; 模态化对话框
  (cond
   ((= intResult 1) (setq doContinue nil))
   ((= intResult 2) (setq doContinue nil))
   ((= intResult 3) (PDS_QY_DCL))
   ((= intResult 4) (PDP-HZdcl))  ; CAD执行程序,其中有(command 这里出错了.....
); cond
)
)
如何真正的关闭非模态对话框"pdpbz",返回上一级模态化对话框?????????

csharp · 发表于 2016-3-14 09:04:33

用 Hide 方式， close 后就没有数据了

账号		自动登录	找回密码
密码			立即注册

[研讨] opendcl 与vlisp 之间的变量作用域好乱啊,大家是怎么管理的?

点评

点评

点评