creation of explosive blocks

[Angelo2449]

Hello everyone,
With this software downloaded from the web, I can create an anonymous block:

 (defun creablocofr (/ sset tell ent ent_get ent_getu blk)

(princ "\n seleziona gli oggetti da animare: ")
(setq sset (ssget))
(if sset)
(entmake (list
'(0 . "block")
'(2 . "*u")
'(70. 1)
'(10 0.0 0.0 0.0))
(setq tell 0)
(setq ent (ssname sset tell))
(while int
(setq ent_get (entget ent))
(if (/= (cdr (assoc 0 ent_get)) "polyline")(progn
(setq ent_getu (cdr ent_get))
(endel ent)
(entmake ent_getu)
(progn
(setq you enter
enter_getu (cdr ent_get)
(while (/= (cdr (assoc 0 ent_getu)) "seqend")
(setq ent_getu (cdr (entget entu)))
(entmake ent_getu)
(setq entu (entnext entu))
);while
(endel ent)
)
);if
(setq tell (+ tell 1))
(setq ent (ssname sset tell))
)
(setq blk (entmake))
(entmake)
(cons 2 blk)
'(10 0.0 0.0 0.0))
);progn
);if
(principal "\n il gruppo è stato creato")
(principal)

(setq identifiercativo "000000")[CODE]the created block is not exploding, how can you make it exploding?
Thank you.







); end of command createblock
(princ)

 

[giulio1962]

Hello everyone,
With this software downloaded from the web, I can create an anonymous block:

 (defun creablocofr (/ sset tell ent ent_get ent_getu blk)

(princ "\n seleziona gli oggetti da animare: ")
(setq sset (ssget))
(if sset)
(entmake (list
'(0 . "block")
'(2 . "*u")
'(70. 1)
'(10 0.0 0.0 0.0))
(setq tell 0)
(setq ent (ssname sset tell))
(while int
(setq ent_get (entget ent))
(if (/= (cdr (assoc 0 ent_get)) "polyline")(progn
(setq ent_getu (cdr ent_get))
(endel ent)
(entmake ent_getu)
(progn
(setq you enter
enter_getu (cdr ent_get)
(while (/= (cdr (assoc 0 ent_getu)) "seqend")
(setq ent_getu (cdr (entget entu)))
(entmake ent_getu)
(setq entu (entnext entu))
);while
(endel ent)
)
);if
(setq tell (+ tell 1))
(setq ent (ssname sset tell))
)
(setq blk (entmake))
(entmake)
(cons 2 blk)
'(10 0.0 0.0 0.0))
);progn
);if
(principal "\n il gruppo è stato creato")
(principal)

(setq identifiercativo "000000")[CODE]the created block is not exploding, how can you make it exploding?
Thank you.







); end of command createblock
(princ)

 

[giulio1962]

But when you create a block, you set the check on "explosion consents"?

I think you can also set up with the explmode variable? )

 

[MassiVonWeizen]

anonymous blocks have already been addressed in the forumhttps://www.cad3d.it/forum1/threads/creare-blocchi-anonimi.50541/https://www.cad3d.it/forum1/threads/rendere-un-blocco-non-modificabile.894/