新手老手，请帮小弟我想想办法！！

merak

由一条很多线型(line,arc,lwpolyline....)组成的线段，当他它们加入一个选择集后，
要求返回第段的长度和起点角度段组成的表的集合，例如((长度　角度)(长度　角度).....).
注意***lwpolyline有可能是由linet和arc所构成的.***

meflying

不明白，既然是LWPOLYLINE，怎么又会是LINE和ARC组成呢？到底是一个对象还是很多对象？


起点角度是指起点到原点连线的角度吧

meflying

(vl-load-com)
(defun c:test( / ss i ent len pt lst)
(setq ss (ssget '((0 . "line,polyline,lwpolyline,arc"))))
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(setq len (vlax-curve-getDistAtParam ent (vlax-curve-getEndParam ent)))
(setq pt (vlax-curve-getStartPoint ent))
(setq lst (append lst (list (list len (angle '(0 0 0) pt)))))
(setq i (1+ i))
)
(princ lst)
(princ)
)

merak

不好意思呀，刚刚说的是有点不清楚。
比如说我用PLINE线画的图形.(command "_Pline" p1 p2 "A" "S" p3 p4 "L" p5 "")
可以看到这图形炸开后由三部分组成。不用“_explode”命令，怎么得到长度和角度表，直线是两点的夹角，
弧为弧起点的角度。

无痕

干什么用？

xgr

仔细阅读有关ＣAD的构成多段线的表和其DXF码，也许对你有帮助。特别是CAD的帮助文件！

afeng0712

实质跟我说的差不多哈！先在关键点处断掉再提取各段长度！vlax-get-length，样条曲线 (setq splineObj (cdr (car (entget (ssname ssspline index)))))
(setq vlaobject-splineObj (vlax-ename->vla-object splineObj))
(setq endSpline (vlax-curve-getEndParam vlaobject-splineObj))