This lisp will create a .mmo file with Windows notepad writer, where you can add memo remarks for the current DWG file.
Once the memo file is created, then you can just edit or view the memo remarks of the currnet DWG file
(defun c:memo (/ dwgn dwgl dwgf)
(setq dwgn (getvar “dwgname”))
(setq dwgl (strlen dwgn))
(setq dwgf (substr dwgn 1 (- dwgl 4)))
(command “notepad”
(strcat
(getvar “dwgprefix”)
dwgf
“.mmo”
)
)
)