scaling block by height and width in autolisp

[Anonymous]

scaling  block by height and width

[ВeekeeCZ · Accepted solution]

X scale version. Similarly Y.

(defun c:BScaleX ( / scl sel i ent)

  (if (and (setq scl (getreal "\nX scale factor: "))
	   (setq sel (ssget "_:L" '((0 . "INSERT"))))
	   )
    (repeat (setq i (sslength sel))
      (setq ent (ssname sel (setq i (1- i))))
      (setpropertyvalue ent "ScaleFactors/X" (* scl (getpropertyvalue ent "ScaleFactors/X")))))
  (princ)
  )

[Sea-Haven]

I can see the next question scale about which point, eg text has 12 points of reference. Middle of block, insertion point ?