0 Members and 1 Guest are viewing this topic.
(defun GetKVPairs (e / return xD esriD att key val);Get Key/Value Pairs(setq return '())(if (and (setq xD (cdr (assoc 360 (entget e)))) (setq esriD (cdr (assoc -1 (dictsearch xD "ESRI_ATTRIBUTES"))))) (progn (setq att (entget esriD)) (while (setq att (member (assoc 3 att) att)) (setq key (cdr (car att)) val (cdr (assoc 1 (entget (cdr (car (setq att (cdr att)))))))) (setq return (cons (cons key val) return)) );while (setq return (reverse return)) );progn;else (setq return nil));ifreturn);defun