jkop 发表于 2024-1-11 11:34:23

学习了，可以做为借鉴！

luoposhusheng7 发表于 2024-3-19 12:44:54

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

rocking2008 发表于 2024-3-20 08:36:35

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


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

rocking2008 发表于 2024-3-20 08:42:33

本帖最后由 rocking2008 于 2024-3-20 08:43 编辑

(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 "");删除原有点点
   )
页: 1 [2]
查看完整版本: 多点自动连线