删除匿名组这个功能为什么不能用了啊，cad2014，64位 win8

tranney

;删除匿名组. ok  lxx.2005.10.
(defun c:del*g ()
  (vlax-for obj (vla-get-groups (vla-get-activedocument(vlax-get-acad-object)))
    (if (wcmatch (vla-get-name obj)"'**")(vla-delete obj))
  )
)

snowpeakdream

我用的2010也不能用，

gufeng

2. (defun c:del*g ()
   
3.    (vlax-for obj (vla-get-groups (vla-get-activedocument(vlax-get-acad-object)))
   
4.      (if (wcmatch (vla-get-name obj)"`**")(vla-delete obj))
   
5.    )
   
6. )

(defun c:del*g ()<br />    (vlax-for obj (vla-get-groups (vla-get-activedocument(vlax-get-acad-object)))<br />      (if (wcmatch (vla-get-name obj)"`**")(vla-delete obj))<br />    )<br /> )

tranney

谢谢你了，但是我现在都不知道有什么区别呢