在autocad中实现尺寸公差自动标注的探讨

在autocad中实现尺寸公差自动标注的探讨

ID:30806094

大小:58.86 KB

页数:3页

时间:2019-01-03

在autocad中实现尺寸公差自动标注的探讨_第1页
在autocad中实现尺寸公差自动标注的探讨_第2页
在autocad中实现尺寸公差自动标注的探讨_第3页
资源描述:

《在autocad中实现尺寸公差自动标注的探讨》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、在AutoCAD中实现尺寸公差自动标注的探讨用AutoCAD进行机械设计时,标注尺寸公差是设计人员经常遇到的一个问题。用Text命令手工标注,不仅速度慢,而且容易出错;通过对话框设定参数进行标注,每个不同的公差值都要设定一次。这些方法在标注时都需要翻阅手册,给设计者带來很人的不便。曾有一些标注公差的程序,使用效果并不很理想。笔者利用Autolisp语言编写了一个尺寸公差自动标注的程序。使用该程序进行公差标注不必翻阅手册,只需选择基木尺寸和公差带代号即可自动标注尺寸公差,可大大提高标注公差的速度。一、公差值数据存贮在标注公差过程中,对于一

2、定的基本尺寸而言,能否根据基本尺寸大小、公差等级和基本偏差代号迅速查询出上、下偏差值,是实现公差自动标注的关键。为此,可将国标中常用的极限偏差以Datatxt为文件名保存在数据文件中。数据文件格式如下:f6g6h6h7(...-0.025・0.041-0.049・0.010-0.029(…-0.030-0.049-0.058・0.012-0.034-0.009-0.0250-0.0160-0.025...);dimt40〜50mm(...-0.0300-0.0190-0.030・・・);dimt50〜65mm-0.010-0.0290-

3、0.0190-0.030…);dimt65〜80mm(…-0.0360-0.0220-0.035...);dimt80〜100mm第一行为公差带代号,实际文件中没有。若公差带代号为g6,基本尺寸为45mm,则其上偏差为-0.009mm,下偏差为-0.025mm□因查询函数是以字符位置获取上、下偏差的,所以公差数值表应整齐,否则获取的公差值将出错。二、基本尺寸的获取用Entget>Substr函数获取基本尺寸dimt、字高Txth及旋转角Angd,便于在标注公差时确定公差的字高、角度等参数。这里要注意,在尺寸标注前Dimaso应设定为of

4、f,否则取不到尺寸。对于基本尺寸询有R、「、①等符号时,应作特殊处理。对用“Text”命令标注的尺寸和用-Dimension"命令标注的尺寸,处理方法略有不同,详见源程序。三、公差数值的查询为口动查询出所需的公差数值,我们高设定了两个函数:首先用Record()函数检索出数据文件中符合基本尺寸(dimt)范围的数据行,用Read()函数将该行中所有公差值赋给相应的变量hi,以便将相应的公差值设置为上、下偏差。例如,当获取的基本尺寸为40mm.输入的公差带代号为h7时,Record。得到的数据行号为8,用Rcad()将该行上的公差数值全部

5、赋给hi,则h29为上偏差,h30为下偏差值。相应的程序如下:(defunread(recordfname)(setqfp(openfname”r”))(if(=fpnil)(alert"notopendatatxt!n)(progn(repeatrecord(setqh(read(read-linefp))))(setqn(lengthh))(setqb'()i1)(while(<=in)(setqb(appendb(list(read(strcat"hn(itoai))))))(setqi(1+i)))(sctqi0)(while(

6、dimt3)(<=dimt6))2)((and(>dimt6)(<=dimt10))3)((and(>dimt10)(<=dimt14))4);dimt为获取的基本尺寸……;因篇幅所限,以下数行略。))四、口动标注公差为使标注的尺寸公差与基本尺寸协调,在标注前先根据基本

7、尺寸的字高、旋转角等确定出公差的字高和旋转角,并计算出上、下偏差的标注位置,然后用“TexL命令标注公差。程序在设计中,考虑到了只知道上、下偏差值而不知道公差等级和公差代号的情况(此时可不输入公差等级和代号,而直接输入上、下偏差),同时也考虑到了某些特殊情形,如±0.01等等。源程序(文件名为gcbz..lsp)如下:(defunc:gcbz()(setqss(entget(car(entsel))))(setqgedh(getstring"输入公差带代号:”))(setqp(getpointn输入插入点:"))(setqdim

8、(edr(assoc1ss)))(setqdimldim)(progn(if(=(substrdim11)"R")(setqdiml(substrdim2)))(if(=(substrdim11)T‘)(s

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。