Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion 360, 3ds Max a s dalšími CAD aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.

(defun c:getareascale (/ bd sc)
    (setq bd (entget (car (entsel "\nSelect scale area border: "))
       '("GENIUS_GENSCREG_15")
      )
   sc (cdr (nth 1 (cadr (assoc -3 bd))))
    )
  (eval sc)
)