用Visual Basic二次开发AutoCAD的滚刀软件

GXF360 2019-11-03

展开全文

1.程序软件

本软件的功能：①可以设计标准剃前滚刀、非标剃前滚刀、标准渐开线花键滚刀、矩形花键滚刀、三角花键滚刀和链轮滚刀。②可以通过摸拟的方式完成一些非标刀具的设计。③可以实现工件摸拟滚刀、工件摸拟内外插齿刀、滚刀摸拟工件和内外插刀摸拟工件等。

以非标剃前滚刀设计为例介绍软件功能。工件参数：m2 z26 α30°，大径54.5mm，小径48.45～48.6mm，K=4W=21.35～21.4mm，修缘0.2mm。设计一把φ70mm×80mm，内孔27mm的修缘滚刀。

这都不可取，妈妈们一定要耐心给宝宝讲明白，让宝宝懂得尿床虽不是光彩的事情，但是妈妈理解宝宝不是故意的，并且会和宝宝共同努力，帮助宝宝改掉这个坏习惯。这样既没有伤害宝宝的自尊心，也建立了一个良好的沟通环境。

（1）输入参数。如图1所示，单击滚刀，再单击剃前滚刀，到图2所示下一界面输入工件的参数。

（2）输入参数后点击计算，计算结果会传输至CAD中，自动画出滚刀齿形图，如图3所示。

（3）验证滚刀齿形。用滚刀齿形图摸拟工件的形状，看看倒角是否合理。如图4所示依次单击滚刀摸拟、已知滚刀摸拟工件，或者单击主界面的mini按键。摸拟结果如图5所示，验证结果显示滚刀齿形合格。

比如，周末爸爸妈妈花一天时间陪你去户外或者去游乐场玩，你也可以花半天陪爸爸妈妈去逛逛街。逛街对孩子来说是极其无聊，不管是跟妈妈去逛衣服，还是跟爸爸去逛数码产品，但是，爸爸妈妈也不那么喜欢游乐场啊，为了你也照样去了，你同样也需要学习为了别人去做一些自己不喜欢的事。

图 1

图 2

（4）验证滚刀外形。单击滚刀外形，在图6所示界面输入参数，单击Command1，后自动画出滚刀外形图如图7所示。

经验证合格，可以加工。如果不需要修改变量，重新生成，一把修缘渐开线花键滚刀就设计完成。

图3 滚刀图样

图 4

图5 滚刀摸拟工件结果

2.部分程序代码

（1）画滚刀外形图程序：

Private Sub Command1_Click()

De = Val(Combo1.Text)

re = Val(Text1.Text)

h = Val(Text2.Text)

R = Val(Text3.Text)

θ = Val(Text4.Text)

kong = Val(Combo2.Text)

大棚韭菜套种模式：为了提高单位面积在一定时间内光、热、水、气等自然资源的利用率，许多农户在韭菜生长间歇季节和价格低迷期套种甘蓝、花椰菜、秋萝卜等蔬菜作物。做到了韭菜与套种蔬菜的空间互补，增加复种指数，提高了单位面积产量和效益[2]。

z = Val(Text5.Text)

s1 = h * Tan(radians(re))

S2 = R / Tan(radians((90 - re) / 2))

xr = S2 - s1

习作训练是语文教学活动中一个重要的环节，是学生认识世界，认识自我，进行创造性表达的过程。教师可以将环保教育有机融入写作教学，引导学生关注现实，表达真情实感，不断提高学生的环保意识，并自觉付诸行动。

yr = De / 2 - h + R '圆心坐标为xR,yR

xa = xr - R * Cos(radians(re))

ya = yr + R * Sin(radians(re))

xb = xr + R * Cos(radians(re + θ))

yb = yr - R * Sin(radians(re + θ))

ψ = radians(90 - re - θ)

K = Tan(ψ)

b = yb - xb / Tan(pi / 2 - ψ)

hc = De / 2 - yb

xc = (-2 * K * b + ((2 * K * b) ^ 2- 4 * (K ^ 2 + 1) * (b ^ 2 - (De / 2) ^ 2)) ^0.5) / 2 / (K ^ 2 + 1)

yc = K * xc + b

'yc = DE / 2

'xc = xb + HC / Tan(radians(90 - re -θ))

Call Ch2_addcir(0, 0, De / 2)

从较低含量废液中回收硫酸，可采用溶剂萃取法、离子交换法、电渗析法、扩散渗析法等技术［8-9］，但综合考虑回收后所产硫酸浓度、回收过程生产成本、生产作业控制系统等，其较为可行的技术为均相阴膜扩散渗析技术。初步试验表明，与传统工艺相比，扩散渗析从铜冶炼废酸中回收硫酸具有能耗低、酸回收率高、酸产品浓度高的特点，且其硫酸直收率达90%以上，可有效截留废酸中主要杂质。

Call Ch2_addcir(0, 0, kong / 2)

'A B C三点坐标

' Call Ch2_addline(0, DE / 2, XA,YA)

'Call Ch2_addline(xB, yB, Xc, Yc)

'Call Ch2_addarc(xR, yR, R, pi - re* pi / 180, (90 - re - θ) * pi / 180 + pi - re* pi / 180 + (90 + re) * pi / 180)

Dim AcadDoc As AcadDocument '定义CAD文件

Set AcadDoc = Acadapp.ActiveDocument

