如何把一段折线(pline)展开成相同延长度的直线(pline)?

tfanghui

langjs 发表于 2012-6-14 09:12
对LWPOLYLINE和POLYLINE都有效

大神，这个代码可以给定一个高度，再连接上下每条线段的端点吗

llsheng_73

1. (defun makepl(arg);;arg==>(list pts 闭合标志 全局宽度 线宽 图层 颜色 厚度 线型)pts以后可省略
   
2.       (entmakex(append(mapcar'cons'(0 100 100 43 370 8 62 39 6)(append'("LWPOLYLINE""AcDbEntity""AcDbPolyline")(cddr arg)))
   
3.                       (cons(cons 90(length(car arg)))(cons(cons 70(if(cadr arg)(cadr arg)0))(mapcar'(lambda(x)(cons 10 x))(car arg)))))))
   
4. (defun c:tt(/ e p l)
   
5.   (while(and(setq l nil e(car(entsel"选择需要展开的曲线")))
   
6.       (setq n(VL-CATCH-ALL-APPLY'vlax-curve-getendparam(list e)))
   
7.       (setq p(getpoint"指定展开线起点:")))
   
8.       (cond((WCMATCH(cdr(assoc 0(entget e)))"*POLYLINE")
   
9.             (while(setq p(vlax-curve-getdistatparam e n))
   
10.               (setq l(cons(polar p 0(vlax-curve-getdistatparam e n))l)n(1- n)))
    
11.             (makepl(List l)))
    
12.            (t(makepl(list(list p(polar p 0(-(vlax-curve-getdistatparam e(vlax-curve-getendparam e))(vlax-curve-getdistatparam e(vlax-curve-getstartparam e)))))))))))

(defun makepl(arg);;arg==>(list pts 闭合标志 全局宽度 线宽 图层 颜色 厚度 线型)pts以后可省略<br />       (entmakex(append(mapcar'cons'(0 100 100 43 370 8 62 39 6)(append'("LWPOLYLINE""AcDbEntity""AcDbPolyline")(cddr arg)))<br />                       (cons(cons 90(length(car arg)))(cons(cons 70(if(cadr arg)(cadr arg)0))(mapcar'(lambda(x)(cons 10 x))(car arg)))))))<br /> (defun c:tt(/ e p l)<br />   (while(and(setq l nil e(car(entsel"选择需要展开的曲线")))<br />       (setq n(VL-CATCH-ALL-APPLY'vlax-curve-getendparam(list e)))<br />       (setq p(getpoint"指定展开线起点:")))<br />       (cond((WCMATCH(cdr(assoc 0(entget e)))"*POLYLINE")<br />             (while(setq p(vlax-curve-getdistatparam e n))<br />               (setq l(cons(polar p 0(vlax-curve-getdistatparam e n))l)n(1- n)))<br />             (makepl(List l)))<br />            (t(makepl(list(list p(polar p 0(-(vlax-curve-getdistatparam e(vlax-curve-getendparam e))(vlax-curve-getdistatparam e(vlax-curve-getstartparam e)))))))))))

999999

顶顶顶