Jump to content

Export X value to Lightwright


Recommended Posts

This script should help out. I did not come up with it but I can not remember who gave it to me.

PROCEDURE XToUser2;

VAR

TheLayer : HANDLE;

PROCEDURE PlaceXCoord(theFixture:HANDLE);

VAR

x,y,z : REAL;

xString : STRING;

BEGIN

GetSymLoc(theFixture,x,y);

xString := Num2StrF(x);

xString := concat('X = ',xString);

SetRField(theFixture,'Lighting Device', 'User Field 2',xString);

END;

BEGIN

ForEachObject(PlaceXCoord, ((R IN ['Lighting Device'])));

END;

RUN(XToUser2);

Link to comment

I got help pretty quick from the vectorscript email list.

PROCEDURE XToUser2;

VAR

TheLayer : HANDLE;

PROCEDURE PlaceXCoord(theFixture:HANDLE);

VAR

x,y,z : REAL;

xString : STRING;

value : CHAR;

BEGIN

GetSymLoc(theFixture,x,y);

value := Num2StrF(x);

IF (value = '-') THEN

xString :='Stage Right '

Else

xString :='Stage Left ';

xString := concat(xString, Num2StrF(abs(x)));

SetRField(theFixture,'Lighting Device', 'User Field 2', xstring);

END;

BEGIN

ForEachObject(PlaceXCoord, ((R IN ['Lighting Device'])));

END;

I was able to get it to add stage right or left depending on if it was a negative number myself, it was getting it to display Stage Right 9'8" not Stage Right -9'8" that I had to get help with. Now let the massive pipe tape party begin.

Link to comment

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...