I've got this simple code that I've have for years that scales down objects based on selecting them on the screen. I don't know lisp at all so bare with me.
I know this is probably easy, but here's what I'm trying to do:
- Select blocks from a list, say Block1, Block2, Block3
- Then I want to scale those blocks in the list from a known base point of say 0,0
What do I need to incorporate in the following code to accomplish this? Thanks in advance!
(defun C:24x36 (/ so ba)
(prompt "\nSelect Objects To Scale : ")
(setq so (ssget))
(initget 1)
(setq ba (getpoint "\nLocate base point: "))
(command ".scale" so "" ba "r" "1" "1.06382978723")
(princ)
)