当前位置：文档之家 › Visual Lisp 主程序结构分析

Visual Lisp 主程序结构分析

  • 格式：pptx
  • 大小：554.38 KB
  • 文档页数：15

下载文档原格式

  / 15

合集下载

Visual-LISP程序设计(第2版)第13章综合应用实例

Visual-LISP程序设计(第2版)第13章综合应用实例
//对话框文件结束
13.1.3 定义AutoLISP程序源文件
1. 函数说明
（1） screw：绘制螺钉主函数，定义名字为screw的AutoCAD命令。
（2）initdlg1：初始化主对话框函数。
（3）initdlg2：初始化子对话框函数，螺钉种类s_t是该函数的参数。
（4）f_img：初始化图像函数，将幻灯片显示到图像上。图像的关键字 key和包括路径的幻灯片文件名是该函数的参数。
螺钉的定位点和旋转角既可以在相 应的编辑框输入数值，也可以单击 “光标拾取<”按钮，用鼠标在屏幕上 确定。
（5）确定绘制螺钉的其他参数
因为螺钉的中心线可能与部件图上已 有的中心线重合，所以提供了“绘制中 心线”切换开关。当该开关处于打开状 态时绘制中心线。
对话框右下角的三个颜色块是确定三 种线型颜色的图像按钮，单击之后弹出 AutoCAD标准颜色对话框，选择一种颜 色之后，相应的图像按钮的颜色随之改 变 。 图 像 按 钮 的 含 义 ， 在 其 左 侧 用 text （文本）控件辅助说明。
2. 使用说明
（1）安装和加载 从电子教案中找出上述文件并复制到指定的路径，加载13-1.lsp。
（2）调用绘制螺钉的命令 种类确定螺钉的种类 在“command:”提示下，输入screw命令，弹出图13-1所示确定螺钉种类
对话框。
图13-1确定螺钉种类对话框
（3）确定螺钉的种类 图13-1所示对话框提供了互动的图像按钮和螺钉种类的列表，通过该对话框
选择一种螺钉，单击“继续”按钮，弹出图13-2所示确定螺钉参数的对话框。
图13-2确定螺钉参数对话框
（4）确定螺钉的几何参数
通过“螺钉大径d”的列表选择螺钉 的大径d。

AutoCAD 2008 Visual LISP二次开发入门到精通

AutoCAD 2008 Visual LISP二次开发入门到精通

第5章Visual LISP集成开发环境（2）在AutoCAD的命令提示行输入vlisp或者vlide。

5.2 Visual LISP环境界面Visual LISP环境界面如图5-2所示。

图5-2 Visual LISP编辑器Visual LISP环境界面由以下几部分组成：（1）菜单栏：Visual LISP编辑器提供了各式各样的菜单栏来调用Visual LISP的命令。

当某个菜单栏高亮显示时，Visual LISP就会在底部的状态栏上显示关于此命令的说明文字。

（2）工具栏：Visual LISP中一共有五个工具栏，通过单击工具栏按钮可以快速地调用Visual LISP命令。

每一个工具栏代表一个在Visual LISP中实现不同功能的命令组，大多数命令都可以在工具栏中调用。

将鼠标指针停留在工具栏某个按钮上几秒钟，将弹出说明该按钮功能的提示，同时在状态栏上会显示该功能的详细介绍。

（3）文本编辑器：Visual LISP包括了一个集成的文本编辑器，可以用来编辑AutoLISP 代码。

每打开一个文件，Visual LISP将新开一个文本编辑窗口，并在这个窗口的状态栏上显示文件名。

如果用户在编辑器中对代码作了改动，或者添加了新的文本，Visual LISP就会在文件后面显示一个星号“*”，保存或关闭文件之后星号消失。

（4）控制台：控制台是一个单独的，内容可以滚动的窗口。

在控制台中，可以像在AutoCAD命令行那样输入AutoLISP命令。

还可以在控制台窗口输入Visual LISP命令，以7980AutoCAD 2008 Visual LISP 二次开发入门到精通 附录367891011121312第5章 4代替使用菜单和工具栏命令。

（5）跟踪窗口：在启动Visual LISP 时，可以看到一个最小化了的跟踪窗口，该窗口显示Visual LISP 当前版本的信息，以及当启动Visual LISP 遇到错误时的出错信息。

