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í
NEJOBLÍBENĚJŠÍ:
4M CAD 19 Classic CZ

3 6004 356
4M CAD 19 Standard CZ

4 9005 929
4M CAD 19 Professional CZ

6 7008 107
DOPORUČUJEME:
FINE-ELEC 14 CZ

15 90019 239
IDEA Architektura 14 CZ

26 00031 460