Hallo cadffm,
danke für deinen Denkanstoss. Hat mir weiter geholfen.
Lösung:
;-------------------------------
(defun foreach-cdrs (key lst / rtn)
(reverse
(foreach x lst
(if (eq key (car x))
(setq rtn (cons (cdr x) rtn)) rtn
);end if
);end foreach
);end reverse
);end defun foreach-cdrs
;-------------------------------
(defun check-cdrs ( / varsdict r)
(setq varsdict (dictsearch (namedobjdict) "AEC_DISP_REP_CONFIGURATIONS"))
(setq r (foreach-cdrs 3 varsdict ));returns all the names of the DisplayConfigs
(if (member "MEP Dach Konstruktion 1-50" r)
(progn
(print "Darstellungskonfiguration -MEP Dach Konstruktion 1-50- ist vorhanden")(princ)(terpri)
);end progn
);end if
)
;-------------------------------
(check-cdrs)
------------------
Danke Stefan
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP