多点自动连线

117g

命令：dlx 功能：选中的点按X轴递增的方向依次连接


(defun c:DLX ()
  (setq points (ssget '((0 . "POINT"))))
  (if (zerop (setq num-points (sslength points)))
    (princ "\nNo points selected.")
    (progn
      (setq sorted-points (list))
      (repeat num-points
        (setq ent (ssname points 0))
        (setq pt (cdr (assoc 10 (entget ent))))
        (setq sorted-points (cons pt sorted-points))
        (setq points (ssdel ent points))
      )
      (setq sorted-points (vl-sort sorted-points (function (lambda (a b) (< (car a) (car b))))))
      (command "_pline")
      (repeat num-points
        (setq pt (car sorted-points))
        (setq sorted-points (cdr sorted-points))
        (command pt)
      )
    )
  )
  (princ)
)



（整理贴）

xyp1964

1. (defun c:tt1 ()
   
2.   (if (and (setq ss (ssget '((0 . "POINT"))))
   
3.            (setq nn (sslength ss))
   
4.       )
   
5.     (progn
   
6.       (setq ptn '() i 0)
   
7.       (repeat nn
   
8.         (setq pt  (cdr (assoc 10 (entget (ssname ss i))))
   
9.               ptn (cons pt ptn)
   
10.               i (1+ i)
    
11.         )
    
12.       )
    
13.       (setq ptn (vl-sort ptn '(lambda (a b) (< (car a) (car b)))))
    
14.       (command "pline")
    
15.       (foreach pt ptn (command pt))
    
16.       (command "")
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )
    
21. 
    
22. 
    
23. (defun c:tt2 (/ ptn)
    
24.   (if (setq ss (ssget '((0 . "POINT"))))
    
25.     (progn
    
26.       (setq i -1)
    
27.       (while (setq s1 (ssname ss (setq i (1+ i))))
    
28.         (setq ptn (cons (cdr (assoc 10 (entget s1))) ptn))
    
29.       )
    
30.       (command "pline")
    
31.       (foreach pt (vl-sort ptn '(lambda (a b) (< (car a) (car b)))) (command pt))
    
32.       (command "")
    
33.     )
    
34.   )
    
35.   (princ)
    
36. )
    

(defun c:tt1 ()<br />   (if (and (setq ss (ssget '((0 . "POINT"))))<br />            (setq nn (sslength ss))<br />       )<br />     (progn<br />       (setq ptn '() i 0)<br />       (repeat nn<br />         (setq pt  (cdr (assoc 10 (entget (ssname ss i))))<br />               ptn (cons pt ptn)<br />               i (1+ i)<br />         )<br />       )<br />       (setq ptn (vl-sort ptn '(lambda (a b) (< (car a) (car b)))))<br />       (command "pline")<br />       (foreach pt ptn (command pt))<br />       (command "")<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> <br /> (defun c:tt2 (/ ptn)<br />   (if (setq ss (ssget '((0 . "POINT"))))<br />     (progn<br />       (setq i -1)<br />       (while (setq s1 (ssname ss (setq i (1+ i))))<br />         (setq ptn (cons (cdr (assoc 10 (entget s1))) ptn))<br />       )<br />       (command "pline")<br />       (foreach pt (vl-sort ptn '(lambda (a b) (< (car a) (car b)))) (command pt))<br />       (command "")<br />     )<br />   )<br />   (princ)<br /> )<br />

llsheng_73

1. (defun c:tt2 (/ i ss s1 ptn)
   
2.   (and(setq i 0 ss(ssget '((0 . "POINT"))))
   
3.       (while(setq s1(ssname ss i))
   
4.         (setq i(1+ i)
   
5.               ptn(cons(cdr(assoc 10 (entget s1)))ptn))
   
6.         )
   
7.       (entmakex(vl-list*'(0 . "lwpolyline")'(100 . "AcDbEntity")'(100 . "AcDbPolyline")(cons 90(length ptn))
   
8.                         (mapcar(function(lambda(x)(cons 10 x)))
   
9.                                (vl-sort ptn(function(lambda (a b) (< (car a) (car b))))))))
   
10.       )
    
11.   )

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

liuhe

https://www.bilibili.com/video/B ... 57434301a9219740425

guosheyang

后面好像少了个空格

117g

xyp1964 发表于 2023-11-6 19:23

大佬对点的处理方式比我的方便太多了，码住学习下

zxc710370969

感谢楼主分享

117g

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

感谢大佬指点

leedun

收藏，自动连线

依然小小鸟

不错的帖子 顶一下