[编程申请]：多段线怎么取点??????????

yitian519

有一条任意多段线,如果知多段线的x坐标,怎么获得它的y坐标?

Underway

有截图会好理解些

zml84

最初由 yitian519 发布
[B]有一条任意多段线,如果知多段线的x坐标,怎么获得它的y坐标? [/B]

什么叫做“任意多段线”？
<br>
在 (x 0) (x 1) 绘制一直线， 以已知对象为边界，延伸直线，得到坐标。

hatcard

我的理解是;先求出多段线点列表,,然后用塞选就可以老

king99112

如果知道方向的话,不知道能不能确定点的情况

yitian519

最初由 hatcard 发布
[B]我的理解是;先求出多段线点列表,,然后用塞选就可以老 [/B]

大哥能不能帮忙编个看看,我是新手

winabcd

你这种情况的解是不唯一的，
如果多段线全由直线段组成，那么解好求一些，
如果多段线中含有曲线段，那要烦些。
建议你用X坐标做一条直线，要足够长，再用求交点的方法求出Y坐标。
这样的程序论坛中有，你找找吧。

zml84

1. 
   
2. <HR SIZE=5><PRE><FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;获取多段线顶点坐标的代码片段</SPAN></FONT>
   
3. <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">if</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">S1</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">entsel</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"\n请点选多段线对象:"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
   
4.     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">progn</FONT>
   
5.         <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">ENT</FONT>    <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">entget</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">car</FONT> <FONT face="Fixedsys">S1</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
   
6.               <FONT face="Fixedsys">N</FONT>             <FONT face="Fixedsys" COLOR="#009900">0</FONT>
   
7.               <FONT face="Fixedsys">PT-LST</FONT> <FONT face="Fixedsys" COLOR="#0000FF">'</FONT><FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
   
8.         <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
   
9.         <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">while</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">/=</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">EI</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">nth</FONT> <FONT face="Fixedsys">N</FONT> <FONT face="Fixedsys">ENT</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT> <FONT face="Fixedsys" COLOR="#0000FF">NIL</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
   
10.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">if</FONT>        <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">=</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">car</FONT> <FONT face="Fixedsys">EI</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT> <FONT face="Fixedsys" COLOR="#009900">10</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
11.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">PT-LST</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">cons</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">cdr</FONT> <FONT face="Fixedsys">EI</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT> <FONT face="Fixedsys">PT-LST</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
12.             <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
13.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">N</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">1+</FONT> <FONT face="Fixedsys">N</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
14.         <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
15.         <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">PT-LST</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">reverse</FONT> <FONT face="Fixedsys">PT-LST</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
16.     <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
17. <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
18. <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT> <FONT face="Fixedsys">PT-LST</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
    
19. </PRE>
    

复制代码

参见：http://zml84.blog.sohu.com/46666296.html

yitian519

(if        (= (car EI) 10)
这个什么意识?

gysjy

ENT获得一个形如 ((-1 . <Entity name: 2d61a20>) (0 . "LWPOLYLINE") (5 . "9C4") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbPolyline") (90 . 4) (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 227724.0 166450.0) (40 .0.0) (41 . 0.0) (42 . 0.0) (10 228488.0 167683.0) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 230155.0 167232.0) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 229981.0 166381.0) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))
的表，(if (= (car EI) 10)则是寻找表中开头为10的表项。