Dim lin1 As AcadLine '定义CAD线

Dim lin2 As AcadLine

Dim arc1 As AcadArc

Dim cPoint(0 To 2) As Double '定义起点

Dim EndPoint(0 To 2) As Double '定义终点

Dim cPoint1(0 To 2) As Double '定义起点

Dim EndPoint1(0 To 2) As Double '定义终点

Dim cPoint2(0 To 2) As Double '定义起点

Dim cPoint3(0 To 2) As Double '定义起点

cPoint(0) = 0

cPoint(1) = De / 2

作者以优美的语言描述了自己童年和小朋友们玩耍的情景，回忆了童年玩过的游戏，运用了大量的动作描写，这使得文章非常生动，读起来很有画面感。

cPoint(2) = 0

EndPoint(0) = xa

当室内环境温度低于设定温度时，开启电加热制热；当室内环境温度达到设定温度时，电加热关闭。电加热采用分级控制的方式，电加热匹配量为制冷量的60%。

EndPoint(1) = ya

'-----------------------

cPoint1(0) = xb

cPoint1(1) = yb

在分析实际触发角时，由于交流侧电压三次谐波叠加在基频分量的基础上，会使实际的换相线电压过零点发生变化，导致实际触发角发生变化，下面对其进行详细分析。图2为6脉冲换流器的结构。

图2所示机器是美国AerWay公司生产的松土机械，用来改善草地土壤的透气透水性。图2所示的机器由拖拉机牵引，使用橡胶轮控制耕深。机架上安装2根刀轴，每个刀轴上安装6组齿盘，刀盘间距约17mm，每个齿盘上安装4个松土齿；松土齿依靠重力入土，在草地上形成不连续矩形孔，最大耕深约为20mm；刀轴可以在0°～15°(垂直于行进方向)范围内扭转以调整对土壤的扰动程度，每次扭转幅度为2.5°。这种机器既可以用于改良板结性退化的草地，也可以作为农田垂直松土机械使用[14-15]。

cPoint1(2) = 0

EndPoint1(0) = xc

EndPoint1(1) = yc

Zhao课题组设计合成了一种以香豆素为母体的汞离子荧光探针(见图3)。在探针分子的溶液中，当加入汞离子的浓度是探针浓度的0.3当量以下时，探针分子与汞离子发生配位，溶液在495 nm处具有微弱的荧光。当加入汞离子的浓度是探针浓度的0.3当量以上时，由于硫的亲汞性，使氨基硫脲形成强吸电子的噁二唑酮类化合物，使溶液在495 nm处的荧光大大增强。探针分子在pH=6.5～9.0范围内，对汞离子具有很好的响应，响应时间短，在乙醇∶水=1∶1的溶液中对汞离子具有很好的选择性和灵敏度。

'--------------------------------------

cPoint2(0) = xr

cPoint2(1) = yr

cPoint2(2) = 0

如图1所示，取直径为170 mm，直径偏差范围为0～0.8 mm的带轮进行实验。对带轮边缘轮廓进行测量，通过双目视觉圆弧轮廓特征提取和匹配之后，得出边缘外轮廓点的空间三维坐标。图2所示为求得的带轮边缘外轮廓点云图及空间圆弧拟合图，共获得266个边缘外轮廓点的三维坐标。利用本文拟合优化方法，对上述点云进行8次拟合，平均迭代数为6 895次。拟合结果如表1所示。

'---------------------

cPoint3(0) = 0

cPoint3(1) = 0

cPoint3(2) = 0

DGIWG发布的成果分为文献和注册资料2种。文献包括地理空间信息类标准与专用实施标准、技术报告、产品规范、手册与指南、标准工作路线图（road map）和早期文献，其中，地理空间信息类标准与专用实施标准规定了军方地理空间信息的构成，技术报告是推进战略实施的一种申报机制，产品规范由各成员国根据DGIWG标准在多边合作协议下制定，手册与指南规定了标准与产品规范的实施方法，标准工作路线图规定了未来的标准化工作计划及相关的工作计划，早期文献即DGIWG不再维护的文献。DGIWG现行的测绘地理信息类标准、规范和指南见表1。

Dim linq As Variant

Dim linq2 As Variant

Dim linq3 As Variant

Set lin1 = AcadDoc.ModelSpace.AddLine(cPoint, EndPoint) 'CAD画线

Set lin2 = AcadDoc.ModelSpace.AddLine(cPoint1, EndPoint1) 'CAD画线

Set arc1 = AcadDoc.ModelSpace.AddArc(cPoint2, R, pi - re * pi / 180, (90 -re - θ) * pi / 180 + pi - re * pi / 180 + (90+ re) * pi / 180) 'CAD画线

linq = lin1.ArrayPolar(z + 1, pi * 2,cPoint3)

PBL教学法不是一个固化的模式，它的形式灵活多样，可以在不同的背景下以不同的形式适用于多种学科、多个专业中。自20世纪60年代由麦克马斯特大学将PBL引入医学教育以来，其适应范围早已超越医学和工程教育，而被延伸到教育学、管理学、法学、文学等多个学科领域[6]。

linq2 = lin2.ArrayPolar(z + 1, pi * 2,cPoint3)

linq3 = arc1.ArrayPolar(z + 1, pi * 2,cPoint3)

End Sub

（2）块的引用子程序：