Zobrazit plnou verzi příspěvku: load linetype

Ferdinand
12.12.2006, 18:58
Už se tím trápím 2 hodiny a výsledek nikde...Potřebuji v lispu načíst do výkresu typy čar hidden a center - ovšem může se stát, že už načteny jsou.Formulace úkolu: "Jestliže nejsou ve výkrese načteny typy čar hidden a center, tak je načti - pokud tam jsou, tak nic"A/(if (not (linetype "hidden,center")(command "_-linetype" "_L" "hidden,center" "acadiso.lin"))); error: syntax errorB/Command: (if (not (command "_-linetype" "_L" "hidden,center" "acadiso.lin"))(command "_-linetype" "_L" "hidden,center" "acadiso.lin"))_-linetypeCurrent line type:  "ByLayer"Enter an option [?/Create/Load/Set]: _LEnter linetype(s) to load: hidden,center Enter name of linetype file to search <acadiso.lin>: acadiso.linLinetype "CENTER" loaded.Linetype "HIDDEN" loaded.Enter an option [?/Create/Load/Set]: _-linetypeInvalid option keyword.; error: Function cancelledEnter an option [?/Create/Load/Set]:Zde sice načte, ale začne znova a na poslední výzvě čeká na zadání (Enter) - a to nechci.

Vladimír Michl
12.12.2006, 19:39
to (if(not(command je divná konstrukce - sice by to přes podmíněné načítání šlo dělat (asi složitěji), ale není to potřeba - stačí si na chvíli potlačit dotazy typu "Overwrite" (pomocí EXPERTMODE) 

pavelstyl
13.12.2006, 08:15
Co třeba toto:
 
(if (not (tblsearch "LTYPE" "HIDDEN")) (command "_-linetype" "_L" "hidden" ""))
 
(if (not (tblsearch "LTYPE" "CENTER")) (command "_-linetype" "_L" "center" ""))
 
Pavel Štyl