Script fail

[michaelk]

I'm trying to write a simple script that will find every extrude - including extrudes inside of symbols - and change their depth to 12'.

I got it to run using FSActLayer on a test of extrudes outside of symbols. But I can't get it to run using ForEachObject

What am I missing?

Thanks

mk

Procedure Test;

VAR

H1 : HANDLE;

hh,ww,dd : REAL;

Procedure ExtrudeToTwelve(H1 : HANDLE);

Begin

Get3DInfo(H1,hh,ww,dd);

Set3DInfo(H1,hh,ww,144);

END;

Begin

ForEachObject(ExtrudeToTwelve,(INSYMBOL & (T=XTRD));

End;

Run(Test);

[Jonathan Pickup]

outside the symbol, the extrude does not exist, so you want find them. I would have thought that you have to look inside each symbol as well.

[michaelk]

Doesn't (INSYMBOL & (T=XTRD)) do that?

And I can't even get it to compile. I feel like I'm missing something really obvious.

MK

[MullinRJ]

Michael,

???You are missing a parenthesis of the right handed variety; or, you have included an extra parenthesis of the left handed variety. I prefer to favor the latter explanation as I usually prefer more concise expressions, but making either adjustment will improve your code's execution.

Raymond

[Hippocode]

ForEachObject(ExtrudeToTwelve,(INSYMBOL & (T=XTRD));

You forgot a ")" in your foreachobject expression

ForEachObject(ExtrudeToTwelve,(INSYMBOL & (T=XTRD)));

Edited March 18, 2013 by hippothamus

[michaelk]

D'oh!

Thank you! I thought I was going crazy.

Turns out - just blind.

mk