CAD programy 4M
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í