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

[SLW210]

Here is another for allowing explode... Solved: Re: Allow exploding outside the block editor - Autodesk Community

 

Are these drawings from AutoCAD Civil 3D or some other CAD?

 

 

(defun c:AllBlkYHtchN (/ ss i ent)

  (vl-load-com)

  ;;--------------------------------------------------
  ;; Set Allow Exploding = Yes for all block definitions
  ;;--------------------------------------------------
  (vlax-map-collection
    (vla-get-Blocks
      (vla-get-ActiveDocument
        (vlax-get-acad-object)))
    '(lambda (blk)
       (if (vlax-property-available-p blk 'Explodable)
         (vlax-put-property blk 'Explodable :vlax-true)
       )
     )
  )

  ;;--------------------------------------------------
  ;; Set all hatches Annotative = No
  ;;--------------------------------------------------
  (if (setq ss (ssget "_X" '((0 . "HATCH"))))
    (progn
      (setq i 0)
      (repeat (sslength ss)
        (setq ent (ssname ss i))
        (vl-catch-all-apply
          '(lambda ()
             (setpropertyvalue ent "Annotative" 0)
           )
        )
        (setq i (1+ i))
      )
    )
  )

  (princ
    (strcat
      "\nUpdated "
      (itoa (if ss (sslength ss) 0))
      " hatch(es). All explodable block definitions enabled."
    )
  )
  (princ)
)

 

Do you need nested hatches and blocks, dynamic and/or anonymous blocks?

 

 

[SLW210]

If you don't mind sharing what else the code you have is doing or even better what you want it to do, this probably could be improved to coordinate with what you have already.