CAD Lisp Code Help

[dber]

Hi, 

I have a LISP code to help clean up some incoming files from Civils as we work on projects. 

I wanted to add to this code that I got, and was wondering if there are any lines of code that could make AutoCAD:

1. Change Allow Exploding to "Yes" for all blocks

2. Select all hatches in drawing and change Annotative to "No"

 

I heard the commands can be limited, so just wondering if its possible and what it might look like.

 

Thanks!

 

[troggarf]

Here is a quick find from Google for setting all blocks as explodable:

 

;; Set every block as explodable
;; http://forums.augi.com/showthread.php?33008-Allow-block-exploding&highlight=explodable&pp=10
;; posted by whdjr
(defun c:eb ()
(vl-load-com)
  (vlax-map-collection
	(vla-get-blocks
	  (vla-get-activedocument (vlax-get-acad-object))
	)
	'(lambda (x)
	   (and
	 (vlax-property-available-p x 'explodable)
	 (eq (vlax-get-property x 'explodable) :vlax-false)
	 (not (vlax-put-property x 'explodable :vlax-true))
	   )
	 )
  )
)

 

[EnM4st3r]

in autocad you could change Annotative to "No" using setpropertyvalue. 
For example:
 

(setpropertyvalue ent "Annotative" 0)

 

[BIGAL]

Just a comment in Bricscad V25 the setpropertyvalue does not work, the get does work. One of those odd bugs