anchor.diff:  				
   				(setq aContent (xml:create-node "DRAWING" aContent (list (cons "xmlns:xsi" "http://www.w3.org/2001/XMLSchema-instance") (cons "xsi:noNamespaceSchemaLocation" aXSD) (cons "reports" (block-xml-report-location)))))
   				
  -				(xml:write-file (setq aFile (strcat (fm:drawing-path) (fm:drawing-base) ".xml")) aHeader aContent)
  +				(xml:write-file (setq aFile (block-xml-file)) aHeader aContent)
   				
   				(princ (strcat "\nTotal blocks found: " (itoa (length lBlocks))))
   				(princ (strcat "\nTotal unique blocks found: " (itoa (length (lm:unique lBlocks)))))
  
positive.code: 	(block-xml-write (im:select-all-blocks) "SYMBOL*" (strcat (block-xml-report-location) "\\symbol.xsd"))
  )
  
  (princ)
  
negative.code: ;;; Download the latest version from http://github.com/thooruna/AutoCAD/
  ;;; Author: Wilfred Stapper
  ;;; Copyright  2015
  
  (defun block-xml-file ()
  	(strcat (fm:drawing-path) (fm:drawing-base) ".xml")
  )
  
  (defun block-xml-report-location ()
  	(strcat (findfile "demo") "\\reports")
  