提高AutoCAD圆中心线创建效率探究.docVIP

提高AutoCAD圆中心线创建效率探究摘 要:详细论述在AutoCAD中两种快速创建圆中心线的方法,给出每种方法的特点。能帮助设计人员提高绘图效率,减轻工作量。同时,基于VisualLISP的圆中心线开发过程,对AutoCAD二次开发有一定的借鉴意义。 关键词:AutoCAD AutoLISP 二次开发 中图分类号:TP391.7 文献标识码:A 文章编号:1672-3791(2012)05(b)-0024-01随着AutoCAD版本的不断推出,它在各行业中的应用更为广泛,掌握AutoCAD软件已经成为工程技术人员必备的基本技能。圆是绘图过程中应用最为广泛的图元之一,AutoCAD提供了六种不同条件画圆的方法,能方便、快速的绘制圆,然而根据《工程制图》[1]技术标准的规定,圆必须绘制中心线,传统的方法是利用直线命令绘制,其效率较低。本文提出了两种绘图方法,都能快速、快捷的绘制中心线,提高绘图效率。 1 方法一:利用图块绘制圆中心线[2]。 1.1?作存盘图块 Sp1:绘制所示图形。 操作说明如下。 (1)在0层绘制。 （2)两条垂直平分长为2mm直线。 Sp2:命令:Wblock↙。打开对话框,并进行设置。 操作说明如下。 (1)“源”区域:选择“对象”。 (2)“对象”区域:选择“对象选择”按钮。 (3)“基点”区域:选择“拾取点”按钮。 (4)“目标”区域:选择保存路径。 Sp3:单击”确定”。 1.2?插入图块(中心线) Sp1:命令:insert↙。 操作说明如下。 (1)单击“浏览”打开新建的中心线图块。 (2)“缩放比例”区域中指定比例为:圆半径+3mm～5mm。 Sp2:单击“确定”。 Sp3:选中圆。 1.3?优缺点 图块制作简单,使用方便,可重复使用,但使用时必须知道圆半径。 2 方法二:利用Autolisp二次开发绘制中心线命令 2.1?编写Autolisp程序代码[3] Sp1:打开“记事本”程序。 Sp2:写入以下代码: (defun c:circleline() (command”osnap”“none”) (setqcir_x(entsel”请选择圆:”) cir_x_data(entget(carcir_x)) pt_c(cdr(assoc10cir_x_data)) r_C(cdr(assoc40cir_x_data)) );获得圆信息 (setqlen_ex(getreal”\n请输入中心线超出圆的长度:”) a_L(getanglept_c”\n请输入倾斜角度:”) ) (if(nulllen_ex)(setqlen_ex5)) ;中心线超出轮廓线的长度的缺省值为5 (if(nulla_L)(setqa_L0)) ;中心线与x轴正方向的夹角的缺省值为0 (setqpt1_L1(polarpt_ca_L(+r_clen_ex)) pt2_L1(polarpt_c(+pia_L)(+r_clen_ex)) pt1_L2(polarpt_c(+a_L(*0.5pi))(+r_clen_ex)) pt2_L2(polarpt_c(+a_L(*1.5pi))(+r_clen_ex)) );计算中心线四个端点 (command”line”pt1_L1pt2_L1”“) (command”line”pt1_L2pt2_L2”“) ) Sp3:保存文件名为“circleline.LSP”。 2.2?加载程序 Sp1:命令:appload↙。打开对话框。 Sp2:选中“circleline.LSP”文件,单击“加载”,单击“关闭”。 2.3?使用命令标注 Sp1:设置“点画线”为当前图层。 Sp2:命令:circleline 请选择圆:(选中要绘制中心线的圆) 请输入中心线超出圆的长度:↙ 请输入倾斜角度:↙ 2.4?如果在单击启动组的“内容”,把命令加入启动选项,以后启动Autocad时候,“circleline”命令也同时加载,就可以像使用Autocad其他命令一样使用,无需在使用前再加载该命令 2.5?优缺点 该程序有很好的移植性,可以方便的实现在不同Autocad版本和不同计算机上创建任意角度的中心线,但需要在使用之前编写和加载程序。 3 结语 本文论述了两种快速创建圆中心线方法。应用该方法创建圆的中心线可以减轻设计人员的劳动量,提高设计质量,为企业和个人产生良好的效益。完整的基于VisualLISP环境的AutoCAD软件二次开发过程,对该软件