全图填充后置问题？

bingshuier

怎么实现框选将填充后置，但是如果框选到块，怎么实现其内填充后置呢？！

kwok

看看这个:

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=99675

也可以看看这个也是G版的

2. ;;一键所有填充对象置后显示,CAD2005以上版本适用 By Gu_xl 2014.07.17
   
3. (defun c:tt1 (/ sortents dict  lst Doc)
   
4.   (setq  doc
   
5.    (vla-get-ActiveDocument
   
6.      (vlax-get-acad-object)
   
7.    )
   
8.   )
   
9.   (vlax-for blockdef (vla-get-blocks doc)
   
10.     (cond
    
11.       (
    
12.        (not
    
13.    (VL-CATCH-ALL-ERROR-P
    
14.      (setq sortents
    
15.       (VL-CATCH-ALL-APPLY
    
16.         'vla-item
    
17.         (list
    
18.           (setq dict
    
19.            (vla-GetExtensionDictionary
    
20.              blockdef
    
21.            )
    
22.           )
    
23.           "ACAD_SORTENTS"
    
24.         )
    
25.       )
    
26.      )
    
27.    )
    
28.        )
    
29.       )
    
30.       ((setq sortents
    
31.         (VL-CATCH-ALL-APPLY
    
32.     'vla-AddObject
    
33.     (list dict "ACAD_SORTENTS" "AcDbSortentsTable")
    
34.         )
    
35.        )
    
36.       )
    
37.     )
    
38.     (setq lst nil)
    
39.     (vlax-for obj blockdef
    
40.       (if (= "AcDbHatch" (vla-get-objectname obj))
    
41.   (setq lst (cons obj lst))
    
42.       )
    
43.     )
    
44.     (if  lst
    
45.       (progn
    
46.   (vla-MoveToBottom
    
47.     sortents
    
48.     (vlax-make-variant
    
49.       (vlax-safearray-fill
    
50.         (vlax-make-safearray
    
51.     vlax-vbobject
    
52.     (cons 0 (1- (length lst)))
    
53.         )
    
54.         lst
    
55.       )
    
56.     )
    
57.   )
    
58. 
    
59.       )
    
60.     )
    
61.   )
    
62.   (vla-regen doc :vlax-true)
    
63.   (princ)
    
64. )

;;一键所有填充对象置后显示,CAD2005以上版本适用 By Gu_xl 2014.07.17<br /> (defun c:tt1 (/ sortents dict  lst Doc)<br />   (setq  doc<br />    (vla-get-ActiveDocument<br />      (vlax-get-acad-object)<br />    )<br />   )<br />   (vlax-for blockdef (vla-get-blocks doc)<br />     (cond<br />       (<br />        (not<br />    (VL-CATCH-ALL-ERROR-P<br />      (setq sortents<br />       (VL-CATCH-ALL-APPLY<br />         'vla-item<br />         (list<br />           (setq dict<br />            (vla-GetExtensionDictionary<br />              blockdef<br />            )<br />           )<br />           "ACAD_SORTENTS"<br />         )<br />       )<br />      )<br />    )<br />        )<br />       )<br />       ((setq sortents<br />         (VL-CATCH-ALL-APPLY<br />     'vla-AddObject<br />     (list dict "ACAD_SORTENTS" "AcDbSortentsTable")<br />         )<br />        )<br />       )<br />     )<br />     (setq lst nil)<br />     (vlax-for obj blockdef<br />       (if (= "AcDbHatch" (vla-get-objectname obj))<br />   (setq lst (cons obj lst))<br />       )<br />     )<br />     (if  lst<br />       (progn<br />   (vla-MoveToBottom<br />     sortents<br />     (vlax-make-variant<br />       (vlax-safearray-fill<br />         (vlax-make-safearray<br />     vlax-vbobject<br />     (cons 0 (1- (length lst)))<br />         )<br />         lst<br />       )<br />     )<br />   )<br /> <br />       )<br />     )<br />   )<br />   (vla-regen doc :vlax-true)<br />   (princ)<br /> )

G版的

bingshuier

kwok 发表于 2014-7-29 14:32
看看这个:

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=99675

非常感谢哦！！！

9701519

kwok 发表于 2014-7-29 14:32
看看这个:

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=99675

怎么实现框选，而不是一键置后！

ferious

kwok 发表于 2014-7-29 14:32
看看这个:

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=99675

帮忙看下还是不行？