《利用AutoCAD绘制圆柱面相贯线展开曲线研究(原稿).doc》由会员分享,可免费在线阅读全文,更多与《利用AutoCAD绘制圆柱面相贯线展开曲线研究(原稿)》相关文档资源请在帮帮文库(www.woc88.com)数亿文档库存里搜索。
1、,ForiToPISteJingDuEndPointirr获取横坐相贯线展开曲线。利用AutoCAD绘制圆柱面相贯线展开曲线研究(原稿)。摘要本文首先推导出两圆柱面在空间中相交的相贯线展开方程,然后使用AutoCAD中VBA功能绘制高精度的相贯线展开曲线,将相贯线inutErrorEndIf输入两圆柱面轴线夹角alfaErroralfaInutBox‚轴线夹角,‛,‛初始数据输入‛,IfalfaOralfaThenMsgBox‛角度输入错误,请输入大于小利用AutoCAD绘制圆柱面相贯线展开曲线研究(原稿)doc标EndPointSinalfaSqrRRrrSinieSinalfarrCosiCosalfa获取纵坐标Ifi,EndPoint从第个循环点开始绘制小线段。StartPointEndPoint保存gtiaoDimRAsDouble,rrAsDouble,eAsDouble,alfaAsDouble,PIAsDoublePI输入圆柱直径,轴线距离等数据inutErrorRInutBox‚大sDoubleDimJingDuAsDouble定义曲线绘制精度JingDuInutBox‚请输入曲线精度,‛,‛初始数据输入‛,ForiToPISteJingDuEndPointirr获取横坐r和半径为r′的两圆柱面轴线的公垂线段,其中OO′e,rr′e,z轴与大圆柱面的轴线重合,z′轴与小圆柱面的轴线重合,z轴与z′间的夹角为。
2、使用AutoCadVBA功能自动获取相贯线展开曲线AutoCAD中内置的VBA工具能够使用户绘制较高精度的图纸,在对图纸精度有着较高要求的场合具有重要作用。下面介绍如何利用VBA工具绘制空间圆柱面相展开曲线研究(原稿)。可以通过计算机软件编制圆柱面相贯线展开程序,快速准确地得到相贯线展开曲线。展开软件得到结果迅速精确,可用于指导加工下料等生产实践,提升工作效率,提高加工质量。附代码SubyanalfaSqrRRrrSinieSinalfarrCosiCosalfa,EndPointZoomAll调整视图MsgBox‛相贯线绘制完成。‛绘制结束后提示。EndSub。如图所示,OO′是半径为ISteJingDuEndPointirr获取横坐标EndPointSinalfaSqrRRrrSinieSinalfarrCosiCosalfa获取纵坐标Ifi,EndPoint从第个循环点开始利用AutoCAD绘制圆柱面相贯线展开曲线研究(原稿)doc标EndPointSinalfaSqrRRrrSinieSinalfarrCosiCosalfa获取纵坐标Ifi,EndPoint从第个循环点开始绘制小线段。StartPointEndPoint保存faThenMsgBox‛角度输入错误,请输入大于小于或等于度的数值‛GoToalfaErrorEndIfalfaalfaPI角度值转换成弧度值将相贯线分割成若干段小直线,循环画线DimStar。
3、tPsDoubleDimJingDuAsDouble定义曲线绘制精度JingDuInutBox‚请输入曲线精度,‛,‛初始数据输入‛,ForiToPISteJingDuEndPointirr获取横坐距离等数据inutErrorRInutBox‚大圆柱面直径‛,‛初始数据输入‛,rrInutBox‚小圆柱面直径‛,‛初始数据输入‛,eInutBox‚轴线距离‛,‛初始数据输入‛,IfRr的展开方程与计算机绘图技术结合,探索种快速获取高精度相贯线展开曲线的方法。可以通过计算机软件编制圆柱面相贯线展开程序,快速准确地得到相贯线展开曲线。展开软件得到结果迅速精确,可用于指导加工下料等生产reThenMsgBox‛R应大于rre!‛GoToinutErrorEndIf输入两圆柱面轴线夹角alfaErroralfaInutBox‚轴线夹角,‛,‛初始数据输入‛,IfalfaOral使用AutoCadVBA功能自动获取相贯线展开曲线AutoCAD中内置的VBA工具能够使用户绘制较高精度的图纸,在对图纸精度有着较高要求的场合具有重要作用。下面介绍如何利用VBA工具绘制空间圆柱面相的坐标分别为x,y,z和x′,y′,z′,则它们之间的关系为式中θ的含义与式中θ的含义相同。第步回到模型空间,再次按AltF,点击‚运行‛,根据脚本提示,输入相应数据即可获取相贯线的展开曲线。利用AosiCosalfa,EndPointZoomAll调整视图Msg。
4、farrCosiCosalfa获取纵坐标Ifi,EndPoint从第个循环点开始绘制小线段。StartPointEndPoint保存BA工具能够使用户绘制较高精度的图纸,在对图纸精度有着较高要求的场合具有重要作用。下面介绍如何利用VBA工具绘制空间圆柱面相贯线展开曲线。假设空间中任意点A在坐标系Oxyz和坐标系O′x′y′z′中圆柱面直径‛,‛初始数据输入‛,rrInutBox‚小圆柱面直径‛,‛初始数据输入‛,eInutBox‚轴线距离‛,‛初始数据输入‛,IfRrreThenMsgBox‛R应大于rre!‛GoToD中VBA功能绘制高精度的相贯线展开曲线,将相贯线的展开方程与计算机绘图技术结合,探索种快速获取高精度相贯线展开曲线的方法。使用AutoCadVBA功能自动获取相贯线展开曲线AutoCAD中内置的VreThenMsgBox‛R应大于rre!‛GoToinutErrorEndIf输入两圆柱面轴线夹角alfaErroralfaInutBox‚轴线夹角,‛,‛初始数据输入‛,IfalfaOral坐标点横坐标StartPointEndPoint保存坐标点纵坐标Nexti绘制最后个点iPIEndPointirr获取横坐标EndPointSinalfaSqrRRrrSinieSinalfarrCsDoubleDimJingDuAsDouble定义曲线绘制精度JingDuInutBox‚请输入曲线精度,‛,‛初始数据输入‛。
5、Box‛相贯线绘制完成。‛绘制结束后提示。EndSub。摘要本文首先推导出两圆柱面在空间中相交的相贯线展开方程,然后使用AutoCAointToAsDouble,EndPointToAsDoubleDimJingDuAsDouble定义曲线绘制精度JingDuInutBox‚请输入曲线精度,‛,‛初始数据输入‛,ForiToPreThenMsgBox‛R应大于rre!‛GoToinutErrorEndIf输入两圆柱面轴线夹角alfaErroralfaInutBox‚轴线夹角,‛,‛初始数据输入‛,IfalfaOral标EndPointSinalfaSqrRRrrSinieSinalfarrCosiCosalfa获取纵坐标Ifi,EndPoint从第个循环点开始绘制小线段。StartPointEndPoint保存于或等于度的数值‛GoToalfaErrorEndIfalfaalfaPI角度值转换成弧度值将相贯线分割成若干段小直线,循环画线DimStartPointToAsDouble,EndPointToA利用AutoCAD绘制圆柱面相贯线展开曲线研究(原稿)docutoCAD绘制圆柱面相贯线展开曲线研究(原稿)。假设空间中任意点A在坐标系Oxyz和坐标系O′x′y′z′中的坐标分别为x,y,z和x′,y′,z′,则它们之间的关系为式中θ的含义与式中θ的含义相标EndPointSinalfaSqrRRrrSinieSinal。
6、α,y轴y′轴经过OO′。利用AutoCAD绘制圆柱面相贯线绘制小线段。StartPointEndPoint保存坐标点横坐标StartPointEndPoint保存坐标点纵坐标Nexti绘制最后个点iPIEndPointirr获取横坐标EndPointSinointToAsDouble,EndPointToAsDoubleDimJingDuAsDouble定义曲线绘制精度JingDuInutBox‚请输入曲线精度,‛,‛初始数据输入‛,ForiToPreThenMsgBox‛R应大于rre!‛GoToinutErrorEndIf输入两圆柱面轴线夹角alfaErroralfaInutBox‚轴线夹角,‛,‛初始数据输入‛,IfalfaOral实践,提升工作效率,提高加工质量。附代码SubyangtiaoDimRAsDouble,rrAsDouble,eAsDouble,alfaAsDouble,PIAsDoublePI输入圆柱直径,轴线alfaSqrRRrrSinieSinalfarrCosiCosalfa,EndPointZoomAll调整视图MsgBox‛相贯线绘制完成。‛绘制结束后提示。EndSub。如图所示,OO′是半径为相贯线展开曲线。利用AutoCAD绘制圆柱面相贯线展开曲线研究(原稿)。摘要本文首先推导出两圆柱面在空间中相交的相贯线展开方程,然后使用AutoCAD中VBA功能绘制高精度的相贯线展开曲线,将相贯线。
7、,ForiToPISteJingDuEndPointirr获取横坐相贯线展开曲线。利用AutoCAD绘制圆柱面相贯线展开曲线研究(原稿)。摘要本文首先推导出两圆柱面在空间中相交的相贯线展开方程,然后使用AutoCAD中VBA功能绘制高精度的相贯线展开曲线,将相贯线inutErrorEndIf输入两圆柱面轴线夹角alfaErroralfaInutBox‚轴线夹角,‛,‛初始数据输入‛,IfalfaOralfaThenMsgBox‛角度输入错误,请输入大于小利用AutoCAD绘制圆柱面相贯线展开曲线研究(原稿)doc标EndPointSinalfaSqrRRrrSinieSinalfarrCosiCosalfa获取纵坐标Ifi,EndPoint从第个循环点开始绘制小线段。StartPointEndPoint保存gtiaoDimRAsDouble,rrAsDouble,eAsDouble,alfaAsDouble,PIAsDoublePI输入圆柱直径,轴线距离等数据inutErrorRInutBox‚大sDoubleDimJingDuAsDouble定义曲线绘制精度JingDuInutBox‚请输入曲线精度,‛,‛初始数据输入‛,ForiToPISteJingDuEndPointirr获取横坐r和半径为r′的两圆柱面轴线的公垂线段,其中OO′e,rr′e,z轴与大圆柱面的轴线重合,z′轴与小圆柱面的轴线重合,z轴与z′间的夹角为。