求一个能实现这个功能的LISP,我手都要弄断了....

YANGF85

我现在是用多段线打断以后再一个个连接,实在太慢了,求大侠给个办法吧,

Gu_xl

1. ;;(c:tt)
   
2. (defun c:tt (/ S1 S2 EL        P1 P2 PA PB PC PD ANG VEC N P3 P4 PL L1        L2 E1 E2)
   
3.   (princ "\n选择要打断的线:")
   
4.   (setq s1 (ssget '((0 . "line"))))
   
5.   (if (not s1)
   
6.     (exit)
   
7.   )
   
8.   (princ "\n选择分割线:")
   
9.   (setq s2 (ssget '((0 . "line"))))
   
10.   (if (or (not s2)
    
11.           (/= 2 (sslength s2))
    
12.       )
    
13.     (exit)
    
14.   )
    
15.   (setq        el (entget (ssname s1 0))
    
16.         p1 (cdr (assoc 10 el))
    
17.         p2 (cdr (assoc 11 el))
    
18.         el (entget (setq e1 (ssname s2 0)))
    
19.         pa (cdr (assoc 10 el))
    
20.         pb (cdr (assoc 11 el))
    
21.         el (entget (setq e2 (ssname s2 1)))
    
22.         pc (cdr (assoc 10 el))
    
23.         pd (cdr (assoc 11 el))
    
24.   )
    
25.   (setq        ang (angle p1 p2)
    
26.         vec (list (cos ang) (sin ang)  0)
    
27.   )
    
28.   (entdel e1)
    
29.   (entdel e2)
    
30.   (repeat (setq n (sslength s1))
    
31.     (setq el (entget (setq e1 (ssname s1 (setq n (1- n)))))
    
32.           p1 (trans (cdr (assoc 10 el)) 0 vec)
    
33.           p2 (trans (cdr (assoc 11 el)) 0 vec)
    
34.           p3 (trans
    
35.                (inters (cdr (assoc 10 el)) (cdr (assoc 11 el)) pa pb nil)
    
36.                0
    
37.                vec
    
38.              )
    
39.           p4 (trans
    
40.                (inters (cdr (assoc 10 el)) (cdr (assoc 11 el)) pc pd nil)
    
41.                0
    
42.                vec
    
43.              )
    
44.     )
    
45.     (entdel e1)
    
46.     (setq pl (cons (vl-sort (list p1 p2 p3 p4)
    
47.                             '(lambda (a b) (< (caddr a) (caddr b)))
    
48.                    )
    
49.                    pl
    
50.              )
    
51.     )
    
52.   )
    
53. (setq pl (vl-sort pl '(lambda (a b) (> (caadr a) (caadr b)))))
    
54.   (while (cadr pl)
    
55.     (setq l1 (car pl)
    
56.           l2 (cadr pl)
    
57.           p1 (car l1)
    
58.           p2 (cadr l1)
    
59.           p3 (cadr l2)
    
60.           p4 (car l2)
    
61.     )
    
62.     (entmake
    
63.       (list '(0 . "LWPOLYLINE")
    
64.             '(100 . "AcDbEntity")
    
65.             '(100 . "AcDbPolyline")
    
66.             '(90 . 4)
    
67.             '(70 . 1)
    
68.             '(43 . 0.0)
    
69.             '(38 . 0.0)
    
70.             '(39 . 0.0)
    
71.             (cons 10 (trans p1 vec 0))
    
72.             '(40 . 0.0)
    
73.             '(41 . 0.0)
    
74.             '(42 . 0.0)
    
75.             (cons 10 (trans p2 vec 0))
    
76.             '(40 . 0.0)
    
77.             '(41 . 0.0)
    
78.             '(42 . 0.0)
    
79.             (cons 10 (trans p3 vec 0))
    
80.             '(40 . 0.0)
    
81.             '(41 . 0.0)
    
82.             '(42 . 0.0)
    
83.             (cons 10 (trans p4 vec 0))
    
84.             '(40 . 0.0)
    
85.             '(41 . 0.0)
    
86.             '(42 . 0.0)
    
87.             '(210 0.0 0.0 1.0)
    
88.       )
    
89.     )
    
90.     (setq p1 (caddr l1)
    
91.           p2 (cadddr l1)
    
92.           p3 (cadddr l2)
    
93.           p4 (caddr l2)
    
94.     )
    
95.     (entmake
    
96.       (list '(0 . "LWPOLYLINE")
    
97.             '(100 . "AcDbEntity")
    
98.             '(100 . "AcDbPolyline")
    
99.             '(90 . 4)
    
100.             '(70 . 1)
     
101.             '(43 . 0.0)
     
102.             '(38 . 0.0)
     
103.             '(39 . 0.0)
     
104.             (cons 10 (trans p1 vec 0))
     
105.             '(40 . 0.0)
     
106.             '(41 . 0.0)
     
107.             '(42 . 0.0)
     
108.             (cons 10 (trans p2 vec 0))
     
109.             '(40 . 0.0)
     
110.             '(41 . 0.0)
     
111.             '(42 . 0.0)
     
112.             (cons 10 (trans p3 vec 0))
     
113.             '(40 . 0.0)
     
114.             '(41 . 0.0)
     
115.             '(42 . 0.0)
     
116.             (cons 10 (trans p4 vec 0))
     
117.             '(40 . 0.0)
     
118.             '(41 . 0.0)
     
119.             '(42 . 0.0)
     
120.             '(210 0.0 0.0 1.0)
     
121.       )
     
122.     )
     
123.     (setq pl (cddr pl))
     
124.   )
     
125.   (princ)
     
126. )
     

;;(c:tt)<br /> (defun c:tt (/ S1 S2 EL        P1 P2 PA PB PC PD ANG VEC N P3 P4 PL L1        L2 E1 E2)<br />   (princ "\n选择要打断的线:")<br />   (setq s1 (ssget '((0 . "line"))))<br />   (if (not s1)<br />     (exit)<br />   )<br />   (princ "\n选择分割线:")<br />   (setq s2 (ssget '((0 . "line"))))<br />   (if (or (not s2)<br />           (/= 2 (sslength s2))<br />       )<br />     (exit)<br />   )<br />   (setq        el (entget (ssname s1 0))<br />         p1 (cdr (assoc 10 el))<br />         p2 (cdr (assoc 11 el))<br />         el (entget (setq e1 (ssname s2 0)))<br />         pa (cdr (assoc 10 el))<br />         pb (cdr (assoc 11 el))<br />         el (entget (setq e2 (ssname s2 1)))<br />         pc (cdr (assoc 10 el))<br />         pd (cdr (assoc 11 el))<br />   )<br />   (setq        ang (angle p1 p2)<br />         vec (list (cos ang) (sin ang)  0)<br />   )<br />   (entdel e1)<br />   (entdel e2)<br />   (repeat (setq n (sslength s1))<br />     (setq el (entget (setq e1 (ssname s1 (setq n (1- n)))))<br />           p1 (trans (cdr (assoc 10 el)) 0 vec)<br />           p2 (trans (cdr (assoc 11 el)) 0 vec)<br />           p3 (trans<br />                (inters (cdr (assoc 10 el)) (cdr (assoc 11 el)) pa pb nil)<br />                0<br />                vec<br />              )<br />           p4 (trans<br />                (inters (cdr (assoc 10 el)) (cdr (assoc 11 el)) pc pd nil)<br />                0<br />                vec<br />              )<br />     )<br />     (entdel e1)<br />     (setq pl (cons (vl-sort (list p1 p2 p3 p4)<br />                             '(lambda (a b) (< (caddr a) (caddr b)))<br />                    )<br />                    pl<br />              )<br />     )<br />   )<br /> (setq pl (vl-sort pl '(lambda (a b) (> (caadr a) (caadr b)))))<br />   (while (cadr pl)<br />     (setq l1 (car pl)<br />           l2 (cadr pl)<br />           p1 (car l1)<br />           p2 (cadr l1)<br />           p3 (cadr l2)<br />           p4 (car l2)<br />     )<br />     (entmake<br />       (list '(0 . "LWPOLYLINE")<br />             '(100 . "AcDbEntity")<br />             '(100 . "AcDbPolyline")<br />             '(90 . 4)<br />             '(70 . 1)<br />             '(43 . 0.0)<br />             '(38 . 0.0)<br />             '(39 . 0.0)<br />             (cons 10 (trans p1 vec 0))<br />             '(40 . 0.0)<br />             '(41 . 0.0)<br />             '(42 . 0.0)<br />             (cons 10 (trans p2 vec 0))<br />             '(40 . 0.0)<br />             '(41 . 0.0)<br />             '(42 . 0.0)<br />             (cons 10 (trans p3 vec 0))<br />             '(40 . 0.0)<br />             '(41 . 0.0)<br />             '(42 . 0.0)<br />             (cons 10 (trans p4 vec 0))<br />             '(40 . 0.0)<br />             '(41 . 0.0)<br />             '(42 . 0.0)<br />             '(210 0.0 0.0 1.0)<br />       )<br />     )<br />     (setq p1 (caddr l1)<br />           p2 (cadddr l1)<br />           p3 (cadddr l2)<br />           p4 (caddr l2)<br />     )<br />     (entmake<br />       (list '(0 . "LWPOLYLINE")<br />             '(100 . "AcDbEntity")<br />             '(100 . "AcDbPolyline")<br />             '(90 . 4)<br />             '(70 . 1)<br />             '(43 . 0.0)<br />             '(38 . 0.0)<br />             '(39 . 0.0)<br />             (cons 10 (trans p1 vec 0))<br />             '(40 . 0.0)<br />             '(41 . 0.0)<br />             '(42 . 0.0)<br />             (cons 10 (trans p2 vec 0))<br />             '(40 . 0.0)<br />             '(41 . 0.0)<br />             '(42 . 0.0)<br />             (cons 10 (trans p3 vec 0))<br />             '(40 . 0.0)<br />             '(41 . 0.0)<br />             '(42 . 0.0)<br />             (cons 10 (trans p4 vec 0))<br />             '(40 . 0.0)<br />             '(41 . 0.0)<br />             '(42 . 0.0)<br />             '(210 0.0 0.0 1.0)<br />       )<br />     )<br />     (setq pl (cddr pl))<br />   )<br />   (princ)<br /> )<br />

xyp1964

ll_j

程序没有实用性，所以不会有人写。
使用CAD的命令的确有点麻烦，不过还是可以优化的：首先，你在两端画线封闭，然后使用BO命令，每个封闭多义线只要点一下即可，最后再删除不需要的，应该快很多。

lixuedong

把第一条线 设为A1 和我A4 ，两交点为什么A2 A3
就得到（A1 A2 A3 A4 )
类推：第二条线（B1　B2　B3　B4）
N条线（N1　N2　N3　N4）
这就组成数组。
画线的规律是　A1　A2　B2　B1　A1
然后是　A3　A4　B4　B3　A3

荒野孤行

用面域，差集很容易搞定

lixuedong

Gu_xl 发表于 2014-2-26 10:20

好厉害，这么快完整的程序出来了。大神。

YANGF85

Gu_xl 发表于 2014-2-26 10:20

大侠给个操作办法?  怎么我弄出来是这个样子?

vlisp2012

选择直线的时候，按照顺序来啊

Gu_xl

YANGF85 发表于 2014-2-26 12:18
大侠给个操作办法?  怎么我弄出来是这个样子?

重新下载程序再试下！

vlisp2012

Gu版，给力！！！