Výška nad podlahou v aplikacích FINE

Jednoduchá aplikace vyžaduje nejprve zadání výšky aktuálního podlaží a po té umožní vložení textů (řádkový text, DTEXT) s výškou entit nad úrovní aktuálního podlaží. Výšku a orientaci textů je možné nastavit v prvních řádcích programu.

---

; Vlozeni textu s vyskou entity nad podlahou pro vertikalni aplikace FINE 4M

(DEFUN C:VYS(/ vys en en1 typ absolutni nadpodlahou strnadpodlahou pt vyskatextu uheltextu)

  (setq vyskatextu 0.15) ; Nastaveni vysky textu
  (setq uheltextu 0) ; Nastaveni uhlu textu
  
  (setq vys (getreal "\nZadejte vysku aktualniho podlazi: "))
  
  (while (setq en (car (entsel "\nVyberte blok: ")))
    (setq en1 (entget en)) ; Get the entity data from the entity name.
    (setq typ (cdr (assoc 0 en1)))
    (if (not (= typ "INSERT"))
      (princ "\nPOZOR! Zvolena entita neni blok!")
    )
    (setq absolutni (cadddr (assoc 10 en1)))
    (setq nadpodlahou (- absolutni vys))
    (princ "\nVyska nad podlahou: ")
    (princ nadpodlahou)
    (setq strnadpodlahou (strcat "v = " (rtos nadpodlahou) " m"))
    (setq pt (getpoint "\nZadejte umisteni textu: "))
    (command "_text" pt vyskatextu uheltextu strnadpodlahou)
  )
)

---

Soubor ke stažení