多点自动连线

jkop

学习了，可以做为借鉴！

luoposhusheng7

请问有横向的多连线插件没，谢谢！

rocking2008

llsheng_73 发表于 2023-11-8 23:06

应该增加一下原有点删除掉。

rocking2008

(defun c:tt2 (/ i ss s1 ptn)
  (and(setq i 0 ss(ssget '((0 . "POINT"))))
     (while(setq s1(ssname ss i))
       (setq i(1+ i)
            ptn(cons(cdr(assoc 10 (entget s1)))ptn))
      )
    (entmakex(vl-list*'(0 . "lwpolyline")'(100 . "AcDbEntity")'(100 . "AcDbPolyline")(cons 90(length ptn))
        (mapcar(function(lambda(x)(cons 10 x)))
         (vl-sort ptn(function(lambda (a b) (< (car a) (car b))))))))
      )
    (command "_erase" ss "");删除原有点点
   )