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

merak · 发表于 2004-4-1 11:10:00

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

meflying · 发表于 2004-4-1 11:46:00

不明白，既然是LWPOLYLINE，怎么又会是LINE和ARC组成呢？到底是一个对象还是很多对象？
起点角度是指起点到原点连线的角度吧

meflying · 发表于 2004-4-1 11:53:00

(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 · 发表于 2004-4-1 12:45:00

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

无痕 · 发表于 2004-4-1 23:59:00

干什么用？

xgr · 发表于 2004-10-18 15:00:00

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

afeng0712 · 发表于 2004-10-19 21:33:00

实质跟我说的差不多哈！先在关键点处断掉再提取各段长度！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))

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

发表回复

精选推荐

浏览过的版块