申请选择封闭的PL线或圆，则与这些封闭的PL线或圆相交的其它line、arc被修改到“临时

lengliqun

选择封闭的PL线或圆，则与这些封闭的PL线或圆相交的其它line、arc被修改到“临时图层5”，测试文件以5楼为准。

Andyhon

2. 
   
3. (defun ss2lst (sel / n l)
   
4.    (repeat (setq n (sslength sel))
   
5.      (setq n (1- n)
   
6.            l (cons (ssname sel n) l)
   
7.    ) )
   
8. )
   
9. 
   
10. ;;; for test only
    
11. ;;; Must existed lyr
    
12. 
    
13. (defun c:test (/ ss ptss ss5 lyr)
    
14.    (cond
    
15.     ((null (setq ss (ssget '(( 0 . "CIRCLE,LwPolyLine"))))))
    
16.     (T
    
17.      (setq ptss (mapcar 'acet-ent-geomextents (ss2lst ss))
    
18.             ss5 (ssadd)
    
19.          ;; lyr "Temp5"
    
20.             lyr "临时图层5"        ; user 自定 lyr 名稱
    
21.      )
    
22. 
    
23.      (foreach pts ptss
    
24.        (mapcar
    
25.          (function
    
26.            (lambda (x) (ssadd x ss5))
    
27.          )
    
28.          (ss2lst (ssget "c" (car pts) (cadr pts) '((0 . "ARC,LINE"))))
    
29.        )
    
30.      )
    
31.      ;; (command "chprop" ss5 "" "La" "Temp5" "")
    
32.      (command "chprop" ss5 "" "La" lyr "")
    
33.    ))
    
34.    (princ)
    
35. )
    

<br /> (defun ss2lst (sel / n l)<br />    (repeat (setq n (sslength sel))<br />      (setq n (1- n)<br />            l (cons (ssname sel n) l)<br />    ) )<br /> )<br /> <br /> ;;; for test only<br /> ;;; Must existed lyr<br /> <br /> (defun c:test (/ ss ptss ss5 lyr)<br />    (cond<br />     ((null (setq ss (ssget '(( 0 . "CIRCLE,LwPolyLine"))))))<br />     (T<br />      (setq ptss (mapcar 'acet-ent-geomextents (ss2lst ss))<br />             ss5 (ssadd)<br />          ;; lyr "Temp5"<br />             lyr "临时图层5"        ; user 自定 lyr 名稱<br />      )<br /> <br />      (foreach pts ptss<br />        (mapcar<br />          (function<br />            (lambda (x) (ssadd x ss5))<br />          )<br />          (ss2lst (ssget "c" (car pts) (cadr pts) '((0 . "ARC,LINE"))))<br />        )<br />      )<br />      ;; (command "chprop" ss5 "" "La" "Temp5" "")<br />      (command "chprop" ss5 "" "La" lyr "")<br />    ))<br />    (princ)<br /> )<br />

ZZXXQQ

试下看

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

lengliqun

感谢ZZXXQQ的出手相助，程序cad2004下可执行，但对与圆相交的线无效，对与封闭PL相交的线个别有一个方向无效。测试文件以5楼为准。

Andyhon

依楼主您的第二个 测试.dwg
分上下而言
上图 外框上下 各是完整的弧段

下图 外框下 是完整的弧段
但
下图 外框上 则是由相连7弧段 + 一零长度的弧段!?

lengliqun

多谢4楼兄弟，上面的测试图由于本人粗心产生笔误，自我批评一下，上传新的测试图。

lengliqun

6楼程序CAD2004测试可用，感谢Andyhon，感谢ZZXXQQ。

二哥

谢谢分享啊！