Look for help adding code to explode inserted block...

[Anonymous]

Good afternoon,

 I have a lisp that I use to insert a specific block into a drawing:

(defun c:Insds ()
 (setq osnapold (getvar "osmode"))
 (setq dimsc (getvar "dimscale"))
 (setq Inspt (getpoint "\nSelect Block insertion point: "))
 (command "-insert" "drawing scales" Inspt dimsc "" "" )
 (setvar "osmode" osnapold)
 ) 

I greatly appreciate the community and your help.

Regards.

[hmsilva]

Hi cadcre8er,

in your code you are setting the 'osnapold' variable with the "osmode" value, do you need to modify "osmode" in your code?

(defun c:Insds ( / dimsc Inspt osnapold)
  (setq osnapold (getvar "osmode"));<<< ????
  (setq dimsc (getvar "dimscale"))
  (if (setq Inspt (getpoint "\nSelect Block insertion point: "))
    (command "-insert" "drawing scales" "_NON" Inspt dimsc "" ""
             "_.explode" (entlast)
    )
  )
  (setvar "osmode" osnapold);<<< ????
  (princ)
)

Hope this helps,
Henrique