Wie wäre es hiermit:
(defun c:GOTOLAYOUT(/ NAME LAYOUTS FOUND?)
(setq LAYOUTS(mapcar 'strcase (append (list "Model")(layoutlist))))
(initget 1)
(if(and(setq NAME (getstring 'T "\nLAYOUTNAME : "))
(/= NAME "")
(setq NAME (strcase NAME))
)
(While (and(not FOUND?) LAYOUTS)
(if (wcmatch (car LAYOUTS) NAME)
(progn
(setvaR "CTAB" (car LAYOUTS))
(setq FOUND? 'T)
)
)
(setq LAYOUTS (cdr LAYOUTS))
)
)
)
bei Layoutnamen von z.B.
"Model" "Layout1" "Layout2" "Layout3" "Layout4" "Layout5"
wechselt Eingabe von *3 zu Layout 3 und Eingabe von Mo* zum Modell
Für weiteres einfach mal die Hilfe zu wcmatch ansehen.
------------------
- 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