[求助]：请高手给个思路

chydraulic

最近，我处理地形图时碰到了新情况，我得到地形图为3d坐标，但是每根地形线为很短的line间断地延伸，我想用将其转换为一整条pline（相同z坐标形成一个整体的pline），我首先将line的起点和端点读出形成3d的点表，然后在用pline命令画线，但是编程时得到的起点和终点的坐标值并不是按照地形线的走势排列的。我想了很多方法，用排序好像也有问题。
请高手帮忙，给个思路啊！

mmmm

先过滤出Z 同高的直线，再对这些直线进行PEDIT+JOIN

chydraulic

谢谢，楼上的建议，我也这样搞，但是最大的问题是相同z的line也有很多段，而且用ssnanme读取的顺序并不一定是按地形的走势！

mmmm

2. 
   
3. (Defun Joinline(SSet / idx OType Obj)
   
4. (setq idx -1)
   
5.   (repeat (sslength SSet)
   
6.     (setq Obj        (ssname SSet (setq idx (1+ idx)))
   
7.           OType        (cdr (assoc 0 (entget Obj)))
   
8.     )
   
9.     (cond ((member OType '("LINE" "ARC"))
   
10.            (command "_.PEdit" (ssadd Obj) "_Y" "_J" SSet "" "")
    
11.           )
    
12.           ((= OType "LWPOLYLINE")
    
13.            (if (/= (cdr (assoc 70 (entget Obj))) 1)
    
14.              (command "_.PEdit" (ssadd Obj) "_J" SSet "" "")
    
15.            )
    
16.           )
    
17.           (t (princ))
    
18.     )
    
19.   )
    
20. )
    

<br /> (Defun Joinline(SSet / idx OType Obj)<br /> (setq idx -1)<br />   (repeat (sslength SSet)<br />     (setq Obj        (ssname SSet (setq idx (1+ idx)))<br />           OType        (cdr (assoc 0 (entget Obj)))<br />     )<br />     (cond ((member OType '("LINE" "ARC"))<br />            (command "_.PEdit" (ssadd Obj) "_Y" "_J" SSet "" "")<br />           )<br />           ((= OType "LWPOLYLINE")<br />            (if (/= (cdr (assoc 70 (entget Obj))) 1)<br />              (command "_.PEdit" (ssadd Obj) "_J" SSet "" "")<br />            )<br />           )<br />           (t (princ))<br />     )<br />   )<br /> )<br />

它山之石

[php]

;; Polyline Joins Selected Objects
;;
  (defun c:j (/ ss)
   (prompt "\nSelect Objects to Join... ")
   (setq ss (ssget))
   (command "pedit" "m" ss "" "j" "" "")
   (princ)
  )

[/php]

chydraulic

谢谢，四楼和五楼的两位兄弟，四楼的是可以做处理line是相连接的图，五楼的可以处理line间断的图。
看来我还要多加学习啊，一直想将端点取出后用pline来画线，看到两位的回帖才觉得自己的想法有问题，可以直接用pedit来编辑就不用考虑线段走势问题了！呵呵！谢谢！

rjf810120

看来这个地形图只是用全站仪直接生成的
后期处理很少阿