Zobrazit plnou verzi příspěvku: smazání všech rozvržení

Ferdinand
06.01.2009, 10:02
Součástí lispu by měla být operace "smaž všechna rozvržení". Příkazem
_layout to jde jen po jednom. Tj. hvězdičkovou náhradu pro všechny názvy
(command "_layout" "_D" *)
nelze použít. Nechci použít export obsahu modelu do nového výkresu - potřebuji zachovat veškerá původní nastavení výkresu.

Vladimír Michl
06.01.2009, 10:25
Zkuste třeba:
[CODE]
(foreach x (layoutlist)(command "_LAYOUT" "_Del" x))
[/CODE]

Ferdinand
06.01.2009, 10:39
Děkuji. To je asi moje slabina (teda jedna ze slabin)...ten foreach...vždy (i) na něj zapomenu...

Ferdinand
17.02.2009, 16:24
Jenom pro úplnost - provede se to takhle:
(setq SLT (layoutlist))(if (/= SLT nil)(foreach LYT SLT (command "_layout" "_D" "")))