Free AutoLISP for AutoCAD

;;; Read and write the settings in the "Explode AEC Objects" dialog box
;;; using the command _AecObjExplode
;;; The effect of writing this settings is directly affecting the command.
;;; By Jimmy Bergmark
;;; www.jtbworld.com
;;; For ADT 2004

;;; Reads the settings "Explode to anonymous blocks"
;;; (readAECObjectsExplodeOptions "Anonymous Block")
;;;   0 = Disable Explode to anonymous blocks
;;;   1 = Enable Explode to anonymous blocks
;;; (readAECObjectsExplodeOptions "Bind Xrefs")
;;;   0 = Don't bind xrefs
;;;   1 = Bind xrefs
;;; Others that can be used are:
;;; (readAECObjectsExplodeOptions "Bind Xrefs Bind Type")
;;; (readAECObjectsExplodeOptions "Erase AEC Objects")
;;; (readAECObjectsExplodeOptions "Explode AEC Objects")
;;; (readAECObjectsExplodeOptions "Include Model Tab")
;;; (readAECObjectsExplodeOptions "Maintain Properties")
;;; (readAECObjectsExplodeOptions "Name Length")
;;; (readAECObjectsExplodeOptions "Reuse Existing Names")
;;; (readAECObjectsExplodeOptions "Short Block Names")
;;; (readAECObjectsExplodeOptions "Verbose")
;;; (readAECObjectsExplodeOptions "Views")

(defun readAECObjectsExplodeOptions (keyname)
  (vl-registry-read
    (strcat
      "HKEY_CURRENT_USER\\"
      (vlax-product-key)
      "\\Profiles\\"
      (vla-get-activeprofile
	(vla-get-profiles
	  (vla-get-preferences (vlax-get-acad-object))
	)
      )
      "\\Dialogs\\AecObjExplode40-Options"
    )
    keyname
  )
)


;;; Writes the settings "Explode to anonymous blocks"
;;; Disable Explode to anonymous blocks
;;;   (writeAECObjectsExplodeOptions "Anonymous Block" 0)
;;; Enable Explode to anonymous blocks
;;;   (writeAECObjectsExplodeOptions "Anonymous Block" 1)
;;; Don't bind xrefs
;;;   (writeAECObjectsExplodeOptions "Bind Xrefs" 0)
;;; Bind xrefs
;;;   (writeAECObjectsExplodeOptions "Bind Xrefs" 1)
;;; Others that can be used are:
;;; (writeAECObjectsExplodeOptions "Bind Xrefs Bind Type" 1)
;;; (writeAECObjectsExplodeOptions "Erase AEC Objects" 1)
;;; (writeAECObjectsExplodeOptions "Explode AEC Objects" 1)
;;; (writeAECObjectsExplodeOptions "Include Model Tab" 0)
;;; (writeAECObjectsExplodeOptions "Maintain Properties" 0)
;;; (writeAECObjectsExplodeOptions "Name Length" 31)
;;; (writeAECObjectsExplodeOptions "Reuse Existing Names" 0)
;;; (writeAECObjectsExplodeOptions "Short Block Names" 1)
;;; Display status messages
;;;   (writeAECObjectsExplodeOptions "Verbose" 1)
;;;   (writeAECObjectsExplodeOptions "Views" 0)
(defun writeAECObjectsExplodeOptions (keyname n)
  (vl-registry-write
    (strcat
      "HKEY_CURRENT_USER\\"
      (vlax-product-key)
      "\\Profiles\\"
      (vla-get-activeprofile
	(vla-get-profiles
	  (vla-get-preferences (vlax-get-acad-object))
	)
      )
      "\\Dialogs\\AecObjExplode40-Options"
    )
    keyname
    n
  )
)