CAD

画渐开线

1.

进入菜单

:

工具

>

>visual Basic

编辑器

;

2.

在编辑器中选菜单

:

插入

>

模块

;

3.

把这部分程序拷贝到(代码)窗口中

;

4.

选择菜单:运行

>

运行子过程用户窗体

;

5.

AutoAcad

绘图界面中可以看到结果

.

Sub jkx()

Rem

绘制渐开线

,By Sdh,2006-6-8

Dim d As Double   '

节圆直径

Dim r As Double   '

节圆半径

Dim A As Double   '

总展开角度

Dim Ai As Double  '

展开角度

Dim Li As Double  '

展开弧长

d = 100

A = 360

r = d / 2

Dim Pnt1(2) As Double

Dim Pnt2(2) As Double

Dim PntLst() As Double, N As Integer

ThisDrawing.ModelSpace.AddCircle Pnt1, r

For Ai = 0 To A * Atn(1) / 45# Step Atn(1) / 45#

Li = r * Ai

Pnt1(0) = r * Sin(Ai)

Pnt1(1) = r * Cos(Ai)

Pnt2(0) = Pnt1(0) - Li * Cos(-Ai)

Pnt2(1) = Pnt1(1) - Li * Sin(-Ai)

ThisDrawing.ModelSpace.AddLine Pnt1, Pnt2

N = N + 1

ReDim Preserve PntLst(N * 2 - 1)

PntLst(N * 2 - 2) = Pnt2(0)

PntLst(N * 2 - 1) = Pnt2(1)

Next

If N > 1 Then

ThisDrawing.ModelSpace.AddLightWeightPolyline PntLst

End If

End Sub

cad渐开线齿轮轮廓绘制_CAD绘制渐开线过程相关推荐

  1. cad渐开线齿轮轮廓绘制_CAD渐开线齿形怎么绘制

    使用CAD进行各种图形设计就是为了提高设计效率,在浩辰专业的软件中"渐开线齿形绘制"帮助工程设计人员快速完成渐开线齿轮齿形的图形预览.调整和绘制.本功能采用拟合线绘制齿廓,具有精度 ...

  2. cad渐开线齿轮轮廓绘制_CAD画齿轮的渐开线程序 (lsp)和渐开线齿轮关系

    一. CAD 中齿轮画法 有下面一段渐开线程序: ;;;begain suprgear.lsp ;************************************************* ; ...

  3. cad渐开线齿轮轮廓绘制_CAD画齿轮的渐开线程序

    CAD 中齿轮画法 有下面一段渐开线程序: ;;;begain suprgear.lsp ;************************************************* ;SPU ...

  4. cad渐开线齿轮轮廓绘制_CAD画齿轮的方法

    标准直齿圆柱齿轮的绘制方法 一.标准直齿圆柱齿轮的计算公式 齿顶高ha               ha=m 齿根高hf               hf=1.25m 齿高h              ...

  5. cad渐开线齿轮轮廓绘制_CAD渐开线齿轮怎么画?

    回答: AutoCAD绘制展开线的话,用程序绘制比较简单,程序如下:(defunC:tes(/&dis1&k1&kw1ang1objpt1pt2tc1) (vl-load-co ...

  6. cad渐开线齿轮轮廓绘制_如何在机械CAD软件中自动生成齿轮

    在机械CAD软件中绘制图纸时,齿轮设计是非常常见的,其主要由于齿轮轮廓通常采用渐开线在生产中便于精确加工.那么怎么才能自动生成齿轮,让设计师能够快速进行绘制齿轮呢?接下来给大家详细介绍一下吧! CAD ...

  7. cad画直角命令_CAD绘制燃气灶实例

    ▲ 点击"CAD教学",获取海量学习资料和免费教程 燃气灶是指用液化石油气(液体).人工煤气.天然气等气体燃料直接火加热的厨具.燃气灶又叫灶盘,知名度不详. 燃气灶常用于室内设计. ...

  8. cad渐开线画法lisp程序_CAD插件——绘制圆的渐开线

    机械行业在使用CAD的时候,常常会需要绘制圆的渐开线.在网上找到一个画渐开线的LISP程序,不知道有没有人需要. 什么是圆的渐开线? 把一条没有弹性的细绳绕在一个定圆上,拉开绳子的一端并拉直,使绳子与 ...

  9. 请用状态转换图描述一个绘制折线的对话过程_CAD画一个元器件电路符号(AD)...

    为了以后能绘制国家标准的电路原理图,我们在教学过程中,不采用系统自带的元件符号库,而是创建自己的元件符号库,在创建自己的元件符号库的过程中,能让你对元件符号更熟悉,之后,你绘制电路原理图时,将变得像小 ...

最新文章

  1. C/C++掌握技能(三)
  2. 47. 全排列 II(回溯算法)
  3. 26、HTML 区块
  4. mysql取最大一条数据,mysql取出表中,某字段值最大的一条纪录,sql语句
  5. python c 语言接口,## 人生苦短我用python[0x08] 使用ctypes调用c语言接口 ##
  6. backup1:开始数据库备份
  7. linux 远程管理
  8. 字符串是单一字符的无序组合吗_Python中拼接字符串的多种方法, 你想了解吗?...
  9. 初识java atomic
  10. 内存映射过程之paging_init
  11. 中缀表达式变为后缀表达式
  12. 第一部分 移动终端芯片概述
  13. ISCC -MISC-Retrieve_the_passcode
  14. Python练习小程序 定时关机小脚本
  15. Android 疑难杂症
  16. 【2013-10-3前】Win7-C盘空间瘦身
  17. 关系代数中的除操作怎么用SQL语句表示?
  18. 百度地图电子围栏判断 地图定位
  19. python全栈(中国历史天气可视化系统)
  20. Android恶意软件特征及分类

热门文章

  1. afe模拟前端的重要性_模拟前端(AFE)原理及选型指南-模拟/电源-与非网
  2. 入侵思路WIFI和路由器密码破解
  3. commons-csv读取csv文件
  4. 介绍130 个相见恨晚的神器网站--学习、搜索、图片、视频样样不少!
  5. Ubuntu18.04自适应VMware调整桌面大小
  6. 从底层原理出发,了解Linux内核之内存管理
  7. uni-app 微信公众号H5开发 里面的video 组件点击全屏后不会自动横屏播放 2
  8. 多线程(二)线程控制(创建 退出 等待)
  9. 用Python来跳本草纲目!
  10. 全网最硬核PWN入门_图解分析