pclvisualizer 析构

pclvisualizer 析构

pclvisualizer 析构
当涉及PCLVisualizer的析构时，我们需要考虑到PCLVisualizer对象的生命周期和资源管理。

PCLVisualizer是点云库（Point Cloud Library）中用于可视化点云数据的类，它提供了在3D空间中渲染和交互式查看点云数据的功能。

在C++中，对象的析构函数会在对象生命周期结束时被调用，用于释放对象所占用的资源和执行清理操作。

对于PCLVisualizer 对象的析构，主要涉及到以下几个方面：
1. 释放渲染窗口和相关资源，PCLVisualizer对象通常会创建一个渲染窗口用于显示点云数据，析构函数需要确保关闭和释放这个渲染窗口以及相关的图形资源，以防止资源泄漏。

2. 释放内存，在PCLVisualizer对象的生命周期结束时，需要释放对象内部使用的内存，包括点云数据、渲染缓冲区等。

3. 断开连接，如果PCLVisualizer对象与其他对象或数据源有关联，比如与点云数据对象关联，析构函数需要断开这些关联，以避免悬空指针或者访问已释放的资源。

在使用PCLVisualizer时，我们通常会在程序结束或者不再需要可视化时手动调用其析构函数，以确保资源能够得到正确释放。

另外，需要注意的是，如果PCLVisualizer对象是作为指针动态分配的，需要在不再需要时手动调用delete操作来触发析构函数的执行。

总之，PCLVisualizer对象的析构函数在对象生命周期结束时起着重要作用，它负责释放资源、断开关联，并执行必要的清理操作，以确保程序的稳定性和资源的正确释放。

VISUAL LISP的概念、功能和基本界面

VISUAL LISP的概念、功能和基本界面

36.1.1Visual LISP与AutoLISPLISP是List Processor（表处理程序）的缩写，主要用于人工智能（AI）领域。

AutoLISP是人工智能语言CommonLISP的简化版本，作为通用LISP语言的一个小子集，AutoLISP严格遵循其语法和惯例，但又添加了许多针对AutoCAD的功能。

Autodesk公司在AutoCAD 2.1版引入AutoCAD作为应用程序编程接口（API），用于扩展和自定义AutoCAD功能。

借助AutoLISP，用户可以用适合编写图形应用程序的强大的高级语言来编写宏程序和函数，并开发各种软件包。

AutoLISP易于使用，并且非常灵活，多年来一直是自定义AutoCAD的标准。

从AutoCAD R14开始，Visual LISP被引入到AutoCAD中，它增强并扩展了AutoLISP语言，可以通过Microsoft ActiveX Automatio n接口与对象交互，并扩展了AutoLISP响应事件的能力。

作为开发工具，Visual LISP提供了一个完整的集成开发环境（IDE），包括编译器、调试器和其他工具，可以提高自定义AutoCAD的效率。

另外，Visual LISP提供了发布用AutoLISP编写的独立应用程序的工具。

Visual LISP没有任何特殊的硬件需求，能运行AutoCAD系统即可运行Visual LISP。

36.1.2Visual LISP与AutoCADVisual LISP作为一个完整的集成开发环境（IDE），具有自己的窗口和菜单，但它并不能独立于AutoCAD运行。

当用户从Visual LIS P IDE中运行AutoLISP程序时，经常需要与AutoCAD图形交互或在命令窗口响应程序提示。

如果Visual LISP把控制传给AutoCAD时AutoCAD已被最小化，用户必须手动恢复并激活AutoCAD才可继续，Visual LISP不会自动恢复AutoCAD窗口。

Visual-LISP程序设计(第2版)第4章有关Visual-LISP的基本操作

Visual-LISP程序设计(第2版)第4章有关Visual-LISP的基本操作

