Autolisp的语言.ppt

AutoLISP语言;;AutoLISP数据类型;;;;; ;;;;;;AutoLISP基本函数;计算函数;;表处理函数;交互输入函数;补充;还可以自组坐标序列;输出函数;字符串处理函数; 转换运算函数;条件分支函数;循环函数;文件处理函数;;关系运算函数;逻辑运算函数;图形处理函数;赋值函数;禁止求值函数;SET SETQ QUOTE;command函数;defun自定义函数 ;;AutoLISP语法规则;;;;;首要应掌握的简单基本函数;（strcat 字符串1 字符串2…） (substr 字符串开始长度) （strcase 字符串模式） (strlen 字符串) ;建立第一个LISP程序;加载与执行;;;自定义函数;;全局变量;局部变量;自定义AutoCAD命令;自定义一个绘制圆的函数;关闭和显示CAD提示;;;(defun c:cr1(/ pt_base len width r pt1 pt2 pt3 pt_cen) (setq pt_base (getpoint \n请输入绘图基点:) len(getdist :\n 请输入长方形的长度) width(getdist :\n请输入长方形的宽度) r(getreal 请输入圆的半径) );setq;;;;1.4 选择与循环结构 ; ;文件名：ex7-1.lsp;3.(while testexpr [expr...]) 函数功能：对测试表达式进行求值，如果它不是 nil，则 执行循环体中的表达式，重复这个过程，直 到测试表达式的求值结果为 nil。 while 函数在 testexpr 为 nil 之前不断运行。 参数说明：testexpr 包含测试条件的表达式。 expr 在 testexpr 为 nil 之前要求值的一个或 多个表达式。 返 回 值：最后的 expr 表达式最新的值。;4．(repeat int [expr...]);应用举例 ;自涕曼轨别汾愿淤刹糠酌待趾娠代蹄儡锋竣础征鸽鹤害桅袭檄仑洛谐狡拴Autolisp的语言Autolisp的语言; 该程序还存在不足,当输入直线条数255时不出错，255时则出错。运行时输入500，出错内容如下： 命令: color 输入默认对象颜色 [真彩色(T)/配色系统(CO)] 255: 256 颜色编号无效。 ; 错误: 函数被取消 输入默认对象颜色 [真彩色(T)/配色系统(CO)] 255:;玩笑墅驻翘羹卵灵番疏枉岗乏肺乙凸帖湿锹盲怜恶岿揣侣荤脏快拇于涡乏Autolisp的语言Autolisp的语言;2. 绘制图框;;======= 自定义函数do_tk2绘图框 ======= (defun do_tk2(b l a c) (setq p00 (0.0 0.0)) (command “Clayer”“细实线层” ;换层作图 line p00 (polar p00 0 l) (polar (polar p00 0 l)(/ pi 2)b) (polar p00 (/ pi 2)b) c ); command (command Clayer粗实线层 pline (setq pp0 (polar (polar p00 0 a) (/ pi 2) c) ) (polar pp0 0 (- l a c)) (polar (polar pp0 0 (- l a c)) (/ pi 2) (- b c c)) (polar pp0 (/ pi 2) (- b c c)) c ) ; command (command zoom all) ) ;defun;1.5对象属性及相关表处理函数的使用 ;2．(entlast)