cad预览OpenDCL 对话框加载odcl文件OpenDCL触发事件（第二节）

发表评论

A+

要是开发人员会vb/C#或者其他编程软件，对于OpenDCL对话框布局制作一个，简直是毛毛雨，但是在接触新的一个软件或者语言的时候，语言以及用法完成变了，这个就导致和以前用的完全不一样，要是根据原来的思路来，完全行不通，就拿VB来说，只有界面出口绘制出来了，直接点击该控件就可以进行编程写触发事件，但在这个OpenDCL，你点个试试，不鸟你，根本就不能按照以前的来干，但是大致意思是一样，只是语法有的不一样，下面介绍如何启动一个绘制好的窗口，如何触发一个按钮事件

A、预览窗口。加载odcl

1、绘制好自己窗口界面

2、在左下角像文件夹一样的地方右键添加一个lsp文件（右键选择添加lisp文件，从下往上数第4个）

如果没有lsp文件，自己先新建一个启动代码就写在里面的哦。

3、保存（设置好后，必须保存，窗口文件和lsp文件放在一个哦）

B、触发事件。

1、选择需要处理事件的控件，

2、选择事件栏

3、选择事件栏里面的Clicked，并打钩

4、复制下面生成的事件代码

5、打开刚刚新建的lsp文件，粘贴在里面，并保存。

如OpenDC图，

窗口预览、事件实践

1、打开CAD，打开lsp编辑器（命令 _vlide），没有的话需要在官网下载，貌似高版本没有自带需要自己安装

2、打开lsp编辑器后，在打开刚刚在创建对话窗口新建的lsp文件，在里面添加启动预览和事件代码

代码如下，启动命令 hj

(defun c:HJ ()

(command "OPENDCL");必须加载

(dcl_Project_Load "F:/软件源码/cad开发资料/2006/测试/CN/CNC.odcl" T);对话框路径文件

(dcl_Form_Show CNC_Form1);显示窗口，注：cnc表示文件名称，Form1表示窗口名称

(princ)

)

;按钮事件

(defun c:CNC/Form1/TextButton1#OnClicked (/)

(dcl-MessageBox "To Do: code must be added to eventhandler\r\nc:CNC/Form1/TextButton1#OnClicked" "To do")

)
复制