提高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软件二次开发过程,对该软件的开发提供了有益借鉴。
参考文献
[1] 刘力,王冰.机械制图[M].北京:高等教育出版社,2000.
[2] 张信群,毕亚东,等.AutoCAD2006实用教程[M].安徽:合肥工业大学出版社,2008.
[3] 李子铮,张超,等.AutoLISP实例教程[M].机械工业出版社,2007.