routine won't scale by r of 2 to 1 ???

[d_m_hopper]

;Created September 2007 BY: Dennis Hopper for vascular PMIs
;Will perform a number of steps to aid in getting 1/4" dwgs
;to 1/8" dwgs and have the dims reflect changes to dwgs scale

(defun C:vas (/ obj pt1 obj1)
  (setvar "dimtxt" 2.5)
  (setq obj(ssget))
  (setq pt1(getpoint))
    (command "_.scale" obj"" pt1"" r 2.0 1.0)

    (alert "\nSelect Objects To Update Dimension Text Height: ")
  (SETQ OBJ1(ssget))
	 (command "_.DIM" "UP" OBJ1"")
  (alert "\nHit Escape To Exit: ")
  (PRINC)
  )

It lets me select objects, pick point, and then does not scale, but does let me select dims and will perform the update ideas?

[Avatart]

Either you need to add some "Fuzz" to the selection point, or use a selection set.

[d_m_hopper]

Either you need to add some "Fuzz" to the selection point, or use a selection set.

a selection set for scale factor?

what about get user input?

[Avatart]

a selection set for scale factor?

what about get user input?

Yeah, you can pause for user input, grab that as a selection set then operate on it however you like.

 
(setq obj (entsel "Pick Object: "))
(command "scale" obj "" "@0,0" 0.5)

[d_m_hopper]

Yeah, you can pause for user input, grab that as a selection set then operate on it however you like.

 
(setq obj (entsel "Pick Object: "))
(command "scale" obj "" "@0,0" 0.5)

that worked perfect I had to change the insertion point so that the dwg would return to its home position

thanks a bunch

[Avatart]

that worked perfect I had to change the insertion point so that the dwg would return to its home position

thanks a bunch

Yeah, the insertion point bit was just a holder, it would use wherever you picked to select the object.

[Tom Beauford]

It lets me select objects, pick point, and then does not scale, but does let me select dims and will perform the update ideas?

Try this.

(defun C:vas (/ ss pt1 obj1)
  (setvar "dimtxt" 2.5)
  (setq pt1(getpoint "Select base point for scaling. "))
  (prompt "Select objects to scale. ")
  (setq ss(ssget))
  (command "_.scale" "P" "" pt1"r" 2.0 1.0)
  (alert "\nSelect Objects To Update Dimension Text Height: ")
  (SETQ OBJ1(ssget))
  (command "_.DIM" "UP" OBJ1"")
  (alert "\nHit Escape To Exit: ")
  (PRINC)
)