ahojte, pri kopírovaní množstva blokov som zistil že niektoré nemajú mierku 1 ale 0,01 (ano je to dané inými jednotkami v tých rôznych výkresoch). Existuje prosím nejaký príkaz alebo lisp ktorý by zadefinoval - všetky bloky v tomto výkrese majú veľkosť 1 - ale nezmenil by ich tvar. ďakujem 

Buď můžete vybrat všechny bloky a pak nastavit měřítko na 1 nebo můžete použít lisp program viz. níže.(defun c:BlockReset ( / ss blk i) (setq i 0) (setq ss (ssget "_X" '(( 0 . "INSERT")))) ; reset všech bloků ; (setq ss (ssget '(( 0 . "INSERT")))) ; reset jen vybraných bloků (if ss (repeat (sslength ss) (setq blk (vlax-ename->vla-object (ssname ss i))) (vlax-put-property blk 'XEffectiveScaleFactor 1.0) (vlax-put-property blk 'YEffectiveScaleFactor 1.0) (vlax-put-property blk 'ZEffectiveScaleFactor 1.0) (setq i (1+ i)) ) ) (princ))