Data entity

Jednoduchý skript pro zobrazení dat entity tak, jak jsou uložena v databázi výkresu. Jde o dobrou pomůcku pro programování dalších aplikací či pro zobrazení informací o entitě, které nemusí být v panelu vlastností.

---

(DEFUN C:DAT()
  ; Vyzva k vyberu entity
  (setq en (car (entsel "Vyberte entitu: "))) 
  ; Nacteni dat z entity 
  (setq en1 (entget en))
  
  ; Zruste poznamku nize pro vypis dat entity do prikazoveho radku.
  ; 4MCAD vypise data bez tohoto prikazu pri ukonceni skriptu.
  ;(princ en1)
)

---

Soubor ke stažení