请教老师：加载OpenDcl的问题入门了，但是点击操作按钮的事件不能实现

xdcad9819 · 发表于 2024-12-23 23:32:30

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

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

×

本帖最后由 xdcad9819 于 2024-12-29 22:12 编辑

老师：您好！刚刚接触OpenDcl制作CAD 对话框，加载ODCL文件的问题入门了，这里是一个绘制圆的问题，请教各位老师

登录/注册后可看大图

(defun c:hello()
(command "opendcl");加载ODCL的函数库
(dcl_project_load "H:\\LISP练习程序\\dcl文件\\绘制圆.odcl" T) ;加载ODCL文件
(dcl_form_show 绘制圆_绘制圆);显示对话框,格式是文件名_窗体名
(princ)
)

(defun c:绘制圆/绘制圆/OK#OnClicked (/)
(setq 圆心X坐标 (dcl-Control-GetText 绘制圆/绘制圆/TextBox1))
(setq 圆心Y坐标 (dcl-Control-GetText 绘制圆/绘制圆/TextBox2))
(setq 半径 (dcl-Control-GetText 绘制圆/绘制圆/TextBox3)
(command "circle" (list 圆心X坐标圆心Y坐标) 半径 "")
)

附件是ODCL文件

谢谢老师的指导

xdcad9819 · 发表于 2024-12-29 22:13:17

点按钮，不能绘制出圆

xdcad9819 · 发表于 2025-1-1 20:46:21

有使用OPEN DCL的老师吗？

XDSoft · 发表于 2025-1-6 16:32:32

xdcad9819 发表于 2024-12-29 22:13
点按钮，不能绘制出圆

回调函数里面，点ok按钮后，先关闭对话框 dcl-form-close

xdcad9819 · 发表于 2025-1-6 22:20:38

已经解决了

xdcad9819 · 发表于 2025-1-6 22:48:21

问题是在ODCL中修改了窗体的NAME，导致按钮的操作事件不能执行，也就是代码根本没有运行到那里去

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

[你问我答] 请教老师：加载OpenDcl的问题入门了，但是点击操作按钮的事件不能实现

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

点评

浏览过的版块