lisp判断多断线是圆弧还是直线，求多段线圆弧的圆心和R半径

其实cad里面的多段线，就由两种线型组成，一种是圆弧，另一种是直线，除此之外没有其他任何组成，那怎么识别多断线里面是圆弧还是直线？能否按照顺序识别呢？

首先画一断有圆弧和直线的多断线，可是可以

(entget (car (entsel)))复制

识别多断线由什么组成，经过观察里面的组码，没个点的组码是10，直线的组码42为0，圆弧的组码42为非0，换句话说，当组码42，等于0为直线，当大于0为顺圆弧，当小于0为逆圆弧。

已知上面可以判断多段线是否是直线还是圆弧，上的组码42为凸度，已知圆弧的凸度就可以计算输出，圆弧的高度H，

计算公式

H=凸度 X D两点距离/2

r＝（D/ H/ 8.0＋ H/ D/ 2.0）× D

圆弧两端点连成直线的中点为midp

圆心=（POLAR midp（+ (angle P1 P2)）(- r h )）