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.

 

[dber]

4 hours ago, SLW210 said:

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.

 

What we have already just cleans up an incoming CAD file like unlocking all layers, color to ByLayer, Audit, PU, -PU(regapps), and changing the units. We use AutoCAD LT and I don't think we need to change nested hatches because the hatches I want to code are usually on the surface and include pavement, sidewalk, etc., and not in another block. I would want to include dynamic blocks to be able to be exploded as well since alot of utility symbols are dynamic blocks. I've never heard of anonymous blocks...

 

(defun C:CLEANUP ( / allobjects hatchss i hobj hcount)

(command "-layer" "unlock" "*" "") ; Unlocks all layers to make them editable

(setq allobjects (ssget "_X" ))
(command "_.CHPROP" allobjects "" "_color" "ByLAyer" "") ; Sets the color of all objects to ByLayer

(command "_AUDIT" "Yes")

(command "_PURGE" "Regapps" "*" "No")
(command "_PURGE" "All" "*" "No")

(setvar "lunits" 2) ; Set linear units to decimal
(setvar "aunits" 0) ; Set angular units to decimal
(command "_INSUNITS" "0") ; Specifies the drawing units as unitless

;; Turn off Annotative property on all hatch objects
(vl-load-com)
(setq hcount 0)
(if (setq hatchss (ssget "_X" '((0 . "HATCH"))))
  (progn
    (setq i 0)
    (while (< i (sslength hatchss))
      (setq hobj (vlax-ename->vla-object (ssname hatchss i)))
      (if (vlax-property-available-p hobj "Annotative")
        (progn
          (vla-put-Annotative hobj :vlax-false)
          (setq hcount (1+ hcount))
        )
      )
      (setq i (1+ i))
    )
  )
)

(princ (strcat "\n" (itoa hcount) " hatch(es) set to non-annotative."))
(princ "\n\nFile has been cleaned.")
)
(princ)