真正考验-------批量选择矩形框去选择圆形成各自独立的块

cie0588

选择对象的时候提前控制好图层之类的。减少判断

1. (defun c:tt (/ ss lst-ename lst-b x y ss-c)
   
2.   (vl-load-com)
   
3.   (setvar "CMDECHO" 0)
   
4. ;;;选择多线段对象
   
5.   (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
6. ;;; 定义将选择集转化为对象图元名列表
   
7.   (defun ss-enamelst (ss)
   
8.     (vl-remove-if-not
   
9.       '(lambda (x) (equal (type x) 'ename))
   
10.       (mapcar 'cadr (ssnamex SS))
    
11.     )
    
12.   )
    
13. ;;;end defun
    
14. 
    
15. ;;; 将多线段选择集转化为图元名列表
    
16.   (setq lst-ename (ss-enamelst ss))
    
17. ;;; 通过 ssget "WP" 将多线段和多线段内部的对象（可以再加上过滤，过滤掉非园）组成一个表
    
18.   (setq
    
19.     lst-b
    
20.      (mapcar '(lambda (x)
    
21.     (progn
    
22. ;;; 多线段端点列表内部窗选
    
23.       (setq  ss-c (ssget "WP"
    
24.             (apply
    
25.               'append
    
26.               (mapcar '(lambda (y)
    
27.              (if (eq (car y) 10)
    
28.                (list (cdr y))
    
29.              )
    
30.                  )
    
31.                 (entget x)
    
32.               )
    
33.             )
    
34.            )
    
35.       )
    
36. ;;;判断选择集是否存在。也可以加入其它的判断
    
37.       (if (null ss-c)
    
38.         (list x)
    
39.         (append (list x) (ss-enamelst ss-c))
    
40.       )
    
41.     )      ;end progn
    
42.         )        ;end lambda
    
43.        lst-ename
    
44.      )
    
45.   )
    
46. ;;;生成无名块并删除原有对象
    
47.   (mapcar '(lambda (x)
    
48.        (progn
    
49.          (entmakenonameblock x (cdr (assoc 10 (entget (car x)))))
    
50.          (mapcar '(lambda  (y)
    
51.         (vl-cmdf "erase" y "")
    
52.       )
    
53.            x
    
54.          )
    
55.        )
    
56.      )
    
57.     lst-b
    
58.   )
    
59. 
    
60. 
    
61.   (prin1)
    
62. )
    
63. ;;;; 图元列表生成无名快
    
64. (defun entmakenonameblock (lst pt / i name)
    
65.   (entmake
    
66.     (list '(0 . "block") '(2 . "*U") '(70 . 1) (cons 10 pt))
    
67.   )
    
68.   (mapcar '(lambda (x) (entmake (cdr (entget x)))) lst)
    
69.   (setq name (entmake '((0 . "ENDBLK"))))
    
70.   (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))
    
71.   name
    
72. )
    

(defun c:tt (/ ss lst-ename lst-b x y ss-c)<br />   (vl-load-com)<br />   (setvar "CMDECHO" 0)<br /> ;;;选择多线段对象<br />   (setq ss (ssget '((0 . "LWPOLYLINE"))))<br /> ;;; 定义将选择集转化为对象图元名列表<br />   (defun ss-enamelst (ss)<br />     (vl-remove-if-not<br />       '(lambda (x) (equal (type x) 'ename))<br />       (mapcar 'cadr (ssnamex SS))<br />     )<br />   )<br /> ;;;end defun<br /> <br /> ;;; 将多线段选择集转化为图元名列表<br />   (setq lst-ename (ss-enamelst ss))<br /> ;;; 通过 ssget "WP" 将多线段和多线段内部的对象（可以再加上过滤，过滤掉非园）组成一个表<br />   (setq<br />     lst-b<br />      (mapcar '(lambda (x)<br />     (progn<br /> ;;; 多线段端点列表内部窗选<br />       (setq  ss-c (ssget "WP"<br />             (apply<br />               'append<br />               (mapcar '(lambda (y)<br />              (if (eq (car y) 10)<br />                (list (cdr y))<br />              )<br />                  )<br />                 (entget x)<br />               )<br />             )<br />            )<br />       )<br /> ;;;判断选择集是否存在。也可以加入其它的判断<br />       (if (null ss-c)<br />         (list x)<br />         (append (list x) (ss-enamelst ss-c))<br />       )<br />     )      ;end progn<br />         )        ;end lambda<br />        lst-ename<br />      )<br />   )<br /> ;;;生成无名块并删除原有对象<br />   (mapcar '(lambda (x)<br />        (progn<br />          (entmakenonameblock x (cdr (assoc 10 (entget (car x)))))<br />          (mapcar '(lambda  (y)<br />         (vl-cmdf "erase" y "")<br />       )<br />            x<br />          )<br />        )<br />      )<br />     lst-b<br />   )<br /> <br /> <br />   (prin1)<br /> )<br /> ;;;; 图元列表生成无名快<br /> (defun entmakenonameblock (lst pt / i name)<br />   (entmake<br />     (list '(0 . "block") '(2 . "*U") '(70 . 1) (cons 10 pt))<br />   )<br />   (mapcar '(lambda (x) (entmake (cdr (entget x)))) lst)<br />   (setq name (entmake '((0 . "ENDBLK"))))<br />   (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))<br />   name<br /> )<br />

wyl605

能不能改成筒灯形状一样选择一个，相同图形属性的自动成块呢？。。。。。。。

gufeng

真正考验 说和有些夸张了

pzweng

gufeng 发表于 2013-5-30 23:27
真正考验 说和有些夸张了

只是让人注意罢了

434939575

cie0588 发表于 2013-5-7 16:49
选择对象的时候提前控制好图层之类的。减少判断

这个好，喜欢。

清风明月名字

谢谢2楼主的奉献！

asd19400

cie0588 发表于 2013-5-7 16:49
选择对象的时候提前控制好图层之类的。减少判断

能否把无名块做成有名块，块名无所谓，其次相同的矩形，块名相同，矩形即使旋转了方向，只要大小不变，块名还是一样的。做组合物大判断比较麻烦，所以搞简单点，闭合的多段线相同，块名就一样的

MENGZE

cie0588 发表于 2013-5-7 16:49
选择对象的时候提前控制好图层之类的。减少判断

批量选择矩形框去选择圆形成各自独立的块，但矩形里面是多个直线或者其他什么的（多个对象例如填充个方格或者多段线）就没有用了，大师能不能再完善下？