A 20/40 Scale plan with 20/30 scaling of point blocks?

[claimed4all]

Currently looking for a better solution to my Public City Drawings.

I do a half dozen public plans for the city a year.  We submit Preliminary Utility Plans at 40 scale and full construction plans at 20 scale.

The problem I run into is block scaling from my points.  The city wants 20 scale plans to have 20 scale blocks, but 40 scale plans to have 30 scale blocks.

Currently we submit the 40 scale plans (30 scale blocks), then change point styles to 20 scale (20 scale blocks) and work on the construction plans.  If the city comes back with comments for the preliminary we change all the point styles back to 30 scale, submit the drawing, then change back to 20 scale to work on construction plans.

The majority of blocks are tied to point styles, but I also have blocks that are just blocks, for items like watermain bends and tees (not shot in the field, but added from as-builts)

How would you go about the nonlinear block scaling? 

[tcorey]

I would probably write a lisp routine that would scale each block by a factor. Five minutes to write the routine, five seconds to run it. Something like this:

;rescale blocks

(defun c:go ( / blnam ss len ctr sf bl)

  (vl-load-com)
  

  (setq blnam (vlax-get-property (vlax-ename->vla-object (car (entsel "\nSelect representative block: "))) 'Name))

  (setq ss (ssget "x" (list (cons 2 blnam)))
	len (sslength ss)
	ctr 0)
  

  (setq sf (getreal "\nEnter scale factor: "))
  
  (while (< ctr len)
    (setq bl (ssname ss ctr))
    (vl-cmdf "scale" bl "" (cdr (assoc 10 (entget bl))) sf)
    (setq ctr (1+ ctr))
    )
  (princ)
  


  );end defun