Sjednocení měřítka bloků

Aplikace je po načtení dostupná pomocí příkazu BS (Block Scale).

Zkontroluje všechny bloky ve výkrese a pokud zjistí rozdíl v nastavení měřítka mezi XY a XZ, nastaví měřítka Y a Z dle hodnoty měřítka X.

---

;Sjednotí XYZ měřítko všech bloků ve výkrese dle měřítka X
(DEFUN C:BS(/ sset1 pocet index en1 xscale yscale zscale)
  
  ;Vyber vsech entit Mtext
  (setq sset1
  (ssget "X"
    (list (cons 0 "INSERT"))
  ))
  (setq pocet (sslength sset1))
  (setq index 0)

  ;Úprava měřítka Y a Z dle měřítka X
  (repeat pocet  
    (setq en1 (entget (ssname sset1 index)))
    (setq index (+ index 1))
    (setq scalex (cdr (assoc 41 en1)))
    (setq scaley (cdr (assoc 42 en1)))
    (setq scalez (cdr (assoc 43 en1)))
	(if (/= scalex scaley) (setq en1 (subst (cons 42 scalex) (assoc 42 en1) en1)))
	(if (/= scalex scalez) (setq en1 (subst (cons 43 scalex) (assoc 43 en1) en1)))
    (entmod en1) ; Modifikace entity
  )
  
  (command "_re") ; Regenerace výkresu
  
  (princ "\nSjednoceni meritka bloku: Hotovo.")
  (princ)
)

---

Soubor ke stažení