[求助]：如何逐段判断多义线中包含弧？

jinsong-liao

判断多义线中是否存在弧，通过下列语句可知：
(defun c:test ( / bulge)
(foreach i (entget (car (entsel)))
(if (= (car i) 42)
(if (/= (cdr i) 0)
(setq bulge T)
)
)
)
bulge
)

但如何逐段判断？是直线段进行其他操作，当判断某段为弧段时，取得
弧的半径，弧长，切线长后再进行其他操作。某段为弧如何判断？半径，
弧长，切线长又如何取得？
请大家不吝指教！！！
先行谢过！！！

长时间没有回贴，能否请版主提供思路？

lsjjm

返回多义线子段信息:
[PHP]
(defun c:test ()
  (setq ent (entsel "\nPick Polyline:")
          p (cadr ent)
        ent (car ent))  
  (setq pp (vlax-curve-getclosestpointto ent (trans p 1 0))
         n (fix (vlax-curve-getparamatpoint ent pp)))
  (setq ll (acet-pline-segment-list ent))
  (list n (nth n (car ll))(nth (1+ n)(car ll))(nth n (cadr ll))(nth n (caddr ll))(nth n (last ll)))
)
[/PHP]

xyp1964

参考：
http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
[14-Pline圆弧标注]^C^C^P(if(not c:test014)(load"test000"));test014

狂刀

GetBulge 方法

获取多段线上给定索引位置的凸度值。

语法

RetVal = object.GetBulge(Index)