VBA实现AutoCAD中锥度、斜度的智能标注.pdf

第 l0卷 第 11期 2010年4月 科 学 技 术 与 工 程 Vo1．10 No．11 Apr．2010 1671—1815(2010)11·2781—03 ScienceTechnologyandEngineering ⑥ 2010 Sci．Tech．Engng． VBA实现AutoCAD中锥度 、斜度的智能标注 谷 实 刘金义 (辽宁石油化工大学计算机与通信工程学院，抚顺 113001) 摘 要 为了弥补Aut0CAD中没有直接标注斜度、锥度这一命令的不足，利用AutoCAD 自带二次开发软件包VBA，在Auto— CAD环境下，开发了一个锥度、斜度标注的VBA应用程序。通过实际应用，证明该设计可通过 自动计算并依据国家标准完成 锥度、斜度的智能标注。 关键词 VBA AutoCAD 锥度 斜度 中图法分类号 TP391．72； 文献标志码 A 在AutoCAD环境下绘制锥度、斜度时，由于没 有可以直接调用的命令，一般做法是通过画线和插 人文本的命令插人锥度、斜度符号 ¨。根据 国家标 准对锥度 、斜度标注 的规定 ，采用手工绘制的方法 过程繁琐、标注效率低。为了实现锥度、斜度标注 的智能化标注 ，应用内嵌语言 VBA／ActiveX做为二 L——— 次开发工具，开发了一个通用的锥度、斜度标注程 图1 斜 度 图2 锥 度 序 ，以弥补 AutoCAD在标注锥度、斜度时存在 的 1．2 国家标准中对于斜度、锥度的规定 不足。 在 国家标准 GB／T4458．4—1984机械制 图尺 寸注法 中，对斜度 、锥 度 的标 注方法 做 了如下 1 斜度、锥度的表示方法及其在国家标准中 规定 。 的规定 (1)斜度、锥度符号如图3、图4所示 (h表示字 体高度)； 2．1 斜度、锥度的概念及表示方法 斜度是指直线或平面对另一直线或平面的倾 _丁 1__ 斜程度 ，其大小一般是用两直线或平面间的夹角的 正切来表示(如图1所示)。锥度是指圆锥 的底圆 直径与高度的比。如果是圆锥台，则是底 圆直径和 图3 斜度符号 图4 锥度符号 顶圆直径的差与高度之 比(如图2所示)。 斜度、锥度表示方法如下 ： (2)斜度、锥度符号线的线宽为 h／lO(h表示 斜度表达式 ：S=H／L=1：n； 字体高度)； 锥度表达式：C=2tan ：D／L或 (D—d)／。 (3)斜度 、锥度符号的方 向应与斜度锥度 的方 向一致 。 2010年 1月 l4日收到 第一作者简介：谷 实，男 ，硕士研究生。E—mail：xiaomi633@hot． mail．con 。 2782 科 学 技 术 与 工 程 lO卷 2．3 斜度、锥度标注中引线的绘制 2 斜度、锥度智能化标注实现的功能 如图1所示，在绘制斜度、锥度符号时要绘制引 线PoP 和P。P：，只需要求出P0、