删除选定的匿名组程序
以下是编写的删除匿名组程序，测试老是不成高，麻烦高手指点(defun GetEntGroupName (eName / DXF102 ELIST EN ET GPNAME OBJGROPU)
(setq dxf102 (assoc 102 (entget eName)))
(if (and dxf102 (= (cdr dxf102) "{ACAD_REACTORS"))
(progn
(setq eList (cdr (member '(102 . "{ACAD_REACTORS") (entget eName))))
(while (= (caar eList) 330)
(setq en (cdar eList))
(setq et (cdr (assoc 0 (entget en))))
(if (= et "GROUP")
(progn
(setq objGropu (vlax-ename->vla-object en))
(setq gpName (cons (vla-get-Name objGropu) gpName))
)
)
(setq eList (cdr eList))
)
)
)
gpName
)
(defun c:tzp7 (/ en s2 )
(setq en (car (entsel)))
(setq s2 (GetEntGroupName en))
(command "group" "E" "s2" "")
)
获取匿名组名称的函数是别人编写的，问题在tzp7这段
页:
[1]