多点自动连线

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 "");删除原有点点
)

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

[源码] 多点自动连线