yingxy1234 发表于 2022-9-13 10:27:46

[已解决]很简单的一个程序，为什么运行了主函数pm，其他的几个事件函数不会有反应的？

本帖最后由 yingxy1234 于 2022-11-7 15:16 编辑

初学OpenDCL做对话框，很简单的一个程序，为什么运行了主函数pm，其他的几个事件函数不会有反应的？调试了好几天，都没找出问题，请指教

(command "_OPENDCL")

(defun c:pm ()
   (dcl-Project-Load "PM1.odcl" T)
   (dcl-Form-Show PM1/FormPM1)
   (princ "a")
)

// 运行pm命令，为什么后面这三个函数（form初始化函数，两个按钮的点击函数）都不会运行，都没反应的
(defun c:PM1_FormPM1#OnInitialize (/)
   (dcl-Control-SetCaption PM1/FormPM1/lb1 "Something")
)
(defun c:PM1_FormPM1_TextButtonDraw#OnClicked (/)
      (setq sText (dcl-Control-GetText PM1/FormPM1/tb1))
      (dcl-messagebox(strcat"You typed: "sText))
      (dcl-Form-Close PM1/FormPM1)      
      (princ)
)
(defun c:PM1_FormPM1_TextButtonCancel#OnClicked(/)
      (setq sText (dcl-Control-GetText PM1/FormPM1/tb2))
      (dcl-messagebox(strcat"You typed: "sText))
      (dcl-Form-Close PM1/FormPM1)
      (princ)
)



define 发表于 2022-9-19 09:33:38

显示得窗体和事件响应的窗体不是同一个名称，PM1/FormPM1和PM1_FormPM1

define 发表于 2022-9-19 09:45:20

应该这样绑定

yingxy1234 发表于 2022-11-7 15:15:44

谢谢，已经解决，是没有点下面的那个“Add to File”

zizhumeizhilian 发表于 2022-12-6 12:45:23

批量统计文字生成表格      

zizhumeizhilian 发表于 2022-12-6 12:49:05

zizhumeizhilian邀请您访问晓东CAD家园-论坛 http://bbs.xdcad.net/?fromuid=776841
页: [1]
查看完整版本: [已解决]很简单的一个程序，为什么运行了主函数pm，其他的几个事件函数不会有反应的？