cad渐开线齿轮轮廓绘制_CAD渐开线齿轮怎么画？

回答：

AutoCAD绘制展开线的话，用程序绘制比较简单，程序如下：(defunC:tes(/&dis1&k1&kw1ang1objpt1pt2tc1)

(vl-load-com);加载vlax

(PRinc"

请选择要绘制展开线的圆")

(if(setq&kw1(ssget'((0."CIRCLE"))))

(PRogn

(while(setq&k1(ssname&kw10))

(setq&kw1(ssdel&k1&kw1))

(setqobj(vlax-ename->vla-object&k1));变为vlax对象

(setq&dis1(vlax-curve-getDistAtParamobj(vlax-curve-getEndParamobj)));取得长度

(setqpt2(Vlax-SafeArray->List(Vlax-Variant-Value(vla-get-Centerobj))));取得圆心点

(setqtc1(vla-get-layerobj));取得圆的图层

(setq#r1(vla-get-Radiusobj));取得圆的半径

(setqpt1(polarpt2(*pi1.5)#r1));取得圆最低点

(setqpt2(polarpt10&dis1));展开线另一点

(entmake(list'(0."LINE")(cons8tc1)(cons10pt1)(cons11pt2)));绘制展开线

);while

)

)

(PRin1)

)

;;复制到记事本,以【.lsp】为后缀命名,打开CAD，Autolisp加载，命令【TES】