（2）工具栏
Visual LISP提供了Standard、View、Debug、Tools和Search五 个工具栏 。
① Standard工具栏
建立一个新文件
打开一个已有的文件
存盘
打印输出
剪切
复制
粘贴
取消
恢复
完词功能
② Tools工具栏
装入当前编辑窗口的全部程序 装入选取的部分程序 对当前编辑窗口的全部程序语进行法检查 对选取的程序进行语法检查 对当前编辑窗口的全部程序格式化 对选取的程序进行格式化 将所选部分变为注释块 取消所选注释块的注释作用 在线帮助
4.4 文件操作
1. 建立一个新文件
选择菜单FileNew File或同时按下Ctrl+N键或点取按钮 空的文本编辑器窗口，用来建立一个新文件。
，将弹出一个
2. 打开一个已有的文件
选择菜单FileOpen File或同时按下Ctrl+O键或点取按钮
，将弹出
Open file to edit/view对话框，输入文件名，即可将指定的文件装入新的文本
（3）文本编辑窗口
Visual LISP 的 文 本 编 辑窗口除了具有一般文本编 辑器的全部功能外，还具有 适于AutoLISP的一些专用功 能。可以实现对AutoLISP程 序的编辑、调试、检测、编 译、运行等工作。
（4）控制台窗口
控制台窗口是Visual LISP主窗口中一个独立的可滚动窗口。 其形式与AutoCAD命令提示与信息反馈窗口类似。在控制台窗 口内可以输入AutoLISP表达式，也可以不用菜单或工具栏而 直接在控制台窗口发出Visual LISP命令。
编辑窗口，并在状态栏上显示文件名。如果对该文件进行了修改，Visual

visual LISP语言与编程

visual LISP语言与编程

8、字符处理函数
9、求值函数
10、表处理函数
my-circle mydraw ls
AutoCAD自带的A0\Support）
2019/4/20
9
xhm
6.4
AutoLISP编程
6.4.1 AutoLISP程序文件及其结构
1、AutoLISP程序文件 *.LSP 程序代码按默认设置格式化 以不同颜色表示
AutoCAD新命令和开发参数化绘图程序等。
2019/4/20
2
xhm
6.1 LISP、Auto LISP及Visual LISP LISP诞生于20世纪50年代末期，是人工智能学科领域广泛应用的程 序设计语言 AutoLISP 嵌套于 AutoCAD 内部，是 LISP 语言与 AutoCAD 有机结合 的产物 AutoLISP 具备一般高级语言的基本结构与功能，还具有强大的图形 处理功能 Visual LISP（简称 VLISP）是一个用 AutoLISP语言进行程序开发的 软件工具，提供集成开发环境（ Integrated Development Environment， IDE），可进行编写程序代码、调试程序等操作
2019/4/20 13
xhm
6、command函数 利用command函数，AutoLISP几乎可以调用AutoCAD的全部命令，从 而能够利用AutoLISP程序完成各种绘图工作 (command <参数表>)
例:
划线 (command “line” “100,120” “23,116” “”) 或 (command “line” ‘(100 120) ‘(23 116) “”)
(c:ls)
2019/4/20
8

AutoLISP和Visual LISP


在AutoLISP中，符号的大小写等价，符号的长 度没有限制，且所有的字符都是有意义的。 如果一个符号的长度不超过6，就用节点本身来存
储；如果符号的长度超过6，这样的符号就不能用节
点来存储，而是在节点中存放一个指向实际存储符号 名的指针。这将会多占用存储空间，且减慢了执行速 度。因此，符号的长度最好不要超过6。
5. 函数（SUBS）
函数相当于子程序或过程。函数分为内部函数和外部函数 。AutoLISP提供的或用AutoLISP定义的函数为内部函数。用 ADS、ADSRX或ARX定义的函数为外部函数。例如sin 、cos 、sqrt为内部函数。 运算符在AutoLISP里属于函数，例如“＋”、“－”、 “*”、“/”分别称之为加、减、乘、除函数，“<”、“<=”
2. 实型（REAL）
实型数是带小数点的数。在-1和1之间的实数必须以0开头，例 如：.5是错误的，应该写成0.5。实数用双精度的浮点数表示，并 且至少有14位有效位数的精度。注意，Visual LISP不显示所有的 有效位。
3. 字符串（STR）
字符串是由一对双引号括起来的字符序列。通常又把构成字符 串的双引号对称为字符串界定符。字符串中字母的大、小写和空 格符。 AutoLISP对字符串有如下约定： 字符串中，同一字母的大小写认为是不同的字体，空格也是一个 有意义的字符。 字符串的长度指位于双引号之间的字符个数（不包括双引号)。 如果在字符串的定界符之间无任何字符，称其为空串，它的长度 为零。 任何字符都可以用\nnn的格式表示，其中反斜杠“\”是ASCII 码的前导标识字符，nnn是该字符八进制的ASCII码。例如，字 符串ABCD也可表示为\101\102\123\104。一些常用的控制字符， 象反斜杠、双引号，除了可以用 \nnn的格式表示之外，还可以 用“\”转义字符的格式表示为“\\”、“\"”等特殊字符，见下表 。

