打断后归入特定图层

夜未眠

如图，两条多义线被一条直线打断，如何使之像右边那样打断后的线移动到特定图层中，试过用以下代码来实现“倒数第一个图元入2层，倒数第二个图元入3层”，可惜产生的4条线哪个是倒数第一，哪个是倒数第二似乎也不确定

1. ;;+++++++++++++++++++++++++++++++++++++++++
   
2. ;;          倒数第i个图元                  
   
3. ;;+++++++++++++++++++++++++++++++++++++++++
   
4. (DEFUN daoshu (i / acdocument acspace ent_name)
   
5.   (SETQ acdocument (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT)))
   
6.   (IF (= (VLA-GET-ACTIVESPACE acdocument) ACMODELSPACE)
   
7.     (SETQ acspace (VLA-GET-MODELSPACE acdocument))
   
8.     (SETQ acspace (VLA-GET-PAPERSPACE acdocument))
   
9.   )
   
10.   (IF (AND (= (TYPE i) 'int)
    
11.            (>= (- (VLA-GET-COUNT acspace) i) 0)
    
12.            (>= i 1)
    
13.       )
    
14.     (SETQ ent_name (VLAX-VLA-OBJECT->ENAME
    
15.                      (VLA-ITEM acspace (- (VLA-GET-COUNT acspace) i))
    
16.                    )
    
17.     )
    
18.     (SETQ ent_name nil)
    
19.   )
    
20. )

复制代码

q3_2006

顶点重排....

Andyhon

全选
过滤二竖直线 (2) + 一横直线 (1)
余下(3)

夜未眠

Andyhon 发表于 2014-8-29 11:07
全选
过滤二竖直线 (2) + 一横直线 (1)
余下(3)

余下哪还有3？

Andyhon

余下哪还有3？
您图示的黄色线 <--- 3

夜未眠

Andyhon 发表于 2014-8-29 13:20
余下哪还有3？
您图示的黄色线

晕，左边是原图，右边是想要的结果，都已经变成右边那样的了，还过滤啥啊

Andyhon

...打断后的线移动到特定图层中...

打断之后不都是全白?

q3_2006

只是图示这样...好解决...

2. (defun ebox (e / pa pb)
   
3.    (Vlax-Invoke-Method (Vlax-Ename->Vla-Object e ) 'GetBoundingBox 'pa 'pb )
   
4.              (setq pa (trans (vlax-safearray->list pa) 0 1)
   
5.                    pb (trans (vlax-safearray->list pb) 0 1)
   
6.              )
   
7.              (list pa pb)
   
8. )
   
9. (defun c:tt ( / a box e odlst p1 p2 pa pb ss)
   
10. (vl-load-com)
    
11. (setq odlst (mapcar 'getvar '("cmdecho" "osmode")))
    
12. (mapcar 'setvar '("cmdecho" "osmode") '(0 0))
    
13.   (setq a (car (entsel "选择打断两多段线的直线:"))
    
14.     p1 (cdr (assoc 10 (entget a)))
    
15.     p2 (cdr (assoc 11 (entget a)))
    
16.     ss (ssget "f" (list p1 p2) '((0 . "LWPOLYLINE") (70 . 1)))
    
17.     e (ssname ss 0)
    
18.     box (ebox e)
    
19.     pa (car box)
    
20.     pb (cadr box)
    
21.   )
    
22.   (vl-cmdf "rectang" (list (car pa) (cadr pb)) (list (car pb) (cadr pa)))
    
23.   (entdel e)
    
24.   (setq e (entlast))
    
25.   (vl-cmdf "_.break" (list e p1) "F" p1 "@")
    
26.   (Vlax-Put-Property (Vlax-Ename->Vla-Object (entlast)) 'Color 1)
    
27.   (Vlax-Put-Property (Vlax-Ename->Vla-Object e) 'Color 2)
    
28.   (setq e (ssname ss 1)
    
29.     box (ebox e)
    
30.     pa (car box)
    
31.     pb (cadr box)
    
32.   )
    
33.   (vl-cmdf "rectang" (list (car pa) (cadr pb)) (list (car pb) (cadr pa)))
    
34.   (entdel e)
    
35.   (setq e (entlast))
    
36.   (vl-cmdf "_.break" (list e p2) "F" p2 "@")
    
37.   (Vlax-Put-Property (Vlax-Ename->Vla-Object (entlast)) 'Color 1)
    
38.   (Vlax-Put-Property (Vlax-Ename->Vla-Object e) 'Color 2)
    
39. (mapcar 'setvar '("cmdecho" "osmode") odlst)
    
40. )

(defun ebox (e / pa pb)<br />    (Vlax-Invoke-Method (Vlax-Ename->Vla-Object e ) 'GetBoundingBox 'pa 'pb )<br />              (setq pa (trans (vlax-safearray->list pa) 0 1)<br />                    pb (trans (vlax-safearray->list pb) 0 1)<br />              )<br />              (list pa pb)<br /> )<br /> (defun c:tt ( / a box e odlst p1 p2 pa pb ss)<br /> (vl-load-com)<br /> (setq odlst (mapcar 'getvar '("cmdecho" "osmode")))<br /> (mapcar 'setvar '("cmdecho" "osmode") '(0 0))<br />   (setq a (car (entsel "选择打断两多段线的直线:"))<br />     p1 (cdr (assoc 10 (entget a)))<br />     p2 (cdr (assoc 11 (entget a)))<br />     ss (ssget "f" (list p1 p2) '((0 . "LWPOLYLINE") (70 . 1)))<br />     e (ssname ss 0)<br />     box (ebox e)<br />     pa (car box)<br />     pb (cadr box)<br />   )<br />   (vl-cmdf "rectang" (list (car pa) (cadr pb)) (list (car pb) (cadr pa)))<br />   (entdel e)<br />   (setq e (entlast))<br />   (vl-cmdf "_.break" (list e p1) "F" p1 "@")<br />   (Vlax-Put-Property (Vlax-Ename->Vla-Object (entlast)) 'Color 1)<br />   (Vlax-Put-Property (Vlax-Ename->Vla-Object e) 'Color 2)<br />   (setq e (ssname ss 1)<br />     box (ebox e)<br />     pa (car box)<br />     pb (cadr box)<br />   )<br />   (vl-cmdf "rectang" (list (car pa) (cadr pb)) (list (car pb) (cadr pa)))<br />   (entdel e)<br />   (setq e (entlast))<br />   (vl-cmdf "_.break" (list e p2) "F" p2 "@")<br />   (Vlax-Put-Property (Vlax-Ename->Vla-Object (entlast)) 'Color 1)<br />   (Vlax-Put-Property (Vlax-Ename->Vla-Object e) 'Color 2)<br /> (mapcar 'setvar '("cmdecho" "osmode") odlst)<br /> )

夜未眠

q3_2006 发表于 2014-8-29 17:38
只是图示这样...好解决...

1. vl-cmdf "rectang"

复制代码

貌似把原本的删了，重新画了一个矩形，万一不是矩形呢，复杂图形怎么办？

q3_2006

夜未眠 发表于 2014-9-9 09:55
貌似把原本的删了，重新画了一个矩形，万一不是矩形呢，复杂图形怎么办？

只针对你给的图...没考虑其他情况....