Andy
Is this what you are looking for? This is how I load lisp from a dialog box which displays a discription?
Reads a text file with command name and discription.
||||||||||||||||||||||||||||||| ANNO Commands |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||,
ANNO,Annotation Commands...
||||||||||||||||||||||||||||||| COUNT Commands |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||,
TNT,Count Number on Isolated Layer
TXCALC,Calc Selected Text
TXCNT,Text Count on Isolated Layer
||||||||||||||||||||||||||||||| DTEXT Commands |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||,
ARCTEXT,Arc Text
BLKLBL,Block Label
CEL,Contour Elevation Line
CVTX,Dtext along Curve
DTL,Dtext w/ Leader
DTX,Dtext w/Style and Layer
ISOTX,Isometric Dtext
LNOTE,Label Dtext w/ Character
MCL,Centerline Dtext Label
MLA,Multi Arrow Leader
MLC,Multi Circle Leader
NN,General Notes
NOTES,Multi Line Dtext w/ Leader
ROMANS,Integer to Roman Numeral
STX,Sufix Prefix for Dtext
TCL,Centerline Dtext Label
TED,Multiline Dtext Edit
TXA,Dtext Inserted in Line
TXC,Dtext Continue to Next Line
TXF,Dtext Added to Front
TXK,Dtext Cont to Next Line w/ Scale
TXR,Add to Dtext Rear
TXT,Dtext Continue to Next Line
TWAVE,Dtext Wave...
TXG,Dtext Graphics
||||||||||||||||||||||||||||||| EXPORT IMPORT Commands |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||,
IT,Import Export Dtext...
MNOTE,Import Dtext to Mtext
TXOUT,Dtext Out to Notepad
(defun ARCH:WRITE-COMMANDS (/ write-cmm cmm)
(if (/= pickcmm nil)
(progn (setq cmm (nth pickcmm cmm_lst)) (setq ARCH#_CMM (nth 0 cmm))))
(setq ARCH#CMM_ ARCH#DIAL)
(if (wcmatch ARCH#_CMM "|*,=*")
(setq ARCH#_CMM ARCH#CMM_))
)
(action_tile
"commands-list"
"(setq pickcmm (atoi $value))(ARCH:WRITE-COMMANDS)(ARCH:DO_ACT-DONE $key)"
)
((= op "commands-list")(eval (read (princ (strcat "(C:" ARCH#_CMM ")")))))
Gary