Kdysi jsem pro změnu měřítka smolil lispík, třeba pomůže.

Kóty je třeba obnovit, existující texty se musí předělat ručně.

Názvy bloků jsou samozřejmě dle zvyklostí.

 

;NASTAVENÍ MĚŘÍTKA
;*******************
(defun c:def()
(setq osm (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq mer1 (getreal "Urči faktor zmenšení: "))
(setq mer (GETVAR "USERR1"))
(if (or (= mer nil)(= mer 0))(setq mer mer1))
(setvar "USERR1" mer1)
(setq skup (ssget "X" '((-4 . "<OR")(2 . "RAZKONST")(2 . "RAZPROJ")(2 . "A0")(2 . "A1")(2 . "A2")(2 . "A3")(2 . "A4")
(2 . "RAMECEK")(2 . "RAMECEK1")(2 . "RAMECEK2")(2 . "RADEK")(2 . "NADST")(2 . "RADEK1")(2 . "NADST1")(2 . "RAZPOKR")(2 . "RAZEXT")(-4 . "OR>"))))
(if (/= skup nil)(progn
(command "_scale" skup "" "0,0" (/ mer1 mer))
(command "_limits" (list (* (/ mer1 mer)(car(getvar "limmin"))) (* (/ mer1 mer)(cadr(getvar "limmin"))))
                   (list (* (/ mer1 mer)(car(getvar "limmax"))) (* (/ mer1 mer)(cadr(getvar "limmax"))))
)
(SETVAR "TEXTSIZE" (* (/ mer1 mer)(GETVAR "TEXTSIZE")))
(SETVAR "DIMSCALE" mer1)
(SETVAR "LTSCALE" (* (/ mer1 mer) (GETVAR "LTSCALE")))
(setq mer mer1)
(command "ZOOM" "_all")
)
)
(setvar "OSMODE" osm)
)