How to disable "allow exploding" while creating a block lisp?

[bijoyvm]

is it possible to disable "Allow exploding" in this lisp?

 

(defun c:OB(/ ssblk)


; to create block BSO for deck door opening
(if (not (tblsearch "block" "BSO"))
  
  (progn
  (setq ssblk (ssadd))
     (command "_rectangle" (list -0.35 0.00 0.00)(list 0.35 0.70 0.00))
      (setq ssblk (ssadd (entlast) ssblk))
     (command "_Line" (list -0.35 0.00 0.00)(list 0.35 0.70 0.00)"")
      (setq ssblk (ssadd (entlast) ssblk))
     (command "_Line" (list -0.35 0.70 0.00)(list 0.35 0.00 0.00)"")
      (setq ssblk (ssadd (entlast) ssblk))
     (Command "CHPROP" ssblk "" "LA" "0" "")

     (command "-BLOCK" "BSO" (list 0 0 0) ssblk "")

  ) ;progn
) ;defun

  
(princ)
)

Edited September 28, 2010 by Tiger
added code-tags

[Guest kruuger]

if i'm correct:

...
(setq BLOCKS
 (vla-get-Blocks
   (vla-get-activedocument
     (vlax-get-acad-object)
   )
 )
 BLK (vla-Item BLOCKS "BSO")
)
(vla-put-explodable (vla-Item BLOCKS "BSO") :vlax-false)
...

kruuger

[bijoyvm]

hi,

Thanks for your reply...

and it is not working their is one error message "error: no function definition: VLAX-GET-ACAD-OBJECT"

please solve this problem

thanks

bijoy.vm

[alanjt]

Read: http://www.cadtutor.net/forum/showthread.php?1390-How-to-use-the-LISP-routines-in-this-archive

[bijoyvm]

thanks alanjt....its working...

(vl-load-com) was missing...