Hi, I need help on SCALE command.

[Saqib_theleo]

Hi to all,
I want to know what is Lisp of built-in Scale command of AutoCad, I want to use default scale command value 0.8 every time rather than 1.0 (which is default value set by Cad). Where are these default values found in AutoCad.
Thanks.

[pBe]

What is it you need anyway? tell us the big picture

[Tharwat]

This can do the trick instead of the built-in scale command , and permanently with value 8.0 .

(defun c:Test (/ selectionset intger point)
  (vl-load-com)
;;; Tharwat 12. march. 2012 ;;;
  (if (and (setq selectionset (ssget "_:L"))
           (setq point (getpoint "\n Specify base point :"))
      )
    (repeat (setq intger (sslength selectionset))
      (vla-scaleentity
        (vlax-ename->vla-object
          (ssname selectionset (setq intger (1- intger)))
        )
        (vlax-3d-point point)
        8.0
      )
    )
    (princ)
  )
  (princ)
)

[David Bethel]

Hi to all,
Where are these default values found in AutoCad.
Thanks.

ASAIK, They've always been hard coded into AutoCAD and therefore not negotiable. -David.

That is if you are talking about the scale parameter via INSERT command.

[Saqib_theleo]

This can do the trick instead of the built-in scale command , and permanently with value 8.0 .

(defun c:Test (/ selectionset intger point)
  (vl-load-com)
;;; Tharwat 12. march. 2012 ;;;
  (if (and (setq selectionset (ssget "_:L"))
           (setq point (getpoint "\n Specify base point :"))
      )
    (repeat (setq intger (sslength selectionset))
      (vla-scaleentity
        (vlax-ename->vla-object
          (ssname selectionset (setq intger (1- intger)))
        )
        (vlax-3d-point point)
        8.0
      )
    )
    (princ)
  )
  (princ)
)

Hi Tharwat,
Thanks for your help, yes this is what I needed. I'll add this Lisp in startup suite content in the AutoLisp Loadapplication so that when I use scale command I don't have to write 0.8 every time on every drawing I open.
Thanks for your help.

[Saqib_theleo]

What is it you need anyway? tell us the big picture

Hi pBe,
I don't mean to change Cad's standard commands, just wanted to change Scale command's default value 1.0 to 0.8. I am working on too many drawings. All of them were edited to make some changes but now we need some of old data from unchanged drawings and scale them a little bit like 0.8. Tharwat made a Lisp which works as I wanted.
Hope you understand.

[Saqib_theleo]

ASAIK, They've always been hard coded into AutoCAD and therefore not negotiable. -David.

That is if you are talking about the scale parameter via INSERT command.

Hi David,
Alright no problem if they are unable to change. I wanted to change Scale command's value 1.0 to 0.8. Tharwat made a Lisp which works fine. Thanks.

[Tharwat]

Hi Tharwat,
Thanks for your help, yes this is what I needed. I'll add this Lisp in startup suite content in the AutoLisp Loadapplication so that when I use scale command I don't have to write 0.8 every time on every drawing I open.
Thanks for your help.

You're welcome .

happy to hear that .

Tharwat