[原创]复合线运算合并程序!

lyy

2. ;;复合线合并
   
3. (defun c:yad_plcomb(/ dxf chgent os qa entold kg s1 s2 n ss1 ss2 ent)
   
4.   (defun dxf(en val)
   
5.     (if (/= (type en) 'list) (setq en (entget en)))
   
6.     (cdr (assoc val en))
   
7.   )
   
8.   (defun chgent(ent n new / en)
   
9.     (setq en (entget ent))
   
10.     (if (assoc n en)
    
11.       (setq en (subst (cons n new) (assoc n en) en))
    
12.       (setq en (append en (list (cons n new))))
    
13.     )
    
14.     (entmod en)
    
15.   )
    
16.   (command "_.undo" "_be")
    
17.   (setq os (getvar "osmode")
    
18.         qa (getvar "qaflags")
    
19.   )
    
20.   (setvar "osmode" 0)
    
21.   (setvar "cmdecho" 0)
    
22.   (setq entold (entlast))
    
23.   (initget "1 2 3")
    
24.   (setq kg (getkword "\n选择合并方式[1 并集/2 差集/3 交集]：<1>"))
    
25.   (if (not kg) (setq kg "1"))
    
26.   (prompt "\n请选择复合线：")
    
27.   (if (setq s1 (ssget '((0 . "LWPOLYLINE"))))
    
28.     (progn
    
29.       (if (= kg "2")
    
30.         (progn
    
31.           (prompt "\n请选择要减去的复合线：")
    
32.           (setq s2 (ssget '((0 . "LWPOLYLINE"))))
    
33.         )
    
34.       )
    
35.       (if (not (and (= kg "2") (not s2)))
    
36.         (progn
    
37.           (setq n -1 ss1 (ssadd))
    
38.           (repeat (sslength s1)
    
39.             (setq ent (ssname s1 (setq n (1+ n))))
    
40.             (if (= (dxf ent 70) 0) (chgent ent 70 1))
    
41.             (command "_.region" ent "")
    
42.             (ssadd (entlast) ss1)
    
43.           )
    
44.         )
    
45.       )
    
46.       (if s2
    
47.         (progn
    
48.           (setq n -1 ss2 (ssadd))
    
49.           (repeat (sslength s2)
    
50.             (setq ent (ssname s2 (setq n (1+ n))))
    
51.             (if (= (dxf ent 70) 0) (chgent ent 70 1))
    
52.             (command "_.region" ent "")
    
53.             (ssadd (entlast) ss2)
    
54.           )
    
55.         )
    
56.       )
    
57.       (if (= kg "2")
    
58.         (if ss2 (command "_.subtract" ss1 "" ss2 ""))
    
59.         (command (if (= kg "1") "_.union" "_.intersect") ss1 "")
    
60.       )
    
61.       (setq ent (entlast))
    
62.       (if (and ent (= (dxf ent 0) "REGION") (not (equal ent entold)))
    
63.         (progn
    
64.           (command "_.explode" ent)
    
65.           (setq ss1 (ssget "p"))
    
66.           (if (= (dxf (ssname ss1 0) 0) "REGION")
    
67.             (progn
    
68.               (setvar "qaflags" 1)
    
69.               (command "_.explode" ss1 "")
    
70.               (setq ss1 (ssget "p"))
    
71.             )
    
72.           )
    
73.           (setq n -1)
    
74.           (while (setq ent (ssname ss1 (setq n (1+ n))))
    
75.             (if (entget ent)
    
76.               (command "_.pedit" ent "y" "j" ss1 "" "")
    
77.             )
    
78.           )
    
79.         )
    
80.       )
    
81.     )
    
82.   )
    
83.   (setvar "osmode" os)
    
84.   (setvar "qaflags" qa)
    
85.   (command "_.undo" "_e")
    
86.   (princ)
    
87. )
    
88. (prompt "\n***复合线合并yad_plcomb***  YAD建筑")
    
89. (princ)
    
90. 
    

;;复合线合并<br /> (defun c:yad_plcomb(/ dxf chgent os qa entold kg s1 s2 n ss1 ss2 ent)<br />   (defun dxf(en val)<br />     (if (/= (type en) 'list) (setq en (entget en)))<br />     (cdr (assoc val en))<br />   )<br />   (defun chgent(ent n new / en)<br />     (setq en (entget ent))<br />     (if (assoc n en)<br />       (setq en (subst (cons n new) (assoc n en) en))<br />       (setq en (append en (list (cons n new))))<br />     )<br />     (entmod en)<br />   )<br />   (command "_.undo" "_be")<br />   (setq os (getvar "osmode")<br />         qa (getvar "qaflags")<br />   )<br />   (setvar "osmode" 0)<br />   (setvar "cmdecho" 0)<br />   (setq entold (entlast))<br />   (initget "1 2 3")<br />   (setq kg (getkword "\n选择合并方式[1 并集/2 差集/3 交集]：<1>"))<br />   (if (not kg) (setq kg "1"))<br />   (prompt "\n请选择复合线：")<br />   (if (setq s1 (ssget '((0 . "LWPOLYLINE"))))<br />     (progn<br />       (if (= kg "2")<br />         (progn<br />           (prompt "\n请选择要减去的复合线：")<br />           (setq s2 (ssget '((0 . "LWPOLYLINE"))))<br />         )<br />       )<br />       (if (not (and (= kg "2") (not s2)))<br />         (progn<br />           (setq n -1 ss1 (ssadd))<br />           (repeat (sslength s1)<br />             (setq ent (ssname s1 (setq n (1+ n))))<br />             (if (= (dxf ent 70) 0) (chgent ent 70 1))<br />             (command "_.region" ent "")<br />             (ssadd (entlast) ss1)<br />           )<br />         )<br />       )<br />       (if s2<br />         (progn<br />           (setq n -1 ss2 (ssadd))<br />           (repeat (sslength s2)<br />             (setq ent (ssname s2 (setq n (1+ n))))<br />             (if (= (dxf ent 70) 0) (chgent ent 70 1))<br />             (command "_.region" ent "")<br />             (ssadd (entlast) ss2)<br />           )<br />         )<br />       )<br />       (if (= kg "2")<br />         (if ss2 (command "_.subtract" ss1 "" ss2 ""))<br />         (command (if (= kg "1") "_.union" "_.intersect") ss1 "")<br />       )<br />       (setq ent (entlast))<br />       (if (and ent (= (dxf ent 0) "REGION") (not (equal ent entold)))<br />         (progn<br />           (command "_.explode" ent)<br />           (setq ss1 (ssget "p"))<br />           (if (= (dxf (ssname ss1 0) 0) "REGION")<br />             (progn<br />               (setvar "qaflags" 1)<br />               (command "_.explode" ss1 "")<br />               (setq ss1 (ssget "p"))<br />             )<br />           )<br />           (setq n -1)<br />           (while (setq ent (ssname ss1 (setq n (1+ n))))<br />             (if (entget ent)<br />               (command "_.pedit" ent "y" "j" ss1 "" "")<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (setvar "osmode" os)<br />   (setvar "qaflags" qa)<br />   (command "_.undo" "_e")<br />   (princ)<br /> )<br /> (prompt "\n***复合线合并yad_plcomb***  YAD建筑")<br /> (princ)<br /> <br />

xlmx-whj

老兄我用了你的lsp程序只是图形里含有圆形就不可联集和差集能不能改进。另外可不可以让互相重叠的几何图形个自形成独立的线框就象 bo命令所重新生成的那样。

lyy

程序是针对lwpolyline复合线的，如果要考虑circle可增加相应的circle转lwpolyline代码。
另外让互相重叠的几何图形个自形成独立的线框可以参考
“[讨论]征求轮廓线的lisp思路”一贴里的“边界轮廓线”程序！

goldwheat

下载来，学习一下，里面有对我有益的东东。

xujinhua

可惜了..如果可以批量就好了