na so gehts :
(if(and(setq B (car(entsel "\nRahmen wählen: ")))
(setq B (entget B '("GENIUS_GENSCREG_15")))
(setq B (cdr(assoc -3 B)))
(setq B (mapcar
'cdr
(vl-remove-if-not '(lambda(x)(= (car X) 1040))(cdr(car B)))
)
)
)
(princ (strcat "\nMaßstab : "
(vl-princ-to-string (car B))
":"
(vl-princ-to-string (cadr B))
"\n"
)
)
)
Steht also in den Xdatas des Rahmeminserts ..
------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP