Aktualizace všech kót ve výkrese

Skript nahradí všechny kóty ve výkrese jejich identickými kopiemi. Zajistí tak jejich aktualizaci.

Využití: Aktualizace zobrazení kót ve výkresech ze starších verzí 4MCAD.

---

(DEFUN C:AKOT(/ sset1 pt1 pt2)

  ;Vypnuti hlaseni v prikazovem radku
  (setvar "cmdecho" 0)

  ;Nahrazeni puvodnich kot novymi
  (setq sset1
  (ssget "X"
    (list (cons 0 "DIMENSION"))
  )
  )
  (setq pt1 '(0 0))
  (setq pt2 '(0 0))
  (command "_copy" sset1 "" pt1 pt2 "")
  (command "_erase" sset1 "")
  
  ;Zapnuti hlaseni v prikazovem radku
  (setvar "cmdecho" 1)
  
  (princ "Aktualizace kot provedena")
  (princ)
  
)

---

Soubor ke stažení