[原创]：一次分解图中所有组！！

eachy

2. 
   
3. (defun c:ExplodeAllGroup (/ group name)
   
4.   (setq        group
   
5.          (entget
   
6.            (cdadr (member '(3 . "ACAD_GROUP") (entget (namedobjdict))))
   
7.          )
   
8.   )
   
9.   (if group
   
10.     (progn
    
11.       (foreach i group
    
12.         (if (= (car i) 3)
    
13.           (setq name (cons (cdr i) name))
    
14.         )
    
15.       )
    
16.       (command ".undo" "group")      
    
17.       (foreach m name
    
18.         (command ".group" "e" m)
    
19.       )
    
20.       (command ".undo" "end")
    
21.     )
    
22.   )
    
23.   (if (> (length name) 0)
    
24.     (progn (princ "\n共分解 ")
    
25.            (princ (length name))
    
26.            (princ " 组!")
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )

<br /> (defun c:ExplodeAllGroup (/ group name)<br />   (setq        group<br />          (entget<br />            (cdadr (member '(3 . "ACAD_GROUP") (entget (namedobjdict))))<br />          )<br />   )<br />   (if group<br />     (progn<br />       (foreach i group<br />         (if (= (car i) 3)<br />           (setq name (cons (cdr i) name))<br />         )<br />       )<br />       (command ".undo" "group")      <br />       (foreach m name<br />         (command ".group" "e" m)<br />       )<br />       (command ".undo" "end")<br />     )<br />   )<br />   (if (> (length name) 0)<br />     (progn (princ "\n共分解 ")<br />            (princ (length name))<br />            (princ " 组!")<br />     )<br />   )<br />   (princ)<br /> )

hi71400

没看懂。
请问namedobjdict 是什么？
VL的内部函数吗？

eachy

最初由 hi71400 发布
[B]没看懂。
请问namedobjdict 是什么？
VL的内部函数吗？ [/B]

返回当前图形的命名对象词典的图元名，它是所有非图形对象的根
(namedobjdict)

通过本函数和词典访问函数返回的图元名，应用程序可以访问图形中的非图形对象。


A dictionary is a container object, similar to the symbol tables in functions. Dictionary entries can be queried with the dictsearch and dictnext functions. Each dictionary entry consists of a text name key plus a hard ownership handle reference to the entry object. Dictionary entries may be removed by directly passing entry object names to the entdel function. The text name key uses the same syntax and valid characters as symbol table names.

其他的参考《 DXF 参考》中的 Object 部分

JOSDENNIS

我好象見過用VL的很短的代碼 . 但沒用到丟了. 現找不到, 拿樓主的將就用用. 呵呵

snsj

eachy是在用令一种方法然大家熟悉对象词典的用法
vla的方法参考:
[php]
(defun c:test (/ obj)
(vl-load-com)
(vlax-for obj(vla-get-groups(vla-get-activedocument(vlax-get-acad-object)))
  (vla-delete obj))
  )
[/php]

aeo

(dictsearch(namedobjdict) "ACAD_GROUP")

它山之石

俺也来试试。

清风明月10

谢谢楼主的分享！很有用啊！