More food for thought:
;;;=======================[ MakeEntmake.lsp ]==================================
;;; Author: Charles Alan Butler Copyright© 2005-2012
;;; Version: 1.5 Nov. 10, 2012
;;; Purpose: To create a lisp that will recreate the objects selected
;;; Will not process xref or nested blocks, blocks are created
;;; from Inserts but no insert is created, you must insert
;;; Output; A lisp file with the name of the drawing contailing the lisp code
;;; Sub_Routines:
;;; _replace - replace in string
;;; dxfstrip - Strip dxf from list
;;; make_complex - Write additional lines needed for complex objects
;;; dxf - return value from a dotted pair
;;; ToString - convert item to a string by MP
;;; Requirements: -None
;;; Returns: -None
;;; Original Thread:
http://www.theswamp.org/index.php?topic=4814.0;;; Latest Version:
http://www.theswamp.org/index.php?topic=31145