;;;Test func to make anonymous blocks.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1995
;;;>		   EDITED: 08-18-1999
;;;
(defun c:emake (/)
(entmake
  (list
    (cons 0 "BLOCK")
    (cons 8 "0")
    (cons 2 "USERS-BLOCKS")
    (cons 6 "BYBLOCK")
    (cons 10 '(0.00 0.00 0.00))
    (cons 62 0)
    (cons 70 2)
  )
)
(entmake
  (list
    (cons 0 "ATTDEF")
    (cons 8 "0")
    (cons 1 "")
    (cons 2 "")
    (cons 3 "")
    (cons 6 "BYBLOCK")
    (cons 10 '(0.00 0.00 0.00))
    (cons 40 0.005)
    (cons 70 2)
  )
)
(entmake
  (list
    (cons 0 "ENDBLK")
  ) 
)
(entmake
  (list
    (cons 0 "INSERT")
    (cons 8 "0")
    (cons 2 "USERS-BLOCKS")
    (cons 6 "BYBLOCK")
    (cons 10 '(0.00 0.00 0.00))
    (cons 66 1)
  )
)
(entmake
  (list
    (cons 0 "ATTRIB")
    (cons 8 "0")
    (cons 1 "")
    (cons 2 "")
    (cons 6 "BYBLOCK")
    (cons 10 '(0.00 0.00 0.00))
    (cons 40 0.005)
    (cons 70 1)
  )
)
(entmake
  (list
    (cons 0 "SEQEND")
    (cons -2 "USERS-BLOCKS")
  ) 
)
)