SubJKXODim0AsVariant基圆圆心坐标DimRAsDouble'基圆半径DimTAsDouble'展开角度(正角度为逆时针，负角度为顺时针)DimCAsACADCircle'基圆DimIAsInteger'样条曲线拟合点数量DimJAsInteger，循环变量DimTTAsDouble'逐点展开时的展开角度DimP()AsDouble'样条曲线拟合点坐标DimTl(2)AsDouble'样条曲线起点切线方向DimT2(2)AsDouble，样条曲线端点切线方向WithThisDrawingOnErrorGoTo10'用户输入基圆圆心和半径出错时退出程序0=.Utility.GetPoint(,vbCrLf&"指定基圆的圆心:")’用户输入基圆圆心R=.Utility.GetDistance(0,vbCrLf&"指定基圆的半径:")'用户输入基圆半径SetC=.ModelSpace.AddCircle(0,R)'画基圆OnErrorResumeNext'用户输入展开角度和拟合点数量出错时检查出错方式,判断是否为默认输入DoWh订eT=0'用户输入展开角度为0时要求用户重新输入T=.Utility.GetReal（vbCrLf&"指定展开角度〈360〉："）'用户输入展开角度IfErr.Number二-2145320928Then'命令行为空时用户按回车或空格键，展开角度默认为360度T二360ElselfErr.Number<>0Then*用户按ESC键等其它错误，删除已画成的圆C,退出程序C.DeleteExitSubEndIfLoopT=T*1.74532925199433E-02'换算为弧度Err.Clear'清空错误代码,便于用户下一步输入DoWh订eI<3'用户输入拟合点数量小于3时要求用户重新输入I=.Utility.Getlnteger（vbCrLf&"指定样条曲线拟合点数量〈50>："）'用户输入拟合点数量IfErr.Number=-2145320928Then'命令行为空时用户按回车或空格键，拟合点数量默认为50I二50ElselfErr.Number<>0Then，用户按ESC键等其它错误，删除已画成的圆C,退出程序C.DeleteExitSubEndIfLoopReDimP(I*3-1)'按拟合点数量重定义拟合点坐标数组ForJ=0ToI-1'按渐开线公式逐点计算拟合点坐标TT=Abs(T)*J/(I-1)'计算该点的展开角度P(J*3)=R*(Cos(TT)+TT*Sin(TT))+0(0)'计算该点横坐标(相对于基圆圆心)IfT>0Then'判断逆时针展开还是顺时针展开P(J*3+1)=R*(Sin(TT)-TT*Cos(TT))+0(1)'逆时针展开时的该点纵坐标ElseP(J*3+1)=-R*(Sin(TT)-TT*Cos(TT))+0(1)'顺时针展开时的该点纵坐标EndIfNextT1(O)二1'起点切向T2(0)=Cos(T)'端点切向T2(l)=Sin(T).ModelSpace.AddSplineP,Tl,T2'画样条曲线EndWith10：EndSub加载程序方法一：1、拷贝上面的源代码；2、打开autoCAD;3、Alt+Fll4、“插入”一“模块”一粘贴加载程序方法二：1、下载附件并解压2、打JFautocad;3、在命令行键入“dppload”(或“工具”一“加载应用程序(L)..."),加载解压后的文件，关闭加载窗口;使用方法一：在VBA编辑器界面，按F3,回到CAD界面按命令行提示操作。图形在模型空间生成。使用方法二：在CAD模型空间，命令行键入“-vbdrun",回车,"jkx",回车，按命令行提示操作。使用方法三：在CAD模型空间,Alt+F&选择名为“JKX”的宏，“运行”，按命令行提示操作。
本文档为【CAD渐开线画法】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483