求线段的首尾相连，感谢各位。

xxwoaini897 · 发表于 2014-6-13 19:06:40

如图：

左边蓝色的小线段，需要像右边那样链接起来为多段线，由于这样的小线段非常多，并且有的之间的距离不一样所以不能用阵列，希望哪位大神能赐个代码，谢谢。。

拉契 · 发表于 2014-6-15 18:11:32

取得左边的线段的坐标然后将它们按从左到右（x坐标从小到大），从下到上（y坐标从小到大）排列然后用多段线画出！

Free-Lancer · 发表于 2014-6-26 03:34:20

图示情况的程序,如果是水平时调整排序符号

(defun c:tt (/ ss lst)
(if (setq ss (ssget '((0 . "*line"))))
(progn
(setq lst (mapcar '(lambda (e)
(vl-sort
(list (vlax-curve-getstartpoint e)
(vlax-curve-getendpoint e)
)
'(lambda (x1 x2)
(if (equal (car x1) (car x2) 1e-3)
(> (cadr x1) (cadr x2))
(< (car x1) (car x2))
)
)
)
)
(xdrx_pickset->ents ss)
)
lst (vl-sort lst
'(lambda (x1 x2)
(> (cadadr x1) (cadadr x2))
)
)
)
(mapcar '(lambda (p1 p2)
(entmake
(list '(0 . "line")
(cons 10 (last p1))
(cons 11 (car p2))
)
)
)
lst
(cdr lst)
)
)
)
(princ)
)

(defun c:tt (/ ss lst) 
  (if (setq ss (ssget '((0 . "*line")))) 
    (progn 
      (setq lst        (mapcar        '(lambda (e) 
                           (vl-sort 
                             (list (vlax-curve-getstartpoint e) 
                                   (vlax-curve-getendpoint e) 
                             ) 
                             '(lambda (x1 x2) 
                                (if (equal (car x1) (car x2) 1e-3) 
                                  (> (cadr x1) (cadr x2)) 
                                  (< (car x1) (car x2)) 
                                ) 
                              ) 
                           ) 
                         ) 
                        (xdrx_pickset->ents ss) 
                ) 
            lst        (vl-sort lst 
                         '(lambda (x1 x2) 
                            (> (cadadr x1) (cadadr x2)) 
                          ) 
                ) 
      ) 
      (mapcar '(lambda (p1 p2) 
                 (entmake 
                   (list '(0 . "line") 
                         (cons 10 (last p1)) 
                         (cons 11 (car p2)) 
                   ) 
                 ) 
               ) 
              lst 
              (cdr lst) 
      ) 
    ) 
  ) 
  (princ) 
)

账号		自动登录	找回密码
密码			立即注册

[求助] 求线段的首尾相连，感谢各位。