_Write GROUP-names to ASCII

[serge]

Can anyone help me out please...
I want to write (LISP-prog) all the existing GROUP-names to an ASCII-file
(I know how to open, write and close a ASCII-file),
but how do i get grip on the GROUP (object GROUP) names ?
Thanks !
SMD

[Anonymous]

A2K+

;GRP:LIST-GROUPS__________________________________
;Argument 1) Document object
;Returns upper-case list of groups

(defun grp:list-groups (doc / return)
(vlax-for group (vla-get-groups doc)
(setq return (cons (vla-get-name group) return))
)
(mapcar 'strcase (reverse return))
)
--
Cliff

"smd" wrote in message
news:f087158.-1@WebX.maYIadrTaRb...
| Can anyone help me out please...
| I want to write (LISP-prog) all the existing GROUP-names to an ASCII-file
| (I know how to open, write and close a ASCII-file),
| but how do i get grip on the GROUP (object GROUP) names ?
| Thanks !
| SMD
|

[BillZ]

(dictsearch (namedobjdict) "ACAD_GROUP")