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