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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 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

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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。