load linetype
Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=3598
Datum vytištění: 13.kvě.2026 v 06:37
Téma: load linetype
Odeslal: Ferdinand
Předmět: load linetype
Datum odeslání: 12.pro.2006 v 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 error B/ Command: (if (not (command "_-linetype" "_L" "hidden,center" "acadiso.lin"))(command "_-linetype" "_L" "hidden,center" "acadiso.lin")) _-linetype Current line type: "ByLayer" Enter an option [?/Create/Load/Set]: _L Enter linetype(s) to load: hidden,center Enter name of linetype file to search <acadiso.lin>: acadiso.lin Linetype "CENTER" loaded. Linetype "HIDDEN" loaded. Enter an option [?/Create/Load/Set]: _-linetype Invalid option keyword. ; error: Function cancelled Enter 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. ------------- -FerTh- |
Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 12.pro.2006 v 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) ------------- Vladimír Michl (moderátor) ARKANCE CZ - https://arkance.world - arkance.world (podpora viz helpdesk.arkance-systems.cz) |
Odeslal: pavelstyl
Datum odeslání: 13.pro.2006 v 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
|