[求助]：如何得出连续直线的端点

xyzjint_cn

如何用程序实现如下功能：
只选取直线中的第一条起始直线LN1，得到所有点的列表list，列表形式为（pt1 pt2 pt3 pt4 pt5 pt6)
直线如下图

dzwmy

不好意思，帮不了你

wawbt

很想知道,但要是PLINE线要好一点吧

zyuu0821

不明白楼主的意思是什么，能说清楚一点么？

zyuu0821

不明白楼主的意思是什么，能说清楚一点么？

kingqian83

这个不难，确认一下是用LINE，还是PLINE，绘制。
还有，画线的时候是不是依顺序画的。

betelzcm

不难，确认一下是用LINE，还是PLINE，绘制。
还有，画线的时候是不是依顺序画的

zml84

先连接，后处理。

2. 
   
3. ;;;功能：将首尾相连的直线段，连接为多段线。
   
4. ;;;日期：zml84 于 2007-08-15 15:40
   
5. (setvar "CMDECHO" 0)
   
6. (defun C:JJ (/ S1)
   
7.     (if        (setq S1 (entsel "\n点取要连接的一条线段: "))
   
8.         (if (= (cdr (assoc 0 (entget (car S1)))) "LINE")
   
9.             (progn
   
10.                 (command "_.pedit" S1 "y" "j" "all" "" "")
    
11.                 (princ "\n操作完成，感谢使用！")
    
12.             )
    
13.             (princ "\n>>>怎么不是直线段呢？")
    
14.         )
    
15.         (princ "\n>>>没有点到对象上啊！")
    
16.     )
    
17.     (princ)
    
18. )
    
19. ;;;=========================================================
    
20. (setq STR (strcat "\n========================================"
    
21.                   "\n功能：将首尾相连的直线段，连接为多段线。"
    
22.                   "\n日期：zml84 于 2007-08-15 15:40\n"
    
23.                   "\n输入命令 JJ 开始执行。"
    
24.           )
    
25. )
    
26. (princ STR)
    
27. (alert STR)
    
28. (princ)
    
29. ;;;=========================================================
    

<br /> ;;;功能：将首尾相连的直线段，连接为多段线。<br /> ;;;日期：zml84 于 2007-08-15 15:40<br /> (setvar "CMDECHO" 0)<br /> (defun C:JJ (/ S1)<br />     (if        (setq S1 (entsel "\n点取要连接的一条线段: "))<br />         (if (= (cdr (assoc 0 (entget (car S1)))) "LINE")<br />             (progn<br />                 (command "_.pedit" S1 "y" "j" "all" "" "")<br />                 (princ "\n操作完成，感谢使用！")<br />             )<br />             (princ "\n>>>怎么不是直线段呢？")<br />         )<br />         (princ "\n>>>没有点到对象上啊！")<br />     )<br />     (princ)<br /> )<br /> ;;;=========================================================<br /> (setq STR (strcat "\n========================================"<br />                   "\n功能：将首尾相连的直线段，连接为多段线。"<br />                   "\n日期：zml84 于 2007-08-15 15:40\n"<br />                   "\n输入命令 JJ 开始执行。"<br />           )<br /> )<br /> (princ STR)<br /> (alert STR)<br /> (princ)<br /> ;;;=========================================================<br />

aeo

得到所有点(p1 p2 p5 p6 p4 p5 p3 p4..)
分x y从小到大排序
消重

当然按8楼先变为pl线，得到点再undo一下也可