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】

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值