CAD programy 4M
Atributy bloků v LISP
Možnost přístupu k atributům bloků v CAD výkrese pomocí LISP. Skript po výběru bloku kontroluje další entity pomocí funkce (entnext), dokud jejich typ odpovídá hodnotě "ATTRIB".Vzor vypisuje štítky (tagy) a hodnoty atributů a je možné jej dále rozšiřovat, aby s těmito hodnotami prováděl další operace.
(defun C:att() (princ "Zvolte blok s atributy:\n") (setq ss1 (ssget)) (setq en (ssname ss1 0)) (setq edata (entget en)) (setq testentity "ATTRIB") (while (= testentity "ATTRIB") (setq edata (entget (entnext (cdr (assoc -1 edata))))) (setq testentity (cdr (assoc 0 edata))) (if (= testentity "ATTRIB") (progn (setq tag (cdr (assoc 2 edata))) (setq hodnota (cdr (assoc 1 edata))) (princ (strcat "\nTag: " tag)) (princ (strcat "\nHodnota: " hodnota)) )) ) (princ) )
Soubor ke stažení