提取多以线的问题

hnge

由直线和圆弧组成的多以线，可以通过每段的凸度来辨别是直线或者圆弧，如果是圆弧的话，能否知道该圆弧的圆心坐标，谢谢赐教

wyj7485

把多义线炸开就可以得到每个实体,就可以取得相应实体的属性. Dim ExpObj,CenPt as Variant Dim j ExpObj =PLine.Explode'PLine 为已知多义线 For j=0 to UBound(ExpObj ) Select Case ExpObj (j).ObjectName Case "AcDbLine" '.......... Case "AcDbCircle" CenPt =ExpObj (j).Center '.............. End Select