Visual_LISP指南

Visual_LISP指南目录第一章简介 (1)1.1 使用 Visual LISP (1)1.2教程概述.............................................................1 第二章设计和开始编程. (2)2.1定义整个程序的目标 (2)2.2Visual LISP 入门 (2)2.2.1查看Visual LISP 等待控制从AutoCAD 返回的步骤 (2)2.2.2使用Visual LISP 开始编写应用程序的步骤 (3)2.3Visual LISP 代码格式设置 (4)2.4分析代码 (4)2.5填补程序 (4)给应用程序加上简单空函数的步骤 (4)2.6让Visual LISP 检查您的代码 (5)2.7在Visual LISP 中运行程序 (6)2.8第一课回顾...........................................................6 第三章使用Visual LISP 调试工具.. (7)3.1局部变量和全局变量的区别 (7)3.1.1在程序中使用局部变量 (7)3.1.2检查gp:getPointInput 函数 (8)3.2使用关联表来捆绑数据 (9)3.2.1使用关联表 (10)将gp:getPointInput 的返回值保存到变量中 (10)3.3检查程序变量 (11)3.4修改程序代码 (12)3.5给程序代码加注释 (14)3.6设置断点并进行更多监视 (15)3.6.1使用“调试”工具栏 (15)3.6.2单步执行代码 (17)3.6.3单步执行程序时监视变量 (17)3.6.4跳出函数gp:getPointInput 并进入C:Gpmain (18)3.7第二课回顾..........................................................19 第四章绘制小路边界.. (20)4.1规划可重用的实用程序函数 (20)4.1.1将度转换为弧度 (20)4.1.2将三维点转换为二维点......... (20)4.2绘制 AutoCAD 图元 (22)4.2.1使用ActiveX 函数创建图元 (22)4.2.2使用entmake 创建图元 (22)4.2.3使用AutoCAD 命令行 (22)4.3启用边界轮廓绘制函数 (22)4.3.1向函数传递参数 (23)4.3.2使用关联表 (23)4.3.3使用角度并设置点 (24)4.3.4理解gp:drawOutline 中的ActiveX 代码 (25)4.3.5确保已加载ActiveX (26)4.3.6获取指向模型空间的指针 (26)4.3.7构造多段线端点数组 (27)4.3.8由点表构造变体 (28)4.3.9程序集成 (28)4.4第三课回顾..........................................................30 第五章创建工程和添加界面.. (32)5.1模块化代码 (32)5.2使用 Visual LISP 工程 (33)5.3添加对话框界面 (33)5.3.1用DCL 定义对话框 (33)3.5.2保存DCL 文件 (36)3.5.3预览对话框 (36)5.4用AutoLISP 代码与对话框交互 (37)5.4.1设置对话框的值 (37)5.4.2加载对话框文件 (37)5.4.3将指定对话框加载到内存中 (38)5.4.4初始化默认的对话框值 (38)5.4.5给控件指定动作 (38)5.4.6启动对话框 (40)5.4.7卸载对话框 (40)5.4.8确定下一步的动作 (40)5.4.9代码集成 (41)5.4.10更新简单空函数 (41)5.5提供可选的边界线类型 (42)5.6清除反应器 (43)5.7运行应用程序 (43)5.8第四课回顾..........................................................44 第六章绘制砖. (45)6.1更多的Visual LISP 编辑工具 (45)6.1.1括号匹配 (45)6.1.2自动完成词语 (45)6.1.3按系统匹配完成词语 (46)6.1.4获取函数帮助 (46)6.2在花园小路中添加砖 (47)6.2.1应用逻辑知识 (47)6.2.2几何分析 (47)6.2.3绘制一行砖 (47)6.2.4绘制每一行砖 (50)6.2.5阅读代码 (51)6.3测试代码 (53)6.4第五课回顾..........................................................54 第七章使用反应器. (55)7.1反应器基础 (55)7.1.1反应器类型 (55)7.2设计花园小路应用程序的反应器 (55)7.2.1选择花园小路应用程序的反应器事件 (55)7.2.2规划回调函数 (56)7.2.3规划多重反应器 (57)7.2.4附着反应器 (57)7.2.5用反应器存储数据 (58)7.2.6更新C:GPath 函数 (58)7.2.7添加反应器的回调函数 (61)7.2.8清除反应器 (61)7.3测试反应器 (62)7.3.1详细检查反应器的行为 (63)7.4第六课回顾..........................................................63 第八章程序集成.. (64)8.1规划反应器整体过程 (64)8.1.1响应更多的用户调用命令 (65)8.1.2将信息保存在反应器对象中 (66)8.2添加新的反应器功能 (68)8.2.1实现对象反应器的回调函数 (69)8.2.2设计gp:command-ended 回调函数 (70)8.2.3处理多种图元类型 (70)8.2.4在反应器回调函数中使用ActiveX 方法 (71)8.2.5处理非线性的反应器序列 (71)8.2.6编写command-ended 函数 (73)8.2.7更新gp:Calculate-and-Draw-Tiles (76)8.2.8修改其他调用gp:Calculate-and-Draw-Tiles 函数的代码 (78)8.3重新定义多段线边界 (79)8.3.1查看gppoly.lsp 文件中的函数 (79)8.3.2理解gp:RedefinePolyBorder 函数 (80)8.3.3理解gp:FindMovedPoint 函数 (80)8.3.4理解gp:FindPointInList 函数 (81)8.3.5理解gp:recalcPolyCorners 函数 (82)8.3.6理解gp:pointEqual 、gp:rtos2 和gp:zeroSmallNum 函数 (82)8.4代码回顾 (82)8.5生成应用程序 (83)8.5.1启动“生成应用程序”向导启动“生成应用程序”向导 (83)8.6教程回顾 (84)8.7LISP 和AutoLISP 参考书 (84)第一章简介本教程用于示范 AutoCAD.的 AutoLISP. 编程环境的一些强大功能，并介绍 AutoLISP 语言的新功能。

Lisp程序结构

Lisp程序结构;;在明经混了许多年，又在晓东混了几年了，渐发现原来写的程序不是太合理，全改又没有那么多精力了.;;对于lisp程序结构，我自己有了自己的看法，自己总结一下，今后套用这种格式。

自贡黄明儒 2014.10.15;;1 建立通用和自定义函数库,分别保存为Public.lsp和MyLsp.lsp，今后加载和修改就方便了;;今后只需要加载两个文件，这就方便了；通用函数的建立，给自己修改来方便。

;;2 自定函数(defun C:w1 (/ CMD1 OSM1 SS);;2.1 错误处理;;定义在函数内部，作用范围也只限于此函数。

;;写在开头，以保证后面的代码发生错误，均会执行错误处理。

(defun *error* (msg);;2.1.1 写在开头，错误处理反跟踪，找出调试错误所在。

调试完毕后，可注释掉(vl-bt);;2.1.2 如果命令还在执行，中断它(while (not (equal (getvar "cmdnames") "")) (command nil));;2.1.3 在错误发生之前改变的变量，发生错误时后面的代码不再执行，必须恢复(setvar "nomutt" 0);容量忘了它，没恢复成0后面使用起来怪怪的(cond (cmd1 (setvar 'cmdecho cmd1)))(cond (osm1 (setvar 'osmode osm1)))(princ "\n 出错啦!");;2.1.4 静默退出(princ));;2.2 其它临时函数，非通用的();;2.3 一般说来，执行一个程序，总是要选择对象。

如果希望先择后执行，就要有这句，而且写在开头(cond ((cadr (ssgetfirst)) (setq ss (ssget "_P" '((0 . "*TEXT"))))));;2.4 检查加载vl扩展，有这句没有坏处，也不会造成程序多大的额外负担，因为如果已经加载扩展，不做任何事情(VL-LOAD-COM);;2.5 *acad* 是常用的，不必释放。

Visual LISP程序设计 for AutoCAD

8
（续）
三、关于Visual LISP
Vusual LISP是在AutoLISP的基础上开发的，它加速了AutoCAD内 嵌AutoLISP程序开发，并且变成了一个完整的集成开发环境。具 备了相应的其它高级程序语言的一系列功能。
四、 Vusual LISP集成环境
1、进入：打开AutoCAD软件，在命令行输入：vlide,或在下拉菜单
般不用数据溢出。 注：在-1到+1之间的小数必须书写完整，不能将0.5写成.5
实型数可以用科学计数法来表示：如1234.56可以写成1.23456E3 或12.3456E2等。
13
续
• 字符串（str):是用双引号括起来的字符序列。字符串中的字
母的大小写和空格都有效。
字符串中的字符个数称为字符串的长度。如“1236”的长度为4， “我爱你，中国！”的长度为7， “我爱你 中国！”的长度也为 7。但当字符串中没有任意字符时，其长度为0。如“”长度为0。 又如“ ”的长度为1，因为双引号中有一个空格。
12
第二章：数据类型、表达式和函数
2.1 数据类型
• 1、整型(int)：就是整数。由数字和正负号组成。整数的范围是：
-2147483648到+ 2147483647 （约20亿） 这个范围不需要大家强记，计算机存储整数是有一定范围的， 不是任意整数都能存储。
2、实型(real)：就是带小数点的数。这个类型的数范围非常大，一
7
第一章：概述
一、关于LISP
LISP（list processing language):广泛应用的一种程序设计语言， 主要用于人工智能，专家系统，博弈等领域。它也被称之为符号 式语言，因为它主要处理对象是符号表达式。
  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

2、窗体处理子程序
//以下语句是对图像框的处理子程序 (defun image1(key image_name / x x);//加载图形，其中key为前面图象控 件中的Key值，所调用的image_name为前面幻灯片名称，这里是形参， 无需具体名称。 (start_image key) //开始图像 (setq x (dimx_tile key) //获取图形控件宽度 y (dimy_tile key) //获取图形控件长度 ) (fill_image 0 0 x y 250) //图向从（0，0）点开始，到（x，y）结束，以 250号颜色即黑色为背景填充图形控件 (slide_image 0 0 x y image_name) //加载图形，为完全布满 (end_image) //结束图象 ) 添加数据处理及绘图子程序和前面主程序合并成一个程序文件，取名为 jxflhz.lsp保存在以下目录： <AutoCAD 目录> AutoCAD 2008\Support\
(setq bz4 (list (+ x (/ (- d db) 2) db) (+ y b)))
(setq bz5 (list (+ x (/ (- d dn) 2) dn) (+ y b)))
(setq bz6 (list (+ x d) (- (+ y b) hb)))
标注图
绘制点赋值
(setq p1 (list x y));定义关键点为作图 (setq p12 (list x (- (+ y b) hb))) 用 (setq p13 (list (+ x (/ d 2)) (+ y b))) (setq p2 (list (+ x (/ (- d da dl) 2)) y)) (setq p14 (list (+ x (/ d 2)) (+ y h ha))) (setq p3 (list (+ x (/ (+ (- d da) dl) 2)) y)) (setq p15 (list (+ x (/ d 2)) (+ y h))) (setq p4 (list (+ x (- (/ (- d dn) 2) (* ha (setq p16 (list (+ x (/ d 2)) (+ y ha))) (+ (/ (sin fb) (cos fb)) (/ (cos fc) (sin (setq p17 (list (+ x (/ d 2)) y)) fc)))))) y)) p18 (list (+ x (/ (- d da) 2)) (- y (setq p5 (list (+ x (- (/ (- d dn) 2) (* ha (setq 20))) (/ (cos fc) (sin fc))))) (+ y ha))) p19 (list (+ x (/ (- d da) 2)) (+ y ((setq p6 (list (+ x (- (/ (- d dn) 2) (* ha (setq b hb) 20))) (/ (cos fc) (sin fc))))) (+ y h))) (setq p7 (list (+ x (/ (- d dn) 2)) (+ y h (setq p20 (list (+ x (/ d 2)) (+ y b 20))) (setq p21 (list (+ x (/ d 2)) (- y 20))) ha))) (setq p8 (list (+ x (/ (- d dn) 2)) (+ y b))) ) (setq p9 (list (+ x (/ (- d db) 2)) (+ y b))) (setq p10 (list (+ x (/ (+ (- d da) dl) 2)) (- (+ y b) hb))) (setq p11 (list (+ x (/ (- d da dl) 2)) (- (+ y b) hb)))
全局程序解释
(defun c:jxflhz();定义全局程序名称为jxflhz //以下语句用于窗体调用和程序处理 (setq dcl_id(load_dialog "jxfl.dcl")) //其中load_dialog表示加载窗体，"jxfl.dcl"为窗体 文件，获取加载窗体文件的句柄，用于下面的判断。 (if (< dcl_id 0) (exit) ) (if (not (new_dialog "jxfl" dcl_id)) (exit)) //以上两句为判断窗体文件是否存在，若 不存在即退出。 (image1 "jxfl_image" "jxflsl") //定义图形函数，其中"jxfl_image"为前面图象控件 中的Key值，jxflsl为幻灯片名称，在程序调用中用到，并已在相同目录下存盘。 (action_tile "accept" "(data_set)") //当按下确定键时，执行数据处理子程序data_set，将该子程序直接添加到本主 程序后面，减少调用麻烦。 (start_dialog) //加载窗体，对话框中开始输入数据 (unload_dialog dcl_id) //卸载窗体 (draw_jxfl) //执行绘图子程序，将前面调通的子程序直接添加到本主程序后面 )
主程序的组成
1、全局调用程序 2、窗体处理子程序 3、数据读入子程序 4、图形绘制子程序
1、全局调用程序
源程序： (defun c:jxflhz();定义命令 (setq dcl_id(load_dialog "jxfl.dcl"));加载窗体 (if (< dcl_id 0) (exit) ) (if (not (new_dialog "jxfl" dcl_id)) (exit)) (image1 “jxfl_image” “jxflsl”);定义图形函数，“jxfl_image”在dcl文件中 (action_tile "accept" "(data_set)") (start_dialog) (unload_dialog dcl_id) (draw_jxfl);执行绘图程序 )
Visual Lisp 主程序结构分析
华南理工大学化学与化工学院2016 年LGFANG@ 方利国
开发的图形
对话框
对话框程序
• • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • jxfl:dialog{ //创建新窗体，代号为jxfl • label="甲型法兰"; //窗体名称 • :row{ //全局横向排列 • :boxed_column{ //框中列，既纵向边框为 • 全局大行中的第一列 • label="法兰参数"; //边框名称 • :edit_box{ //编辑框，以下所有的编辑 • 框为全局大行中的第一列中的框中列元素 • label="法兰直径DN:"; //编辑框名称 • key="dn"; //编辑框key值 • edit_limit=15; //字符数限定 • edit_width=10; //编辑框宽度 • value=1000; //缺省值 • } • :edit_box{ • label="D3:"; • key="db"; • edit_limit=15; • edit_width=10; • value=1055; • } • :edit_box{ • label="螺孔心距D1:"; • key="da"; • edit_limit=15; • edit_width=10; • value=1090; • } • :edit_box{ • label="法兰两端距离D："; • key="ddd"; • edit_limit=15; • edit_width=10; • value=1130; • } • :edit_box{ • label="法兰厚度b:"; • key="bbb"; • edit_limit=15; • edit_width=10; • value=48; label="螺孔直径DL:"; key="dl"; edit_limit=15; edit_width=10; value=23; } :edit_box{ label="h:"; key="hhh"; edit_limit=15; edit_width=10; value=13; } :edit_box{ label="h1:"; key="ha"; edit_limit=15; edit_width=10; value=3; } :edit_box{ label="凸台高度h2:"; key="hb"; edit_limit=15; edit_width=10; value=3; } :edit_box{ label="倒角θ1:"; key="ja"; edit_limit=15; edit_width=10; value=45; } :edit_box{ label="倒角θ2:"; key="jb"; edit_limit=15; edit_width=10; value=60; • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • label="倒角θ3:"; key="jc"; edit_limit=15; edit_width=10; value=30; } } :column{ 列 //纵向排列，为全局大行中的第二