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】
回答： 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】