well... I have two ideas:
You can use: atoms-family to a symbols list
-e.g. (atoms-family 0)
or
(progn
(setq fn (open "C:\\ATOMS-FAMILY.txt" "w"))
(mapcar '(lambda (x) (write-line x fn)) (atoms-family 1))
(close fn)
)
Returns a list of the currently defined symbols
(atoms-family format [symlist])
Arguments format
An integer value of 0 or 1 that determines the format in which atoms-family returns the symbol names:
0 Return the symbol names as a list
1 Return the symbol names as a list of strings
symlist
A list of strings that specify the symbol names you want atoms-family to search for.
Return Values
A list of symbols. If you specify symlist, then atoms-family returns the specified symbols that are currently defined, and returns nil for those symbols that are not defined.
Examples
Command: (atoms-family 0)
Or if all you wanted was a list of default *commands* you can just parse the acad.pgp file found in
c:\\Docs and settings\\<username>\\<ACADsomthingorother>\\enu\\support\\acad.pgp
The file's syntax is simple enough, but...
Problems I see:
atoms family will return symbols not *commands* so-to-speak (global vars included)
acad.pgp is just a list of built-ins and could not be accurate to what the user has cooking in the background.
EDIT: forgot to close the file (close fn)
