AutoCAD Autolisp语言概要1.pptVIP

(smart_image “image_key”) \*打开图像文件，关键字是image_key”*\ (setp max_x (dimx_tile “image_key”) \*获取该控件的x方向的长度*\ (setp max_y (dimx_tile “image_key”) \*获取该控件的y方向的长度*\ (fill_image 0 0 max_x max_y 5) \*该控件以颜色5填充*\ (sillde_image 0 0 max_x max_y “test”) \*在该控件中显示幻片“tset”*\ (sillde_image 0 0 max_x max_y “hold(test)”) \*在该控件中显示幻灯片库hold中的tset幻灯片*\ (vector_image0 0max_x max_y 2) \*在控件中以颜色2画一对角矢量*\? (slide_image x1 y1 x2 y2 sldname) 该函数在当前激活图像中显示一个幻灯片，可以是独立幻灯文件(.sld)，也可以是某个幻灯库中的某一个幻灯片(.sld)；(x1,y1)对应于幻灯片的输入点，(x2,y2)对应于该幻灯显示后的对角点坐标，可参见vector_image中的坐标说明。例如： 8.6 对话框驱动程序 N Y 开始 装载DCL文件 装载成功？ Y N 显示对话框 显示成功？ 显示错误信息 卸载DCL文件 控件初始化 激活对话框 后 处 理 显示错误信息 结束 8.7 设计实例 DCL 文件名 例1：设计如图所示的简单对话框。 对话框名 4．(repeat int [expr...]) 功能：对循环体中的每一个表达式进行指定次数的求 值计算，并返回最后一个表达式的值。 参数说明：int 正整数。 expr 一个或多个原子或表达式。 返 回 值：最后一个计算的原子或表达式的值。如果 未提供 expr 参数，repeat 返回 nil。 例：求1+2+3++100的总和。 应用举例 趣味程序 绘制下图所示的趣味图形，以指定点为起点，绘指定长度的任意多条直线，每绘一条直线就自动变化一种颜色，且在360°内画完所有直线。 该程序还存在不足,当输入直线条数255时不出错，255时则出错。运行时输入500，出错内容如下： 命令: color 输入默认对象颜色 [真彩色(T)/配色系统(CO)] 255: 256 颜色编号无效。 ; 错误: 函数被取消 输入默认对象颜色 [真彩色(T)/配色系统(CO)] 255: 2. 绘制图框 ; ================================================================== ; 程序功能：绘制国家标准图框A0-A4, 带装订。根据企业实际使用进行简化。 ; 参数说明：tfdm--图幅代码,整型数，取值为0---4。 ; 使用方法：带参调用，如(tka 4),表示绘制A4图幅 ; 设计时间： 2003年7月30日 ; 设 计 者： 符纯华 ; =================================================================== (defun tka(tfdm) (commandosnapnone);关闭“对象捕捉” (cond ((= tfdm 0) (do_tk2 841 1189 25 10)) ;带参调用自定义函数do_tk2绘图框 ((= tfdm 1) (do_tk2 594 841 25 10)) ((= tfdm 2) (do_tk2 420 594 25 10)) ((= tfdm 3) (do_tk2 297 420 25 5)) ((= tfdm 4) (do_tk2 297 210 25 5)) (T (prompt 没有你选择的图幅！参数为0——4，谢谢！)) );cond );defun ;======= 自定义函数do_tk2绘图框 ======= (defun do_tk2(b l a c) (setq p00 (0.0 0.0)) (command “Clayer”“细实线层” ;换层作图 line p00