Visual LISP 第5章 编辑源程序代码(2)文本操作

1.设置AutoLISP代码格式的对话框 工具->环境选项->VisualLISP格式选项. 文本右边距:定义域为20-200. 窄样式向右缩进的宽度:1-6. 表达式第一个参数的长度,如果表达式的第一个参数超出该长度,则其余的参数移至下一行.不小于张样式向左缩进的宽度. 2.改变代码的格式 工具->设置编辑器中代码的格式.或者单击. 更改前: 更改后: 3.格式编排快捷菜单 Visual LISP提供了格式设置的快捷菜单.在活动的文本编辑器窗口按Ctrl+E即可弹出. 4.选取的文本输

1.检查括号是否匹配 有关括号操作的快捷键 组合快捷键 功能 Ctrl + ] 如果光标的右边是右括号,则将光标移到到该右括号之后:如果光标的右边是左括号,则将光标移动到和它匹配的右括号之后 Ctrl + [ 如果光标的左边是左括号,则将光标移动到该左括号之前,如果光标的左边是右括号,则将光标移动到和它匹配的左括号之前 Ctrl + Shirt + ] 如果光标的右边是右括号,则将光标移动到该后括号之后,如果光标的右边是左括号则将光标移动到和它匹配的右括号之后,并且选取期间的所有文本 Ctrl

1.建立一个新文件 文件->新建文件 Ctr+N 2.打开已有文件 文件->打开文件 Ctr+O 3.重新打开文件 文件->重新打开文件 4.建立文件的备份 Visual LISP可自动建立自由文本编辑器加载文件的备份.实际的备份操作是在第一次保存文件时执行的.备份文件与原文件名相同,后缀以下划线"_"开头,后跟原后缀中的前两个字符. 5.在VisualLISP环境下加载AutoLISP程序 加载AutoLISP程序的目的是运行AutoLISP程序.在VisualLI

1.进入Visual LISP 工具->AutoLISP->Visual LISP编辑器.或者在命令提示中键入:vlide,便可进入Viausl LISP的用户界面. 2.退出 关闭按钮,或者文件->退出.注意,此时AutoCAD并没有将Visual LISP卸载,而只是把所有的VisualLISP窗口关闭.在下一次启动VisualLISP任务时,VisualLISP将自动打开上次退出时打开的文件盒窗口. 3.切换到AutoCAD窗口 Alt+Tab就挺好使的.Visual LISP 窗

1.菜单 菜单 功能 文件 创建新的或修改已有的AutoLISP程序文件,编译或打印程序文件等 编辑 赋值和粘贴文本,匹配表达式中的括号,或赋值控制台窗口内以前的输入等 搜索 查找和替换文本字符串,设置书签,或利用书签操作等 视图 查找和显示程序代码中的变量和符号值等 工程 使用工程和编译.链接程序等 调试 调试程序,检查变量状态和表达式结果 工具 设置VisualLISP文本格式化选项和各种环境选项等 窗口 窗口管理 帮助 在线帮助 2.工具栏 3.文本编辑窗口 VisualLISP的文本编辑

1.AutoLISP文件的特点 AutoLISP文件的扩展名为".lsp",是由若干个AutoLISP表达式构成的. 虽然在“Command:”提示下,通过键入AutoLISP表达式的方法可以定义或调用LISP函数,但不便保留或调试程序,因此,通常都是以文件形式实现函数的定义和调用. 一个LISP文件可以定义多个函数或AutoCAD命令. 表达式相当于语句.一个表达式可以分写在若干行上,一行可以写若干个表达式.连续的多个空格相当于一个空格.以下是一个表达式分开写在若干行上的实例: (d

AutoLISP处理的对象时符号表达式(简称表达式),相当于其他编程语言的程序语句. 1.表达式的构成 表达式由原子或表构成.原子可细分为数原子.串原子和符号原子.数或串原子的值是数或串本身,符号原子的值是赋给该符号的值.例如,5.12.5."ABC"是由单个原子构成的表达式.多数情况下,表达式以表的形式存在,(函数名[变元]……).变元的个数可以为0也可以为任意多个,这个取决于函数本身,每个参数还可以是一个表达式.表达式中,左括号后第一个元素必须为函数名. 2.表达式的前缀表示法 A

AutoLISP程序的流程通过流程控制函数控制. 1.分支结构 (1)(cond(测试表达式1 结果表达式1)[(测试表达式2 结果表达式2)]……) [例] 1 (setq n( cond((<= i 1) 1) 2 ((<= i 1) 1) 3 ((<= i 2) 4) 4 ((<= i 3) 10) 5 (t 100) 6 ) 7 ) 说明:该函数类似C语言中的switch语句.最后一个测试表达式"t(或T)"相当于"default",

AutoCAD 菜单实用程序已加载. 命令: COMMANDLINE 命令: (setq X 5 Y X) 5 命令: !Y 5 命令: (+ (* 2.5 2) (/ 10 3)) 8.0 命令: (setq a b b 1) 1 命令: !a nil 命令: (setq L1(list 'M' 'N')) ; 错误: 输入中含有多余的闭括号 命令: (setq L1(list 'M ' N)) (M N) 命令: (cdr L1) (N) 命令: (setq L2(cons 'X 'Y))