Cobbled this code together to insert a block and change the XScale by entering the new value.
Is there a way to just pick a point (or drag) on the screen instead of typing?
I would love to use dynamic blocks but unable to at work. Thanks
;MyCul
(defun C:MC ( / blk newscl i s)
(setq CLAY (getvar "CLAYER"))
(setvar "cmdecho" 1)
(command "-layer" "set" "LAND" "")
(command "-insert" "Cul" pause "1" "" pause "")
(command "._LAYER" "_SET" CLAY "")
(setvar "cmdecho" 0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (and (not (initget 2))
(setq i (getreal "\nEnter New Xscale Factor: "))
(setq s (ssget "L" '((0 . "insert"))))
)
(foreach b (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
(entmod (mapcar '(lambda (x)
(if (member (car x) '(41))
(cons (car x) i)
x
)
)
(entget b)
)
)
)
)
(princ)
)