怎么将多段线顶点DXF10组成表

caoyongjun

怎么将多段线顶点DXF10组成表， （(10 299.934 -1500.9) (10 303.077 -1500）(10 303.077 -1502.3)  (10 305.177 -1502.3) (10 305.177 -1500.4) (10 308.25 -1500.4)）

uualice2020

(setq ptlst (mapcar 'cdr (vl-remove-if (function (lambda (e) (/= 10 (car e)))) (entget ename))))

Andyhon

要的是?
(10 299.934 -1500.9)
-->
(299.934 -1500.9)

llsheng_73

1. (defun plxyz(e fuz / pt p n);多段线节点三维坐标，连续重合点只取一个，根据fuz阀值过滤接近点
   
2.         (or(=(type e)'vla-object)(setq e(vlax-ename->vla-object e)))
   
3.         (cond((=(setq n(vlax-get-property e'objectname))"AcDbLine")
   
4.               (list(vlax-curve-getstartpoint e)(vlax-curve-getendpoint e)))
   
5.              ((WCMATCH n"*Polyline")
   
6.               (repeat(setq n(fix(+(vlax-curve-getendparam e)(if(=(vlax-get-property e'Closed):vlax-true)0 1))))
   
7.                 (or(equal(setq n(1- n)p(vlax-curve-getpointatparam e n))(car pt)fun)
   
8.                    (setq pt(cons p pt))))
   
9.               pt)))

(defun plxyz(e fuz / pt p n);多段线节点三维坐标，连续重合点只取一个，根据fuz阀值过滤接近点<br />         (or(=(type e)'vla-object)(setq e(vlax-ename->vla-object e)))<br />         (cond((=(setq n(vlax-get-property e'objectname))"AcDbLine")<br />               (list(vlax-curve-getstartpoint e)(vlax-curve-getendpoint e)))<br />              ((WCMATCH n"*Polyline")<br />               (repeat(setq n(fix(+(vlax-curve-getendparam e)(if(=(vlax-get-property e'Closed):vlax-true)0 1))))<br />                 (or(equal(setq n(1- n)p(vlax-curve-getpointatparam e n))(car pt)fun)<br />                    (setq pt(cons p pt))))<br />               pt)))

xyp1964

(mapcar 'cdr lst)

clm840917

(cons(list         (assoc 10 (member (assoc 10 e) e))))

clm840917

(((10 -852.253 187.664) (42 . 0.0)) ((10 -544.534 187.664) (42 . -0.414214)) ((10 -524.534 167.664) (42 . 0.0)) ((10 -524.534 35.0234) (42 . -0.414214)) ((10 -544.534 15.0234) (42 . 0.0)) ((10 -852.253 15.0234) (42 . 0.0)))