Reset a Block Scale to 1

[rcb007]

I am having a hard time trying to figure out in lisp to reset a block back its original scale of 1. I know how to do manually, just not how to do it in lisp.

 

Basically I have some blocks that were in paperspace, that I used the changespace command. The blocks have an annotative property being on.

 

Thanks for the direction, but  I am seeing a lot of re inserting the blocks back in.

 

[Hippe013]

Here is a quick and dirty on how to set block scales.

 

(defun c:BlockReset ()
  (setq ss (ssget ":s" '(( 0 . "INSERT"))))
  (if ss
    (progn
      (setq blk (vlax-ename->vla-object (ssname ss 0)))
      (vlax-put-property blk 'XEffectiveScaleFactor 1.0)
      (vlax-put-property blk 'YEffectiveScaleFactor 1.0)
      (vlax-put-property blk 'ZEffectiveScaleFactor 1.0)
      )
    )
  (princ)
  )

 

 

[rcb007]

That's it! Thank you for the help.