Zobrazit plnou verzi příspěvku: Skript SCR

PepaR
11.07.2005, 12:52
Dobrý den, možná primitvní dotaz, zkouším skripty poprvé a tak ybch potřeboval radu. Potřebuji pomocí skriptu vybrat všechny entity, změnit hladinu na 0 a barvu na DleBlok. Dále bych potřeboval aby byla aplikováno čištění filtrů hladin příkazem deletefilters (nástroj od CAD Studia), nicméně nevím jak to do skriptu zakomponovat, konkrí¨átně u vymazání filtru haldin je nutné az příkazem deletefilters umístit mezerník. V manuálu se píše, že mezerník se nahrazuje mezerou nebo novým řádkem, ale to v praxi nefunguje.
 
Skript (který nefunguije tak jak má :):2005-07-11_125239_skript.zip

Pajas
11.07.2005, 16:34
Zkuste tohle:
^C^C_ai_selall;_CHANGE;_P;_COLOR;_BYLAYER;_LW;_BYLAYER;;_-LA YER;_S;0;;_-PURGE;_A;*;_N;

PepaR
13.07.2005, 07:00
No jo, ale tohle nelze aplikovat na více výkresových souborů najednou...

Seiner
13.07.2005, 07:24
IMHO by mohlo stačit za tím DELETEFILTERS dát enter 2x ("vynechaná řádka"). S jistou nepravidelností v chování mezera/enter(přechod_na_novou_radku) jsem se ve scriptech take potýkal. Některe příkazy stráví mezeru, ale některé musí mít "návrat vozíku". V generátoru scriptů to řeším tak, že zadávám místo všech enterů středník a ten v programu změním na VBNewLine.
Pozn. Nepravidelnost je jen zdánlivá. Tam, kde má příkaz vstup nějakého textu, musí být enter, jinde stačí mezera. Ladění scriptů je někdy poněkud pracné - proto si odladěné skripty schovávám a v generátoru je uživatelé vybírají podle popisu.Např:
(command "_SAVEAS" "R12" (strcat (getvar "DWGPREFIX")(SUBSTR (GETVAR "dwgname") 1(-(strlen(getvar "dwgname"))4))"_12.dwg"))#Uložení ve verzi A12
-PLOT A MODEL PDFCREATOR;A3;m K N Z M;C;A OCE.ctb;N;N;N;N;A;(DELAY 60)#Tisk: A3,PDF