2条平行线闭合成多段线

GDFGFGF

start4444 发表于 2019-8-1 11:02
你那个太繁琐了，简化了一下

大师，能不能改成支持多段线和框选

lyoshi

15617556676 发表于 2019-8-1 15:23
你这个还需要判定一下起点和端点，要不又自相交叉的

2. (defun c:tt5(/ ss len en1 en2 data1 data2 pt1 pt2 pt3 pt4)
   
3.         (prompt "\nSelect 2 lwpolylines:")
   
4.         (setq ss (ssget '((0 . "lwpolyline,line"))))
   
5.         (setq len (sslength ss))
   
6.         (if (/= len 2)
   
7.                 (princ "\n不是2根! ---程序退出......")
   
8.                 (progn
   
9.                         (setq en1 (ssname ss 0) en2 (ssname ss 1))
   
10.                         (setq data1 (entget en1) data2 (entget en2))
    
11.                         (setq pt1 (cdr (assoc 10 data1)) pt2 (cdr (assoc 11 data1)))
    
12.                         (setq pt3 (cdr (assoc 10 data2)) pt4 (cdr (assoc 11 data2)))
    
13.                         ;; (PRINT pt1)
    
14.                         ;; (PRINT pt2)
    
15.                         ;; (PRINT pt3)
    
16.                         ;; (PRINT pt4)
    
17.                         (setq d1 (distance pt1 pt3))
    
18.                         (setq d2 (distance pt1 pt4))
    
19.                         (if (< d1 d2)
    
20.                                 ((command "line" pt1 pt3 "") (command "line" pt2 pt4 "") )
    
21.                                 ((command "line" pt1 pt4 "") (command "line" pt2 pt3 "") )
    
22.                         )
    
23.                 )
    
24.         )
    
25.         (princ)
    
26. )
    

(defun c:tt5(/ ss len en1 en2 data1 data2 pt1 pt2 pt3 pt4)<br />         (prompt "\nSelect 2 lwpolylines:")<br />         (setq ss (ssget '((0 . "lwpolyline,line"))))<br />         (setq len (sslength ss))<br />         (if (/= len 2)<br />                 (princ "\n不是2根! ---程序退出......")<br />                 (progn<br />                         (setq en1 (ssname ss 0) en2 (ssname ss 1))<br />                         (setq data1 (entget en1) data2 (entget en2))<br />                         (setq pt1 (cdr (assoc 10 data1)) pt2 (cdr (assoc 11 data1)))<br />                         (setq pt3 (cdr (assoc 10 data2)) pt4 (cdr (assoc 11 data2)))<br />                         ;; (PRINT pt1)<br />                         ;; (PRINT pt2)<br />                         ;; (PRINT pt3)<br />                         ;; (PRINT pt4)<br />                         (setq d1 (distance pt1 pt3))<br />                         (setq d2 (distance pt1 pt4))<br />                         (if (< d1 d2)<br />                                 ((command "line" pt1 pt3 "") (command "line" pt2 pt4 "") )<br />                                 ((command "line" pt1 pt4 "") (command "line" pt2 pt3 "") )<br />                         )<br />                 )<br />         )<br />         (princ)<br /> )<br />

自贡黄明儒

不用写程序