求助了。
<p>((-1 . <Entity name: 7ef740d0>) (0 . "LWPOLYLINE") (330 . <Entity name: <br/>7ef72cf8>) (5 . "211A") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") <br/>(100 . "AcDbPolyline") (90 . 4) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) <em><font color="#f70909"><strong><u>(10 <br/>654.294 345.942)</u></strong></font></em>(40 . 0.0) (41 . 0.0) (42 . 0.0)<font color="#ff0000">
<strong><u>(10 842.541 345.942)</u></strong></font> (40 . <br/>0.0) (41 . 0.0) (42 . 0.0) <font color="#ff0000"><strong><u><em>(10 842.541 232.881)</em></u></strong></font> (40 . 0.0) (41 . 0.0) (42 . <br/>0.0) <font color="#ff0000"><u><strong><em>(10 654.294 232.881)</em></strong></u></font> (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))</p><p>大家好，请问如何取得四边形的第二，三，四个点坐标？就是上面的后面几个＜DXF10＞.</p><p>请教了。</p> (mapcar 'cdr (cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) endat)))
页:
[1]